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This thesis is concerned with implementing a compiler for 
the computer language ALGOL 68. The compiler contains two 
passes that are syntax directed followed by a third code 
generating pass. 

Imbedded in the syntax for pass 1 and pass 2 are 
"actions" that are subroutine calls that perform the actual 
compilation. All declarations are analyzed in pass 1 and 
stored in tables for use by pass 2. Pass 2 rereads the 
source program and generates a modified Polish postfix 
intermediate code. Pass 2 also determines the proper 
sequence of "coercions" to apply. These coercions 
transform one data type into another and an extensive set of 
coercions is provided by ALGOL 68. Determining the proper 
sequence of coercions to apply in a particular case is not 
trivial and an algorithm that determines this sequence is 
presented. 

A garbage collector is described for use in ALGOL 68 


Li 


programs. This garbage coliector collects all ALGOL 68 
data types and requires no pushdown stack. 

The purpose of this thesis was to see if practical 
compilers for ALGOL 68 could be written. It was found that 
such a compiler could be written but that there were some 
language features that could be modified to simplify the 


compiler writing task. 
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INTRODUCTION 
Summary 

The computer language ALGOL 68 is defined by 
[Wijngaarden, A. van (Ed.), Mailloux, B.J., Peck, J.E.L., 
Koster, C.H.A., ene teche Mathematik, 14, 79-218 (1969)]. 
The purpose of this thesis is to develop a practical 
compiler for the language. 

The structure of the language inherently requires that 
the compiler be two-pass, since operators and identifiers 
may be used before their declaration. This compiler is 
essentially two-pass. 

Both passes are syntax-directed. The syntax was derived 
from the report and is an LR(1) production scheme which is 
original in this thesis. The semantics for both passes are 
embedded in the syntax in the form of actions. In pass 1 
the semantics (actions) are mainly concerned with 
constructing the symbol table. In pass 2, the actions 
generate an intermediate output code, which is a modified 
Polish postfix form that is easily converted to the desired 
machine code. The particular intermediate language is 
original and was devised for this thesis. “(mn this 
implementation, pass 3 performs the conversion to HIS-G635 
machine code.) 

ALGOL-68 provides an elaborate set of ccercion rules for 
converting values from one mode to another. Determining in 
a specific instance the correct coercions to apply can be 
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2 
quite complicated. In this thesis, an original and 
elaborate three part algorithm performs this task, and 
appears in pass 2 (a posteriori mode routine, coercion setup 
routine, compile coercion routine). 

Also original in this thesis is the garbage collector, a 
part of both the compile time and run time storage 
allocation functions. The garbage collector is ueenastins 
in that only one bit per word is required for supplementary 
storage in order to carry out the "collection" process (no 


stack is required). 


Brief description of ALGOL 68 

ALGOL 68 is a new language developed from the experience 
gained from ALGOL 60 and has many similar features 
[Wigngaarden, A. van (Ed.), Mailloux, B.J., Peck, J.E.L., 
Koster, C.H.A., “Report on the Algorithmic Language ALGOL 
68", Numerische Mathematik, 14, 79-218 (1969) ]. The block 
structure of ALGOL 60 is retained as well as most of eye 
other features. One difference is that statements in ALGOL 
60 are generalized into clauses in ALGOL 68 and are defined 
to have a value. It is therefore possible to enter a new 
block or range in an arithmetic formula in ALGOL 68 while 
this can be done in ALGOL 60 only with a procedure. 

The 'for' loop in ALGOL 68 is a little more restrictive 


but allows a more efficient implementation. The value of 


the running variable or any of the loop parameters cannot be 
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modified, so the loop can be set up once and none of the 
loop parameters will change. 

ALGOL 68 defines all of the input/output conventions 
including formatted and formatless and binary input/output. 
Even file opening and closing routines are defined. 

One of the major additions in ALGOL 68 is its concept of 
mode. Instead of a finite list of types for values that 
can be manipulated by the program, there are an infinite 
number of types called modes of data that a program could 
manipulate. These data types or modes are defined ina 
recursive fashion and include all of the data types found in 
ALGOL 60. There are also modes specifying higher precision 
than normal and modes specifying structures, procedures, and 
unions. 

A value whose mode is structured consists of an ordered 
collection of values of various modes arranged in fields. 
This collection of values can be manipulated as a unit, or 
the individual constituent values can be manipulated by 
specifying the tag associated with the field. By using 
structured values complex numbers and general list 
structures are handled by ALGOL 68 in a natural way. 

Procedures are values that are actually algorithms or 
routines. Procedure values may be used as elements of 
arrays or structures or may invoke the routine which is 
their value. This invocation may be recursive. Since 


there is no label mode in ALGOL 68, the procedure mode is 
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used for this purpose. Such a procedure is a routine that 
causes a jump to the specified label. In this way the 
environment problems associated with labels are handled by 
the procedure environment handling methods. 

The procedure linkage has been improved in ALGOL 68. 
Since the mode of all values is known at compile time and 
the mode of all formal parameters is also known, all 
necessary mode converting code can be compiled and no checks 
at run time need to be performed. The concept of call by 
name in ALGOIL 60 is not used in ALGOL 68, but any formal 
parameter can be declared to be a procedure. This causes 
the actual parameter to be turned into a procedure (if it is 
not already one) which is executed each time the procedure 
calls on it. This carrys out the effect of the ALGOL 60 
call by name. 

One important feature of ALGOL 68 is that the modes of 
all run time values are known at compile time. However, it 
is sometimes desirable to determine modes at run time. A 
united mode is a mode that represents a value that can be 
one of a list of modes. At run time tests can be made to 
determine which mode a united value really is. This test 
must be performed before using the value so the mode of all 
values at run time is still known at compile time. 

New operators can be declared in ALGOL 68 so vector 
calculations can be written as compactly as numerical 


calculations. Operators are similar to procedures with one 


or two formal parameters. 

ALGOL 68 allows the programmer to generate very general 
list structures, but the programmer is given no way to free 
a particular structure. Instead, a garbage collector is 
used to free all memory that the program can no longer use. 
This makes it impossible for the programmer to inadvertantly 
free a structure that will be used again. 

Arrays in ALGOL 68 are similar to those in ALGOL 60 and 
allow arrays with elements of any mode. Arrays of 
structures or procedures are allowed. By slicing an array 
either an element of the array or a subarray can be 
obtained. 

ALGOL 68 contains several constructions designed to make 
the language more convenient to use. There is a ‘'case' 
clause that is similar to a conditional clause except that 
an integer selects one of several clauses to be executed. 
The value of a case clause is the value of the clause 
executed. 

ALGOL 68 is careful to distinguish between the concepts 
of declaring an identifier and allocating memory. In ALGOL 
60 declarations accomplish both, and these two functions are 
inseparable. In ALGOL 68 declarations assign meaning to an 
identifier but do not allocate space for a value. 

Generators allocate memory but are not associated with any 
identifier. Of course a declaration can associate a 


generator with an identifier but this is not necessary. 
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Generators can be used to generate new elements of a list 
structure whose access is through other elements of the list 


structure. 


BRIEF DESCRIPTION OF THE COMPILER 
General overview 

The compiler is divided into several sections. There is 
the input preprocessor that reads the source program 
character by character and combines groups of characters 
into useful syntactic units. This is the only routine that 
manipulates source program characters. Both pass 1 and 
pass 2 use the input preprocessor to read the source 
program. 

Pass 1 reads the entire source program using the input 
preprocessor and constructs tables containing all 
declarations in the program. Pass 1 also constructs a 
table with entries for every left parenthesis, vertical bar, 
and left bracket in the program. This table will be used 
by pass 2 to enable it to choose the proper syntax for a 
closed clause. 

At the end of pass 1 several of the tables constructed 
during pass 1 are cleaned up. Mode indications are 
replaced by the modes to which they refer in the mode table 
and duplicate modes are combined. Some definitions in the 
DEF table are spurious because of pass 1's limited context 
sensitivity and these are deleted. The length of values of 
all modes is calculated and stored in the mode table. 
Patterns for all modes are also generated. 

Pass 2 then rereads the entire source program via the 


input preprocessor and generates intermediate compiled code 


7 


8 
in table CODE. This intermediate code resembles Polish 
code and contains pointers to the definition tables so that 
the following pass is not cconcerned with any analysis. 
Pass 2 contains all of the coercion routines that determine 
all coercions to be applied to coercends and their order. 

Both pass 1 and pass 2 are syntax directed by a syntax 
written by the author. The syntax used for pass 1 and pass 
2 are in the appendix together with a description of all the 
actions contained in the syntax. 

Pass 3 reads the intermediate code generated in pass 2 
and compiles machine code. At the end of the compiled code 
pass 3 adds ioader information which contains patterns for 
all values used by the program and all external symbol 
definitions and references. Pass 3 also contains a mode 
cannonizer that generates cannonical forms for modes so that 
identical modes in different programs can be recognized by 
the loader with a simple compare operation. 

The loader then loads all necessary library programs, 
binds them together, and executes the resulting code. When 


the program exits the job is terminated. 


Source program scanner 

| Since it would be cumbersome to use a syntax analyzer to 
analyze each character of a program, a small input 
preprocessor is used to buffer the analyzer from the source 


program. It combines one to several characters of the 
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source program into a single syntactic unit which it 
presents to the syntax analyzer. Thus, the analyzer can 
deal with units such as identifiers or numbers without 
having to construct these units out of characters. The 
preprocessor operates as a finite state machine with its 
next state determined from the current state and the eecat 
source character. On the basis of its state the 
preprocessor can cause the source character to be added to 
an internal string, skip a source character, back up the 
source string one or two characters, or look up its internal 
string in a symbol table and give a pointer to the entry to 
the syntax analyzer to analyze. 

Every time the preprocessor is called it returns a 
pointer to an entry in the symbol table (STAB). This entry 
contains a pointer to the string that was matched and a 
pointer to a chain of definitions for the symbol. Routines 
that call the preprocessor never have to deal with source 
program characters as the pointer to the symbol table entry 


contains all the information about the symbol. 


The syntax analyzer 

The syntax analyzer is a small routine that analyzes the 
source program and calls the various routines necessary to 
compile it. It does this by attempting to match the source 
program to a production of 'PROG'. This is done by 


matching the source program against the successive 
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alternatives of 'PROG'. As each alternative is composed of 
names of other productions, the algorithm is recursive. 
The syntax consists of a set of production rules. Each 


production rule has a name and a list of alternatives. 


Each alternative is a list of elements. An element can be 
the name of a production rule or an action. All actions 
are subroutines that return either 'OK' or 'FAIL'. The 


action of the syntax analyzer can be described as a program 


with the following steps: 


Ts Initialize S to be a pointer to the first element 
of the first alternative of the production rule 'PROG'. 

2% If S points to an action then transfer to it. 

If the action returns 'OK' then go to step 4. If the 
action returns 'FAIL' then go to sits 6. 

a5 If S points to the name of a production rule then 
push the pointer S onto the control stack, make S point 
to the first element of the first alternative of the 
production rule pointed to by S, and go to step 2. 

4, OK: If there are no more elements in the 
alternative of the production pointed to by S then pop 
the top of the control stack into S and repeat this step. 

5. Step pointer S so that it points to the next 
element in the current alternative and go to step 2. 

6. FAIL: If the pointer S does not point to the 


first element of an alternative then the syntax analyzer 
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fails and a terminal error message is printed. 

Ls If there is another alternative after the 
alternative pointed to by S then make S point to the 
first element of the next alternative and go to step 2. 

8. Pop the eo of the control stack into S and go to 


step 6. 


There are two types of actions used in the syntax. One 
type of action is a subroutine that performs some function 
of the compiler and always returns with 'OK'. The other 
type of action is a match action and examines the next 
syntactic unit from the input preprocessor to see if it 
matches a syntactic unit specified by the match action. Tr 
it does not match, the match action returns with 'FAIL' 
otherwise the input preprocessor is advanced one syntactic 
unit and the action returns with 'OK', 

Since the analyzer fails if a 'FAIL' return occurs 
anywhere except at the first element of an alternative the 
syntax is arranged with match type actions as the first 
element of each alternative except possibly the last. “The 
other elements of an alternative are then made up of actions 
that usually return ‘'OK' or names of production rules. 

The syntax can be considered as a program with the first 
element of an alternative being a conditional statement and 
the rest of the elements of the alternative being a sequence 


of statements to be executed. Actions correspond to normal 
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statements, and names of production rules correspond to 
recursive subroutine calls. Since the control stack is 
stacked and unstacked as production rules are entered and 
exited, actions can use the control stack for temporary 
storage provi.ded that no such storage is left on the control 
stack at the end of an alternative. Such storage 
corresponds to local storage of a recursive procedure. 
Another stack, called the working stack, is provided for 
temporary storage that does not appear and disappear as 
production rules are entered and exited. The allocation in 
this stack is under the sole control cf the actions. It is 
mainly used to construct lists whose length is not known 
initially. This is accomplished by storing a pointer to 
the current top of the working stack in the control stack. 
The elements of the list are then successively pushed on the 
working stack. The pointer to the old top of the working 
stack is retrieved and all of the words added after this 
point are elements of the list. Structured and united 


declarers are constructed in this manner. 


Tables used by the compiler 

There are several tables that are constructed and used by 
the compiler. Since the size of these tables is unknown at 
the start of compilation, these tables must be allocated 


dynamically. There is a table allocation routine that will 


allocate any specified number of words at the end of any 


13 
table. To do this it may have to move adjacent tables to 
make room. Consequently, all program references to any 
table must be relative to the base of the table as the table 
may be moved at any time. 

Two of the tables aee actually stacks and the allocator 
maintains both a table control word and a top of stack 
pointer for these tables. For the other tables, the 
allocator maintains only a table control word. A table 
control word consists of a pointer to the base of the table 
and its current length. 

The tables are used to store information accumulated 
during each pass and pass it on to the next pass. Since 
the compiler can be described in terms of how it constructs, 
changes, and references the tables, a short description of 


each table is now given: 


WORK (working stack) 

This is a shade which is used by actions during passes 1 
and 2 and by some of the cleanup routines in pass 1.5 to 
store temporary information. Its stacking and unstacking 


is controlled by the actions. 


STACK (control stack) 
This stack is used by the syntax analyzer to remember the 
state of the Surrounding parse. It 1s also used as 


temporary storage by some actions during pass 1 and 2 and by 
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some of the cleanup routines in pass 1.5. 


MODE 

This table contains entries that represent modes. In 
final form all modes are pointers to an entry in this table 
and all constituent modes of a mode are also represented as 


pointers to this table. 


BOUND 
This table contains entries that represent bound 
information of array declarers. Declarers refer to both a 


mode and a bound table entry. 


DEF 

Entries in this table represent declarations in the 
source program. Entries in this table are chained together 
and represent all possible definitions for a given 
identifier ae naieants Entries representing declarations 


in the same range are also chained together. 


PROG 

This table records the parenthesis structure of the 
source program. It is used by pass 2 to anticipate to a 
limited degree the structure of the source program. Every 
left parenthesis, left bracket, and vertical bar in the 


source program creates an entry in this table. 
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STAB 
This is the symbol table. Each entry contains a pointer 
to the external character representation of the symbol and a 


pointer to its definition chain in the DEF table. 


ITAB 
This is the identifier table and contains the character 


strings of all symbols in the source program. 


CODE 
The intermediate code generated during pass 2 is placed 


in this table. 


LBL 

Internally generated labels are integers. During pass 3 
this table is used to store the address of a label anda 
pointer to a chain of addresses that should have this label 


as a value. 


GEN 
The machine language object code and associated loader 


information are put in this table during pass 3. 


TYPE 
A template for every value to be used by the object 


program is stored in this table. These templates will form 
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part of the loader information generated at the end of pass 


3% 


422 
This table contains instruction sequences for standard 
prelude operators. It is used by pass 3 in generating code 


for the standard operators. 


SDEF 

This table contains a list of symbols defined by the 
program. This table is mainly used when creating a new 
library procedure. 

An advantage of organizing all dynamic memory together is 
that no individual table will run out of space unless there 
is no space for any table. There is also no problem of 
guessing how much space should be allocated to a given 
table. A possible disadvantage is that table references 
are slower because all references are relative to a base 
word requiring extra additions and subtractions to change 
relative table references to absolute references and vice 


versa. 


PASS 1 


It is the job of pass 1 to build the MODE, BOUND, DEF, 
and PROG tables. Every time a left parenthesis, vertical 
bar, or a left bracket is encountered in the source program 
an entry is created in the PROG tabie. Encountering a left 
parenthesis or a left bracket causes the routine SRNGE 
(start range) to be entered. This routine stores several 
words in the control stack including a pointer to the entry 
just created. When the matching right parenthesis or 
bracket is encountered these saved words will be restored 
from the control stack by the routine ERNGE (end range). A 
vertical bar is treated as a combination right parenthesis 
and left parenthesis. ERNGE also stores in the table entry 
the number of commas, colons, and semicolons since the last 
left parenthesis, left bracket, or bar not contained in any 
nested set and a flag indicating whether or not the clause 
is a procedure denotation. The PROG table is used by pass 
2 to determine whether a left parenthesis is the start of a 
procedure denotation, parallel clause, serial clause, etc. 

Declarations can only occur after a semicolon, left 
parenthesis, vertical bar, or comma following another 
declaration. There are four types of declarations: mode, 
priority, operation, and identity. Mode declarations have 
three forms: 

MODE X = 
STRUCT X = 


17 


18 

UNION X = 
These forms can be recognized by the use of one of the 
reserved words 'MODE', ‘STRUCT', or 'UNION' followed by an 
unreserved word. When one of the above forms is 
encountered, the mode following the equal sign is evaluated 
and an entry in the DEF table is created defining X as a 
mode indication whose definition is the mode and bound just 
evaluated. 

Priority declarations have only one form: 

PRIORITY X = 
This form can be recognized by the presence of the reserved 
word 'PRIORITY'. When this form is recognized an entry is 
made in the DEF table defining X to have a priority equal te 
the digit following the equal sign. 

Operation declarations have two forms: 

OP X = <procedure denotation> 

OP (<mode sequence>)<mode or empty> = 
Both of these forms can be vésognizea by the presence of the 
reserved word 'OP'. The two forms can be distinguished by 
whether or not the symbol following 'OP' is a left 
parenthesis. If it is the second form then an entry is 
made in the DEF table defining X to be an operator with the 
procedure mode specified by the symbols between the 'OP' and 
the '=', If it is the first form then the entry is made in 
the DEF table defining X to be an operator but no mode 


specified. After the mode of the procedure denotation is 
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known then this procedure mode is inserted in the table 
entry. 
Identity declarations come in several fcrms: 
<mode> X 
<mode> X = 


<mode> X := 


PROC X = <procedure denotation> 

PROC X := <procedure denotation> 
where <mode> is any mode declarer. Unfortunately it is 
impossible in Pass 1 to distinguish identifiers, mode 
indications, and operators from each other making it 
impossible te identify <mode>. ie problem is 
circumvented by treating anything that could possibly be a 
<mode> as one. This can result in some spurious 
declarations but these will be discovered in pass 1.5 and 
deleted. <mode> can only start with one of the following 
constructions: 

[ 

REF 

STRUCT ( 

UNION ( 

PROC 

<unreserved word> 
If it is any construction but the last two then the mode can 
be evaluated with no problem. In the last case an entry is 


made in the MODE and BOUND tables defining the unreserved 
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word to be a mode indication. An entry can now be made in 
the DEF table defining X to be an identifier whose mode and 
bound have just been calculated. If an equal sign does not 
immediately follow X then the mode has a reference inserted 
in front of it. 

When 'PROC' is the first symbol then the situation is 
complicated. If the 'PROC' is followed by a left 
parenthesis then it is a mode and can be handled like the 
other modes. When there is a construction like "PROC X =", 
then if a procedure denotation follows the 'PROC', it should 
be considered to have the same mode as the procedure 
denotation; otherwise, its mode is procedure void. There 
is explicit syntax to handle all of the cases involving the 
symbol 'PROC'. Also, if a closed clause is encountered 
that is age a procedure denotation, it is arbitrarily 
assigned the mode procedure void as an aid to this syntax. 

Labels are Geclared as follows: if the construction "X:" 
is encountered outside of a pair of Grackers: X is declared 
to be a label. Label declarations are treated as identity 
declarations whose mode is the pseudo mode MSLBL. 

Except for potential declarations and constructions 
entered in the PROG table pass 1 ignores all other symbols 
in the source program. There is a production rule for 
'JUNK' that skips all sequences of operators, identifiers, 
and modes, and this production rule is used whenever a 


declaration would be impossible. 
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It is possible in a sequence of declarations to omit the 
reserved word or mode in the second and following 
declarations if it is the same as in the first declaration. 


For example: 


PRIORITY + = 6, ~ = 6; 
is the same as: 
PRIORITY + = 6, PRIORITY - = 6; 


After processing a declaration a check is made to see if the 
declaration is followed by a sequence like ", X =". i a 
is then these symbols are processed as another declaration. 
Otherwise, the production rule for DEC is used. 

At the end of pass 1 all modes, priorities, operators, 
and identifiers have been defined and for each an entry in 
the DEF table has been made with the definition and the 
range for which the definition is valid. Since every entry 
in the PROG table contains a pointer to another entry in the 
PROG table for the surrounding range, the proper definition 
of any symbol can be found by looking for a definition in 


the current range and working out from there. 


PASS 1.5 

After the declaration tables have been constructed in 
pass 1 it is necessary to clean them up before pass 2 uses 
them. This "cleanup" is accomplished by a set of routines 
called "pass 1.5" which is not really a pass at all. 

Since pass 1 puts an entry in the DEF table for anything 
resembling a declaration all spurious declarations in the 
DEF table must be removed. Mode, priority, and operation 
declarations can be accurately recognized during pass 1 and 
are correct. The problem arises with constructions like "X 
Y" where 'X' may be a mode indication. and "X Y" a 
declaration declaring 'Y' to be an identifier of mode 'X' or 
‘REF X', ‘'X' might also be a unary Soses eee in which case 
‘y' is not declared to be anything. To discover which case 
is true the routine looks up 'X' in the symbol table. If 
'x' is a mode then the declaration is good. If 'X' is a 
priority or an operator then the declaration is spurious. 

If 'X' is an identifier then the declaration is spurious if 
the declaration for 'X' is not spurious. In the last case 
the routine calls itself recursively. If the declaration 
for 'X' is not spurious then the declaration for 'Y' is 
spurious. Otherwise, the spurious declaration for 'X' is 
deleted and another definition for 'X' is sought. When all 
of the identifier definitions have been checked all spurious 
declarations have been eliminated. While this routine is 
checking for spurious declarations it also checks for 
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symbols that are multiply defined in the same range. If 
two definitions for the same symbol are found in the same 
range, a message is printed and one of the definitions is 
deleted. 

Once the DEF table is corrected, the MODE and BOUND 
tables can be corrected. This routine finds every entry in 
the MODE or BOUND tables that is a mode indication. These 
entries should be replaced by the definition of the mode 
indication. When a mode indication entry is found the 
indication is looked up in the DEF table and its definition 
discovered. The entry in the MODE or BOUND tabie is then 
replaced by an 'XFER' entry that has a pointer to the true 
mode or bound. When this routine is completed all mode 
indications have been replaced by an 'XFER' entry pointing 
to an equivalent entry. 

At this point the MODE table is correct although a single 
mode may be represented by several entries in the MODE 
table. It is necessary in pass 2 to be able to tell if two 
modes are equivalent. This routine replaces all but one of 
the entries referring to the same mode by 'XFER' entries. 

An 'XFER' entry contains a pointer to another mode table 
entry. A pointer to a mode table entry is made 'unique' by 
examining the table entry to which it points. If the table 
entry is an 'XFER' entry then the original pointer is 
replaced by the pointer found in the mode table entry. 


This process is repeated until the entry pointed to by the 
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mode pointer is not of type 'XFER'. Two pointers refer to 
the same mode if they are both made unique and then refer to 
the same mode table entry. The routine that changes 
selected entries in the mode table to type 'XFER' is based 
on an algorithm by C. H. A. Koster who makes the 
observation that two modes are equivalent if they cannot be 


proved to be dissimilar. The algorithm works as follows: 


Vs If the two modes are of different types e.g., 
STRUCT and UNION, then the modes are not equivalent. 

26 If the two modes are of the same type and length 
(two STRUCTs with the same ee of fields) then the two 
modes are postulated to be equivalent and the two modes 
are equivalent if and only if all of the constituent 
modes and tags are equivalent or postulated to be 
equivalent. 

cr If two modes are equivalent then all postulates 


made to show the equivalence are true. 


This equivalence algorithm is applied to every pair of modes 
in the MODE table. If the two modes are discovered to be 
equivalent then one of the modes is replaced by an 'XFER' 
entry scones to the other mode. When this routine is 
completed there is a unique entry associated with every mode 
of the source program. This algorithm must terminate 


because each step postulates two modes to be the same. 
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Since this can be done only a finite number of times before 
all given modes are postulated equivalent, the algorithm 
must terminate. 

The next routine scans the DEF table for all label 
definitions. It assigns a unique integer to each label. 

The next routine scans the mode table and enters in every 
valid entry the length of a value of the mode and a pointer 
to a pattern (stored in the TYPE table) for the value. The 


routine operates according to the following principles: 


Te All primitive modes have their lengths and types 
predefined. 

2s All procedure modes have a length of 4 and a 
pattern pointer 'PROCT'. 

3. All structure modes have a length that is the sum 
of the lengths of its fields and a pattern that is the 
concatenation of the patterns for its fields. | 

4. All united modes have a length one more than the 
length of the longest constituent mode and a pattern of 
two words the first of which is 'UNT1' and the second is 
minus the length of the longest constituent mode. 

Sis Reference modes that do not refer to row modes 
have a length of 1 and a pattern of 'PTR'. Reference 
modes that do refer to row modes have the same length and 
pattern as the row mode to which it refers. 


6. Row modes have a length of 4n + 1 where n is the 
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number of dimensions of the row mode and a pattern of n + 
1 words. The first word of the pattern is 'PTR' and all 


the rest are 'QUAD'. 


The next routine rewinds the source file and prepares the 
input preprocessor to reread the source program. 


This is the end of pass 1.5. 


PASS 2 
Pass 2 rereads the source program and, with the help of 

tables constructed in pass 1, generates a Polish-like output 
code that completely describes the computation indicated by 
the source program. There are several constructions that 
pass 2 must recognize in the source program and each will be 
discussed separately. The constructions are: 

identifiers 

Labels 

Primitive denotations 

Slices 

Calls 

Selections 

Generators 

Monadic formulas 

Dyadic formulas 

Assignations 

Conformity relations 

Identity relations 

Casts 

Serial clauses 

Conditional clauses 

Case clauses 

Conformity case clauses 

Parallel clauses 

Procedure denotations 
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Declarers 

Declarations 
Each of the above constructions produces appropriate Polish 
code so pass 3 does not have to make any further reference 
to the source program. The coercion process and the 
operator identification routine are major parts of pass 2 
and are described separately in their own section. 

During pass 2 the control stack is used for temporary 
storage during the interpretation of a syntax alternative. 
The working stack is used during the compilation of 
declarers to store partially constructed declarers in the 
same manner as pass 1. The main use of the working stack 
is to store five word blocks that describe a value in the 
run time stack. The format of a five word value control 
block is: 

[type flag, number of parallel values] 
[mode of value] 
[location and length of code calculating value] 
[lexicographical level bit word] 
[-5, 0] 
The value control blocks stored in the working stack during 
pass 2 mirror the values that will appear in the local run 


time stack when the object program is executed. 
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Identifiers 
Identifiers cause a 'OSIDENT' code word with a pointer to 
the DEF table for the identifier to be added to the 
intermediate code. A value control block is pushed onto 


the working stack containing the mode of the identifier. 


Labels 
A label is compiled by adding a 'OSLBL' code to the 
intermediate output with a parameter that is unique. 


References to the label will use the same unique number. 


Primitive denotations 

Primitive denotations are all denotations except 
procedure denotations. This includes integral, real, and 
string denotations. The character string representing the 
denotation is converted to an appropriate internal 
representation (as converting a number to floating point) 
and an entry in the DEF table is created for the denotation 
containing the internal representation. Then a 'OSDENOT' 
code is added to the intermediate code with a pointer to the 
newly created DEF table entry. A value control block with 


the mode of the denotation is pushed onto the control stack. 


Slices 
A slice is a primary followed by a left bracket followed 


by a list of indexers separated by commas followed by a 
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right bracket as "A[B, I : J AT K]". A slice is compiled 
by first compiling its primary and weakly coercing it to a 
row or reference to row mode. Then a 'OSSUB' code is added 
to the intermediate code followed by the code generated by 
compiling the iavewens in sequence followed by a 'OSBUS' 
code with the mode of the resulting slice. 

The code generated by each of the indexers depends on the 
type of the indexer. If the indexer is empty (i.e., 
contains no bounds) a 'OSVEPTY' code with the position 
number of the indexer is added to the intermediate code. 

If the indexer is a subscript then the subscript is compiled 
and strongly coerced to integral and a 'OSVSBCT' code with 
the index position added afterwards to the intermediate 
code, The value control block for the coerced subscript is 
then deiwewa from the working stack. If the index position 
is a trimmer then each bound in the trimmer is compiled and 
strongly coerced to integral. Then the intermediate code 
for each bound is followed by 'OSVLWB' for a lower bound, 
‘OSVUPB' for an upper bound, and 'O$VNLWB' for a new lower 
bound. The value control block for the bound is then 
deleted from the working stack. 

For example, the slice: 

A[B,,:C,D:E AT F] 
compiles as: 
[primary A] 


SUB Beginning of subscript expression 
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{tertiary B] 
VSBCT 1 First indexer is subscript 
VEPTY 2 | Second indexer is empty 
ieertiney Cc] 
VUPB 3 Third indexer contains upper bound 
[tertiary D] 
VLWB 4 Fourth index contains lower bound 
[tertiary E] 
VUPB 4 Fourth index contains upper bound 
[tertiary F] 
VNLWB 4 Fourth index has new lower bound 
BUS mode Mode of slice 
Pass 3 actually calculates all of the bounds before starting 


any indexing operations. 


Calls 
Calls consist of a primary followed by a list of units 
surrounded by parentheses. The primary is supposed to be a 
procedure and the units are its actual parameters. A call 
is compiled by compiling its primary and firmly coercing it 
to a procedure mode. A 'OSMSCW' code is then added to the 

intermediate code. The list of units surrounded by 
parentheses is compiled as a parallel clause which is a 
structure display. This display is then strongly coerced 
to a structured mode having the modes of its fields the same 


as the modes of the parameters of the procedure. Both the 
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value control block for the display and the procedure are 
deleted from the working stack. A value control block 
having the mode of the result of the procedure is then 
pushed onto the working stack and a 'OSENTER' code with the 


result mode is added to the intermediate code. 


Selections 

A selection consists of a tag followed by the symbol 'OF' 
followed by a secondary. A pointer to the tag symbol in 
the STAB table is stored in the control stack. The 
secondary is then compiled and weakly coerced. The tag is 
recovered from the control stack and the mode of the coerced 
secondary is examined. The mode must be either struct(...) 
or ref struct(...). If it is not there is a source program 
error. The structured mode is searched for a field whose 
tag matches the given tag. If no such field is found it is 
a source program error. If the msdecor the coerced 
secondary is struct(...) then a 'OSSELCT' code is added to 
the intermediate code. Otherwise a 'OSRSLCT' code is 
added. The field number of the desired field is also added 
to the code. The top value control block in the working 
stack which corresponds to the coerced secondary has its 
mode changed to the mode of the selected field. If the 
original mode was a referenced mode then the new mode is 
changed to a reference to the mode of the field. The code 


"OSETC' with the mode of the value control block is added to 
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the intermediate output. 


Generators 

Generators appear in the source program as declarers. 
When a declarer in the source program is recognized by the 
syntax as a generator, a value control block is pushed into 
the working stack with a mode of the declarer. A code word 
"OSLGEN' for a local generator or 'OSHGEN' for a heap 
generator containing the mode of the generator is added to 
the intermediate code. Then a 'OSBOUND' code with a 
pointer to the BOUND table entry of the declarer is added to 


the intermediate code. 


Monadic formulas 

A monadic formula is an operator followed by a secondary. 
A pointer to the STAB table entry for the operator is stored 
in the control stack. The secondary is then compiled. 
The pointer to the STAB table entry for the operator is 
retrieved from the control stack and the operator 


identification routines are called. 


Dyadic formulas 

In the case of dyadic formulas the syntax does not parse 
the source program into proper components. To parse a 
program correctly would require the operator syntax to be 


repeated ten times - one for every priority level possible 
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for an operator. It would also require matching "priority 
five operator" which is not convenient. Instead the syntax 
parses dyadic formulas from left to right and lets the 
actions compile the proper code to group operands in the 
proper sequence. Whenever the syntax recognizes a dyadic 
operator it obtains the priority of the operator and calls 
the operator identification routine to compile any previous 
higher priority dyadic operators. Then a value control 
block of type 'WSOP' is pushed onto the working stack. 
This value control block refers to the previous ‘'WSOP' value 
control block if any and contains the priority of the 
operator and a pointer to the operator's STAB table entry. 

Whenever the end of a dyadic formula is encountered in 
the source program all dyadic operators in the working stack 
are compiled by assuming a following priority zero operator 
and calling the operator identification routine. This 


assumed operator is never stored in the working stack. 


Assignations 


An asSignation is a tertiary followed by a 'becomes' 


symbol (':=') followed by a unit. The tertiary is compiled 
and softly coerced. The mode of the coerced tertiary is 
remembered in the control stack, The unit is then compiled 


and strongly coerced to a mode that is the mode remembered 
in the control stack dereferenced once. The top two value 


control blocks in the working stack are combined into one 
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and a 'ASGN' code is inserted in front of all code for the 
assignation and a 'ASGNE' is added after all code. Each 
code has the mode of the assignation associated with it. 
The mode of the assignation remembered in the control stack 


is then deleted. 


Conformity relations 

Conformity relations allow the programmer to discover the 
current mode of the value of a united value and make this 
contained value available to the programmer. In the 
conformity relation: 

A ::= B 

The tertiary B is to be evaluated first. If the current 
mode of the value of B can be assigned to A (if the mode is 
correct) then it is assigned to A and the value of the 
conformity relation is true. Otherwise no assignation 
takes place and the value is false. Notice that the 
tertiary B is evaluated before the tertiary A and that A 
might not be evaluated. This backwards elaboration 
requires some branching back and forth to make the 
elaboration order correct. If the '::=' symbol is replaced 
by a '::' symbol the meaning is the same except that the 
asSignation never takes place and the left tertiary is never 
evaluated. The intermediate code generated for the above 
code is: 


TRA # 1 Generated label 
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MREF Allocate space 
LBL #2 Generated label 
CONF mode Mode of tertiary 
TF #3 Generated label 
MREF Allocate space 


[tertiary A] 


CASGN ref mode Do assignation 


TRUE Get true value 
TRA #4 Generated label 
LBL # 1 Generated label 
MAX Protect temporary memory 


[tertiary B] 


CONE Save pointer to B 
TRA #2 Generated label 
LBL #3 Generated label 
FALSE Get false value 
LBL #4 Generated label 


Conformity relations are unique in that they require a run 
time execution different from the order in the source 


program. 


Identity relations 

An identity relation consists of a tertiary followed by 
either a ':=:' or a ':/=:' followed by another tertiary. 
The two tertiaries are compiled. A value control block of 


type 'WSBAL' with a count of two is then pushed onto the 
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working stack, The coercion routine is called to calculate 


the a posteriori mode of a soft coercion applied to the top 


value control block in the working stack. This is the mode 
to which both tertiaries are to be coerced. Each tertiary 
is then coerced separately to this mode. The working stack 


now contains three value control blocks from the identity 
relation: two value control blocks for the two tertiaries 
and the 'WSBAL' value control block. These three value 
control blocks are combined into one block and the mode is 
set to boolean. For example, the identity relation 

A :=: B 
compiles as: 

[tertiary A] 

[tertiary B] 


IS 


Casts 

Casts consist of a virtual mode declarer followed by a 
colon followed by a unitary clause and surrounded by 
parentheses. The unitary clause of the cast is compiled 
and then strongly coerced to the mode specified by the 


declarer. 


Serial clauses 
Serial clauses are made up of declarations, labels, and 


clause trains. All of the declarations must occur before 
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the first label or end of a clause train. A clause train 
is made up of a sequence of units. A serial clause is 
compiled by compiling its constituents in sequence. 
Whenever a unit that is not the last unit of a clause train 
is compiled the value of the unit is strongly coerced to 
void and all value control blocks associated with it are 
deleted from the working stack. When a serial clause is 
completely compiled, the working stack contains value 
control blocks arising from the final units of the clause 
trains. A value control block is now pushed onto the 
working stack of type 'WSBAL' that contains a count of the 
number of clause trains in the serial clause. When the 
serial clause is coerced the collection of value control 
blocks will be replaced by one value control block for the 


serial clause. 


Conditional clauses 
A conditional clause has the form: 
(ANB\C) 

where A, B, and C are serial clauses. The serial clause A 
is compiled and strongly coerced to boolean. A transfer 
false code is generated that transfers to a generated label. 
All value control blocks associated with the serial clause A 
are deleted from the working stack. The serial clause B is 
then compiled. rt is followed by a code to unconditionally 


transfer to a second generated label and a code to define 
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the first generated label. The serial clause C is then 
compiled followed by the defining of he second generated 
label. A value control block of type 'WSBAL' with a count 
of two is then pushed onto the working stack so that the 
coercion routines will coerce B and C simultaneously. The 
resulting intermediate code is as follows: 

[serial clause A] 

TF #1 Generated label 

[serial clause B] 

LBL #1 Generated label 

[serial clause C] 

If a conditional clause has its last clause missing then 
an else clause consisting of 'SKIP' is assumed and the 
conditional clause is compiled in the normal manner. 

Conditional clauses can be extended by using 'thenf' or 
"elsf' symbols ('\:'). These extensions are handled in an 
identical manner as the basic conditional clause. In the 
case of an ‘elsf' symbol as in 

(AN B\: C\DN\E) 
the serial clauses C, D, and E are a conditional clause that 
is the else clause of another conditional clause. Both 
conditional clauses are compiled in the same way. In the 
case of the 'thenf' symbol as in 

(A\: BNCX\D) 
the serial clauses B, C, and D form a conditional clause 


that is the then clause of another conditional clause. The 
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B, C, and D clauses are compiled into a conditional clause 
in the normal manner but the outer clause is missing an else 
part. A 'SKIP' is compiled for the else part then the 


outer conditional clause is compiled in the normal manner. 


Case clauses 

A case clause is similar to a conditional clause except 
that the clause to be executed is selected by an integral 
value rather than a boolean value. An example of a case 
clause is: 

(ANB,C,DNE) 

A and E are serial clauses and B, C, and D are unitary 
clauses. The serial clause A is compiled and strongly 
coerced to integral. A 'CASE' code with an argument of n 
followed by n+ 1 'TRA' codes are then generated where n is 
the number of unitary clauses separated by commas in the 
case clause, All value control blocks associated with the 
A clause are then deleted from the working stack. The 
unitary clauses B, C, and D are then compiled with labels 
inserted in front of each unitary clause. A value control 
block of type 'WSBAL' with a count of n is then pushed onto 
the working stack. Then the serial clause E is compiled 
and a lahel inserted in front of this compiled code. A 
value control block of type 'WSBAL' with a count of two is 
then pushed onto the working stack. 


The resulting intermediate code has the following form: 
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[serial clause A] 


CASE 3 Number of unitary clauses 
TRA #4 Generated label 
TRA #1 Generated label 
TRA #2 Generated label 
TRA #3 Generated label 
LBL #1 Generated label 


[unitary clause B] 
LBL #2 Generated label 
{unitary clause C] 
LBL #3 Generated label 
{unitary clause D] 
LBL # 4 Generated label 
[serial clause E] 
If the last serial clause is missing then a SKIP is assumed 


and compilation proceeds normally. 


Conformity case clauses 
A conformity case clause is a case clause except the 
selection of the clause to be executed is determined by a 
set of conformity relations. The format of a conditional 
case clause is: 
(A,B, Cro=D\E,F,GN\#) 


This is equivalent to the following clause: 
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This example should execute by first evaluating the tertiary 
D and then checking whether or not it conforms to A or B or 
C and doing appropriate assignments and transfering to the 
appropriate clause E, F, G, or H. The intermediate code 


generated for the above example is: 


TRA #1 Generated label 
MREF Allocate space 
LBL #2 Generated label 
CONF mode Mode of tertiary 
TF #3 Generated label 
MREF Ri LGeabe space 


{tertiary A] 


CASGN ref mode Do conformity 


TRA #6 Generated label 
MREF Allocate space 
LBL #3 Generated label 
CONF mode Mode of tertiary 
TF #4 Generated label 
MREF Allocate space 


[tertiary B] 

CASGN ref mode Do conformity 
TRA #7 Generated label 
MREF Allocate space 


LBL #4 Generated label 
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CONF mode Mode of tertiary 
TF #5 © Generated label 
MREF Allocate space 


[tertiary C] 


CASGN ref mode Do conformity 


TRA #8 Generated label 
MREF Allocate space 
LBL #5 Generated label 
TRA #9 Generated label 
LBL # 1 Generated label 
MAX Protect temporary memory 


[tertiary D] 


CONE Save pointer to D 
TRA #2 Generated label 
LBL #6 Generated label 


[tertiary E] 
TRA #10 Generated label 
LBL #7 Generated label 
[tertiary F] 
TRA #10 Generated label 
LBL #8 Generated label 


[tertiary G] 


LBL #10 Generated label 
TRA #11 Generated label 
LBL #O Generated label 


[tertiary H] 


44 
LBL #11 Generated label 
If the last clause is missing a SKIP is assumed and 


compilation proceeds normally. 


Parallel clauses 

Parallel clauses consist of a list of unitary clauses 
separated by commas and surrounded by parentheses. 
Parallel clauses can be used as either row displays or 
structure displays. In either case code is generated for 
each of the constituent unitary clauses and a set of value 
control blocks is pushed onto the working stack for each of 
the unitary clauses. When all of the unitary clauses have 
been compiled a 'WSPAR' type of value control block is 
pushed onto the working stack that contains a count of the 
number of constituent unitary clauses in the parallel 
clause. This collection of value control blocks will be 
combined into a single value control block by the coercion 
routines. | 

The compiler considers the actual parameters pack ina 
procedure call to be a parallel clause. This allows the 
coercion required for the actual parameters to be done by 


the same coercion routines as do the structure displays. 


Procedure denotations 
Procedure denotations consist of a list of formal 


parameters surrounded by parentheses followed by a possible 
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mode and a colon and followed by its body. Each formal 
parameter causes a 'OSFORMP' code to be generated with a 
pointer to the DEF table entry of the formal parameter as 
its argument. The modes of the formal parameters are 
successively stored in the working stack. After the formal 
parameters are scanned the mode of the result is scanned and 
also stored in the working stack. The list of modes of the 
formal parameters in the working stack and the mode of the 
result are considered to represent a procedure mode whose 
parameter modes are the same as the modes stored in the 
working stack and having the same result mode. This mode 
is found in the mode table and a pointer to the table entry 
in the mode table representing this mode is stored on the 
control stack. The list of modes representing the formal 
parameters are then deleted from the working stack. The 
body of the procedure is compiled causing value control 
blocks to be stored in the working stack representing its 
value. The mode of the body is recovered from the mode of 
the procedure denotation stored in the control stack and the 
body is strongly coerced to this mode. Then the mode of 
the procedure is recovered from the control stack and the 
routine PCDR is called to make a procedure value out of the 
body. For example, the procedure denotation: 

(REAL X) REAL : X 
generates the following Polish code: 


TRA . #1 Generated label 
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EPDN #2 Generated label 

LL L LL of scope of procedure 

SRNGE R Range of procedure denotation — 
FORMP X Formal parameter 

IDENT X Body of procedure 

ERNGE R Range of procedure denotation 
RETN REAL Mode of result 

LLE L1 LL of surrounding range 

LBL # 1 Generated label 


EPDV PROC(REAL) REAL Mode of procedure 
EPDE #2 Generated label 
The scope of a procedure is defined as the smallest scope | 

of any of the constituents of the procedure that are not 
local. In order to calculate the scope of a procedure 
every value in the working stack contains a bit word 
indicating which nonlocal identifiers, operators, labels, or 
declarers were used in calculating the value. Each bit 
position corresponds to the level difference between the 
current level and the level of the identifier etc. 
Whenever a range is exited, all of the bit words in the 
value control blocks belonging to the exited range are 
shifted left one position. This makes the bit words 
correct for the external range. The scope of a procedure 
is calculated as the range corresponding to the first bit 
that is on in the bit word of the value control block for 


the procedure body. 
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Declarers 

A declarer is generally used to specify a mode. The 
ALGOL 68 report defines three types of declarers: virtual, 
actual, and formal. Virtual declarers are used only to 
specify a mode. This mode is used only at compile time and 
generates no object code directly. Actual declarers appear 
in mode declarations and in generators. Mode declarations 
associate a source program symbol with a declarer for use in 
other declarers. Generators cause the allocation of 
storage at run time to contain a value of the specified 
mode. The bounds of all constituent arrays must also be 
specified and this is the major difference between virtual 
and actual declarers. The run time form of an actual 
declarer is a set of procedures that define the bounds and 
states of all constituent arrays in the declarer. (Formal 
declarers in the current implementation are treated as 
virtual declarers. If they were not they would compile as 
bound and state checking procedures. These procedures 
would have no effect except the production of terminal error 
messages when a bound or state was wrong.) 

Since the definition of mode is recursive the evaluation 
of a declarer is also recursive. During the analysis of a 
declarer the working stack is used to hold the partial 
development of the declarer. In the case of an actual 
declarer intermediate code is generated for each set of 


bound tertiaries enclosed in brackets as follows. When the 
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left bracket is encountered a transfer around the following 
code is generated followed by three codes defining the start 
of a procedure denotation. Each tertiary that is a bound 
is compiled and strongly coerced to an integral mode. The 
value control block for the coerced tertiary is deleted from 
the working stack and the intermediate code for the tertiary 
is followed by a 'OSLWB!' or ‘'OSUPB! with dimension number 
for lower bound or upper bound respectively and a 'OSFIX' or 
"OSFLEX' code with dimension number for a fixed or flexible 
bound respectively. When all bounds have been compiled and 
the right bracket is encountered a 'O$DBUS' code with the 
mode of an element is added to the intermediate code. Then 
the codes 'OSRETN', 'OSLLE', 'OSDLEN', and 'OSLBL' are added 
to the intermediate code. Since a procedure value for the 
procedure denotation compiled for arrays in declarers does 
not exist, calling such a procedure is slightly different. 
Two labels defined by the procedure denotation are stored in 
the PROG table for the pseudo-range between brackets and 
these bet are the starting address of the procedure and a 
location containing the amount of static temporary storage 
the procedure needs. With this information the caller can 
construct a procedure value and use it in the normal way. 
For example, the declarer: 

[A : B FLEX, C FLEX : D] REAL 
causes the following intermediate code for the array part of 


the declarer to be generated: 


TRA #3 
EPDN- #1 

LL range 
DSUB 


[tertiary A] 
LWB 1 
FIX 1 
[tertiary B] 
UPB 1 
FLEX 1 
pearkiaey C] 
LWB 2 
FLEX 2 


[tertiary D] 


UPB 2 
FIX 2 
DBUS mode 
RETN void 


DLEN- #2 


LBL #3 
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Generated label 
Generated label 
Range defined by brackets 


Start procedure denotation 


First lower bound 


Bound is fixed 


First upper bound 


Bound is flexible 


Second lower bound 


Bound is flexible 


Second upper bound 

Bound is fixed 

Mode of element 

Value of result is void 

Range of procedure environment 
Generated label 


Generated label 


Pass 3 will define the label of the 'OS$DLEN' code to be a 
storage location containing the required length of static 
temporary storage needed by the procedure. If a declarer 


is a structure containing two arrays then two procedures are 


compiled. 
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Declarations 

There are four kinds of declarations: mode declarations, 
priority declarations, operation declarations, and identity 
declarations. 

Mode declarations ave compiled by compiling the actual 
declarer of the declaration and ignoring the rest of the 
declaration. All table entries for the declaration were 
created during pass 1 so pass 2 can skip entering the mode 
in tables. 

Priority declarations define the priority of an operator. 
They result in no compiled code and as pass 1 has created 
the appropriate table entry for the declaration, pass 2 can 
ignore the entire declaration. 

Operation declarations associate a procedure with an 
operator. Operation declarations are compiled exactly as 
are identity declarations by assuming that the operator is 
an identifier with the mode of the procedure associated with 
it. 

Identity declarations associate a value of a particular 
mode with an identifier. There is an extension to the 
language that permits constructions like 

REF REAL X = LOC REAL 
to be shortened to 
REAL X 
but the syntax treats both forms in an identical manner and 


both forms result in exactly the same intermediate code. 
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An identity declaration consists of a formal declarer (but 
this implementation requires a virtual declarer) followed by 
an identifier followed by an equals symbol followed by unit. 
The mode of the declarer is evaluated and saved. A pointer 
to the DEF table entry for the identifier is saved. The 
unit is compiled and strongly coerced to the mode specified 
by the declarer. A 'TOSIDNTY' code with a pointer to the 
identifier's DEF table entry is inserted in the intermediate 
code before the code for the coerced unit and a 'OSIDNTE' 


code is added after the code for the coerced unit. 


The operator identification process 

In ALGOL 68 several declarations for the same onerator 
may be valid at the same time. It is up to the compiler to 
determine which of the definitions is to be used at each 
occurence of an operator. Conceptually, the process is 
Simple. If the operands of an operator can be firmly 
coerced to the modes required by a declaration then that 
declaration is the one to be used. Otherwise, other 
definitions must be tried. Operators declared in the 
innermost range are tried first and operators declared in 
successively larger enclosing ranges are tried if the 
preceeding operators are inappropriate. Of course no 
coercions are actually applied to the operands until it is 
known which definition for the operator will be used. 


In the present compiler, operators declared in the 
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standard prelude are applied even though strong coercions 
are necessary for its operands. This is done to reduce the 
number of declarations needed in the standard prelude for 
operators such as '+' which is defined for all combinations 
of the modes integer, real, and complex. This allows using 
the definition for a (REAL, REAL) REAL '+' when one of the 
operands is real and the other is integral. The integral 
operand can be strongly coerced to the mode real before 
applying the operator. The ability to use strong coercions 
on the operands greatly reduces the number of operators that 
need to be defined. 

If the operator is identified as a user defined operator 
then a standard procedure call to the operator procedure 
with its operands as formal parameters is compiled. 
Otherwise, if the operator is identified as a standard 
prelude operator, code for the operands is compiled followed 
by a 'OSOPE' command with a pointer to the STAB table entry 
for the operator as a parameter. Pass 3 will generate 


inline code instead of a procedure call in this case, 


The coercion process 

One of the distinguishing characteristics of ALGOL 68 is 
its coercion process. Most computer languages have a set 
of informal rules for automatically changing one type of 
value to another. For example, a procedure without 


parameters is called if it appears in an arithmetic formula 


53 

and the result of the procedure call is used. In ALGOL 68 
there is an infinite number of possible automatic mode 
changing operations and these have been formalized in the 
coercion process. There are eight coercions: 
deproceduring, dereferencing, proceduring, uniting, 
widening, rowing, hipping, and voiding. Each coercion is 
capable of converting a value of one class of modes into a 
value of a related class of modes. Not all coercions are 
allowed everywhere in the program. In some places all 
coercions are allowed while in others only some of the 
coercions are allowed. Every syntactic position in which a 
value can be specified is given a "Strength" indicating 
which coercions are allowed. Strong positions (actual 
parameters in procedure calls, the right hand side of an 
assignation, the first serial clause in a conditional or 
case clause, subScripts) allow all of the coercions to be 
used. Firm positions (operands in formulas, the procedure 
in a procedure call) allow only deproceduring, 
dereferencing, proceduring, and uniting coercions. Weak 
positions (the array value in a slice, the secondary in a 
selection) allow only deproceduring and dereferencing. 
Soft positions (the left hand side of an assignation, one of 
the sides of an identity relation) allow only deproceduring. 

The coercion process is further complicated by 
"balancing". If a conditional clause can return one of two 


values then both values must have the same mode. However 
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coercion may be used to make the modes the same. 
Furthermore, while only coercions allowed by the strength of 
the position of the conditional clause may be applied to one 
of the values, the other value is in a strong position and 
any coercion can be used. It is not obvious which value is 
strong so it is not obvious which value might determine the 
mode of the conditional clause. A similar problem arises 
in row displays where one of the elements in the display may 
be firm and determine the mode of the row value and all of 
the other elements may be strong. 

The coercion routines are divided into several parts: 
routines to determine the a posteriori mode in the coercion 
process, routines to construct the actual coercion sequence, 
and routines to use the coercion sequence list and actually 
perform the coercion. By separating the coercion routines 
in this way the individual routines can be simplified. For 
strong coercions the a posteriori mode is known so the 
coercion list can be set up and coercions performed. If 
the coercion process fails then the source program is in 
error. There are two types of firm positions: Operands and 
primaries in procedure calls. In the case of operands the 
a posteriori mode is discovered by the operator 
identification routine. In the case of a primary in a 
procedure call the a posteriori mode is found by the a 
posteriori mode routine. Weak positions are values that 


are sliced or selected and the a posteriori mode is 
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discovered by the a posteriori mode routine. Soft 
positions also use the a posteriori mode routine to discover 
the a posteriori mode but in the case of an identity 
relation the two sides are balanced before the coercion 
routines are called. A short description of the coercion 


routines follows. 


owner eer Sue. eee eT “TEs 


The a posteriori mode routine requires a pointer to where 
in the working stack the value control block for the value 


to be coerced is stored and the strength of the coercion 


(firm, weak, or soft). It returns the a posteriori mode 
for the coercion process, Basically the discovery of the a 
posteriori mode is simple. It is complicated by the 


possibility of balanced expressions where any of the 
constituent values may determine the a posteriori mode. 
The algorithm used to determine the a posteriori mode is as 


follows: 


de Set the depth counter to zero and set a pointer 
to the value control block to be coerced and call it the 
current value control block. Also clear the target mode 
and zero out the saved mode count. 

2. If the current value control block is of type 
"WSPAR' then there is a source program error. 


3. (If the type of the current value control block is 
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of type 'WSSKIP', 'WSNIL', or 'WSVAC' or if the mode of 
the current value control block is 'MSLBL' then go to 
step 30. 

4, If the current value control block is not of type 
'WSBAL' then go to step 7. 

Se Increment the depth counter by the count in the 
value control block. This is a count of the number of 
balanced values. 

6. Go to step 30. 

7. Clear target mode, zero mode count, clear temp 1 
and temp 2. 

8. Get the mode of the current value control block 
and call it the current mode. Deprocedure this mode as 
many times as possible. 

o'. If the resulting current mode is not reference to 
something then go to step 14. 

10. Store current mode (which is a reference mode) 
in temp i. 

i fal ae Store current mode in temp 2. 

12 Dereference or deprocedure the current mode 
(whichever is appropriate) and increment the mode count 
by 1. 

13. If the current mode can be dereferenced or 
deprocedured then go to step 11. 

14. If it is not a soft coercion then go to step 21. 


15. ° If temp 1 is clear then it is an error. 
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16. If the target is clear then go to step 18. 

TT If the mode count is larger than the saved mode 
count then go to step 30. 

18. Store the mode saved in temp 1 in target mode. 

19. Store the mode count in the saved mead count. 

20. Go to step 30. 

21. If the target mode is not clear then go to step 
28. 

22% If this is a firm coercion then go to step 26, 

236 If temp 2 is clear then go to step 26. 

24. If temp 2 does not contain a reference mode then 
go to step 26. 

20% Store the contents of temp 2 in target mode and 
go to step 30. 

26. Store current mode in target mode, 

27. Go to step 30. 

28. If target mode is not a reference mode then go 
to step 30. 

29. Store current mode in target mode. 

30. Step the pointer to the current value control 
block back one block deeper in the working stack. 

31. Decrement the depth counter by one. 

32% If the depth counter is still positive then go 
to step 2. 

33. If the target mode is clear then there is a 


source program error otherwise return the target mode as 


58 


the a posteriori mode, 


The coercion setup routine 

The coercion setup routine constructs a detailed list of 
coercion instructions in the control stack for coercing the 
value specified by a given value control block in the 
working stack (the a priori mode) to a given a posteriori 
mode. The algorithm is recursive and handles balanced 
expressions and displayed values. As the algorithm is 
rather complicated a simplified explanation is given first. 

Of the eight coercions only dereferencing and 
deproceduring make a mode "Simpler" while all of the others 
make a mode "more complicated". Therefore, a coercion 
sequence will start with deproceduring and dereferencing and 
end with other coercions. The basic scheme is to 
deprocedure and dereference the a priori and a posteriori 
modes as much as possible and check if the results are the 
same. if so, a coercion sequence can be constructed by 
coercing the a priori mode to its reduced mode and then 
reversing the coercion sequence from the a posteriori mode 
to its reduced mode. Of course referencing is not allowed 
and deproceduring followed by proceduring and dereferencing 
followed by referencing must be deleted from the sequence. 
If the two reduced modes are not the same then the reduced 
mode of the a priori mode must be united, widened, or rowed. 


What is actually done is to "“unwiden", "unrow", or "“ununite" 
f 
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the reduced mode of the a posteriori mode and again find the 
reduced mode of the resulting mode, (In the case of 
ununiting all of the alternative modes must be tried in 
succession until successful.) If the a priori anda 
posteriori reduced modes ever match then a coercion sequence 
can be constructed. In the case of a skip, nil, vacuum, or 
label the coercion can be deduced immediately from the a 
posteriori mode. 

Balancing is trivial if the a posteriori mode is known. 
The component values (which may also be balanced) are 
individually coerced to the a posteriori mode and balance 
instruction is added to the coercion sequence. If any 
component value cannot be coerced to the a posteriori mode 
then the entire balancing fails. This failure may cause 
the coercion setup routine to try another alternative ina 
united mode or the entire coercion process may fail. 

Row or structure displays are coerced by finding the base 
mode of the a posteriori mode. If it is a row mode then 
the component values of the parallel expression are coerced 
to the mode of an element of the row mode. If the base 
mode is a structure then the component modes are coerced to 
the modes of the fields of the structured mode. If the 
base mode is a united mode then each alternative of the 
united mode is tried until the parallel expression can be 
coerced. 


One complicating factor is that the strength of the 


60 
coercion can change when a united mode is encountered. 
This is handled by a flag indicating whether or not strong 
coercions are allowed. 


The complete coercion setup algorithm is: 


15 Save return address; assume VALP points to value 
control block to be coerced, BMODE is a posteriori mode. 

2% Set CF and FF to -1; these flags mean no strong 
coercions performed yet and strong coercions are allowed 
respectively. 

3's If the current value control block has the type 
'WSBAL', '"WSPAR', 'WSSKIP', 'WSNIL', 'WSVAC', or the mode 
of the value control block is 'MSLBL' then go to the BAL, 
PAR, SKIP, NIL, VAC, or LBL routine respectively. 

4, Push a zero in the working stack. 

De Push into the working stack the coercion sequence 
required to reduce the mode of the current value control 
block to its reduced mode. Set AMODE equal to this 
reduced mode, 

6. Push a pointer to the current top of the control 
stack in the working stack. Set a count in this pushed 
word to minus one. 

7. Push into the control stack the coercion sequence 
required to reduce the mode in BMODE to its reduced mode. 
Then set BMODE to this reduced mode. 


8. If AMODE does not contain the same mode as BMODE 


61 
then go to step 16. 

o% Delete words from the working stack until a word 
with a count of minus one is deleted. This word was 
pushed in the working stack in step 6. 

10. If the top word of the working stack equals the 
top word of the control stack and the words are not zero 
then delete both words from their respective stacks and 
repeat this step (10). 

11, If the top of the working stack is a REF 
coercion and the top coercions in the control stack are a 
series of ROW or ROWE coercions preceeded by a ref 
coercion then delete all of these words and push a REFRW 
(reference row) coercion onto the control stack. 

12. Remove the top word from the working stack. If 
this word is a zero then continue on to step 13. 
Otherwise, the word is either a REF or PROC coercion. 
Change it to a DEREF or DEPR (deprocedure) coercion and 
push it onto the control stack and ee this step (12). 

13. Push onto the control stack a VALP command with 
a pointer to the current value control block pointed to 
by VALP. 

14. Decrement the value control block pointer so 
that it points to the previous value control block in the 
working stack. 

15. Return successfully. The control stack 


contains the complete coercion sequence for coercing the 
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given value control block to the a posteriori mode. 

16. If BMODE contains the void mode and strong 
coercions are allowed (FF #€ 0) then go to the VOID 
routine. 

17. If BMODE contains either a primitive mode or a 
row mode and strong coercions are allowed (FF # 0) then 
go to step 23. 

18. If BMODE does not contain a united mode then go 
to step 33. 

ee If AMODE does not contain a united mode then go 
to step 24, 

20. If there is any mode from which the mode in 
AMODE is united that is not among the modes from which 
the mode in BMODE is united then go to step 33. 

2Nq Push into the control stack the coercion UNION 
with the mode contained in BMODE. 

22s Go to step 9. 

23% Set CF to zero to indicate strong coercions are 
being used. 

24. Push into the control stack a coercion command 
that is the type of the mode contained in BMODE with the 
mode contained in BMODE. 

25. Push into the working stack a pointer to the 
current top of the control stack with a count of zero. 

26. Remove top word in working stack which is a 


pointer to the control stack and a count. If the count 
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is minus one then go to step 35. 

Cae Using the pointer to the control stack popped 
from the working stack in step 26 get the mode that was 
stored on the control stack when the pointer was stored 
in the working stack. 

28. Increment the count in the word popped from the 
working stack. If the count now exceeds the number of 
modes contained in the mode recovered from the control 
stack then go to step 35. 

29% Push back into the working stack the pointer to 
the control stack with an incremented count. 

30. Store the mode selected by the incremented count 
and the control stack mode in BMODE. This is either a 
component mode of a united mode, element mode of a rowed 
mode, or a mode that can be widened. 

ce oe If the mode in BMODE was selected from a united 
mode then set FF equal to zero (allow only firm 
coercions). Otherwise set FF HOt aqua to zero. 

32. Go to step 7. 

33% Remove the top word in the working stack which 
is a pointer to the control stack and successively delete 
words from the control stack until it is the same length 
as when it was marked. If any words were deleted from 
the control stack set BMODE to the mode contained in the 
last word deleted. 


34, Go to step 26. 
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cio Delete words from the working stack until a zero 
word is deleted. This will delete all words stored in 
the working stack by the coercion routine. 
36. Return with failure. There is no coercion that 
eens applied to the given value to give a value with 


the given a posteriori mode. 
VOID ROUTINE 


vi. Delete words from the working stack until a word 
with a count of minus one is deleted. 

V2. Delete words from the working stack that 
indicate a reference coercion. 

V3. Get the mode contained in the top word in the 
working stack and store this mode together with a VOID 
coercion command in the control stack. 

v4, Go to step 10 in the main coercion setup 


routine. 


SKIP ROUTINE 


S1. Set CF equal to zero to indicate strong 
coercion. 
S2. Push into the control stack a SKIP coercion 


command with the mode saved in BMODE. 


S3%. Go to step 13 in the main coercion setup 
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routine, 


NIL ROUTINE 


N1. Set CF equal to zero to indicate strong 
coercion. 
N2. If the mode contained in BMODE is not a 


reference mode then go to step 36 in the main coercion 
setup routine. 

N3. Push into the control stack a NIL coercion 
command with the mode saved in BMODE. 

N4, Go to step 13 in the main coercion setup 


routine. 


LBL ROUTINE 


L1. Set CF equal to zero to indicate strong 
coercion. 
L2. Push into the control stack the coercion 


sequence required to deprocedure the mode contained in 
BMODE as far as possible. 

L3. Push into the control stack a HIP command with 
the resulting deprocedured mode. 

L4, Go to step 13 in the main coercion setup 


routine. 
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VAC ROUTINE 


E1,. Set CF equal to zero to indicate strong 
coercion. 

E2. Remember the length of the control stack in VACT 
in the case of failure. 

E3. Push into the control stack the coercion 
sequence required to deprocedure the mode contained in 
BMODE as far as possible. 

E4. Push into the control stack a ROW command with 
the resulting deprocedured mode. 

E5. If the resulting mode was a rowed mode then go 
to step 13 in the main coercion setup routine, 

E6. Using the contents of VACT delete all words that 
were added to the control stack by this routine. 

E7. Go to step 36 in the main coercion setup 


routine. 


BAL ROUTINE 


Bi. Push into the working stack the return address 
from the main coercion setup routine; a zero that will 
turn into the strength of the balanced coercion; the mode 
stored in BMODE; the current length of the control stack; 
the current value control block pointer; and the count 


stored in the current value control block (which is a 
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'WSBAL' value control block). 

B2. Push into the control stack a BAL command with a 
count equal to the count in the current value control 
block. 

B3. Push into the control stack a MODE command with 
the mode stored in BMODE. 

B4, Push into the control stack a VALP command with 
a pointer to the current value control block which is 
stored in VALP. 

B5. Decrement the contents of VALP so that it points 
to the previous value control block stored in the working 
stack. 

B6. Recursively call the main coercion setup routine 
with the value control block pointer in VALP and the a 
posteriori mode in BMODE as parameters. 

B7. If the coercion attempt fails then go to step 
B14. 

B&. Get the coercion strength required from CF and 
or this into the coercion strength saved in the working 
stack. 

BO. Restore the mode in BMODE to its previous value 
from the saved mode stored in the working stack. 

B10. Decrement the count stored in the working 
stack. If the count is still nonzero go to step B6. 
Otherwise continue in sequence. 


B11. Store in CF the strength saved in the working 
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stack. 

B12. | Recover the saved return address in the working 
stack. Then delete all of the words pushed into the 
working stack by the BAL routine, 

B13. Give a successful return to the entire coercion 
process. 

B14. Restore VALP from the copy saved in the working 
stack. 

B15. Restore BMODE from the copy saved in the 
working stack. 

B16. Using the saved length of the control stack in 
the working stack delete all words added to the control 
stack by the BAL routine. 

B17. Recover the saved return address in the working 
stack. Then delete all of the words pushed into the 
working stack by the BAL routine. 

B18, Give a failure return to the entire coercion 


process. 


PAR ROUTINE 


P1. Push into the working stack the return address 
from the main coercion setup routine; a zero that will 
turn into the strength of the parallel expression 
coercion; the mode stored in BMODE; the current length of 


the control stack; the current value control block 
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pointer; and the count stored in the current value 
control block. 

P2. Push into the control stack the coercion 
sequence required to deprocedure the mode contained in 
BMODE as far as possible. 

P3. Store the mode resulting from the deproceduring 
in BMODE and also store as target mode in the saved state 
in the working stack. 

P4, If the mode contained in BMODE is not a united 
mode then go to step P16. 

P5. Store the number of modes contained in the 
united mode in the saved state in the working stack. 

P6. Push into the contrcel stack a UNION command with 
the mode contained in BMODE. 

P 7's Using the index and the target mode saved in the 
control stack get the mode in the united mode referred to 
and store it in BMODE. 

P8. Recursively call the ‘iain eoereion setup routine 
with the value control block pointer in VALP and the a 
posteriori mode in BMODE as parameters. 

P9. If the coercion attempt fails then go to step 
P13. 

P10. If the coercion strength required was strong 
(if CF is zero) then go to step P13. 

P11. Store the strength required (always firm) in 


the saved state in the working stack. 
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P12. Go to step B1i in the BAL routine. 

P13. Decrement the index saved in the working stack 
so that it points to the next mode in the union to try. 

P14, If there are more modes to try go to step P7. 

P15. Go to step B14 in the BAL routine. 

P16. Store in the control stack a PAR command with a 
count equal to the count in the current value control 
block (whcse type is 'WSPAR'). 

P17. Store in the control stack a MODE command with 
the mode in BMODE. 

P7&, Store in the control stack a VALP command with 
the current contents of VALP. 

P19. Decrement the pointer in VALP so that it points 
to the previous value control block stored in the working 
stack. 

P20. If the mode contained in BMODE is a rowed mode 
then go to step P24. 

P21. If the mode contained in BMODE is neither a 
procedure with parameters mode or a structured mode then 
go to step B14 in the BAL routine. 

P22. If the number of parameters in the procedure 
mode or the number of fields in the structured mode does 
not equal the count in the original 'WSPAR' value control 
block then go to step B14 in the BAL routine, 

P23. Save the number of parameters in the procedure 


mode or the number of fields in the structured mode in 
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the saved state in the working stack as an index. 

P24, Get the target mode saved in the working stack 
and if it is not a rowed mode go to step P27. 

P25 Get mode of element of rowed mode and store it 
in BMODE for coercion setup routine. 

P26. Go to step P28, 

PAT Using the index and the target mode saved in 
the working stack get the current target mode and store 
it in BMODE. 

P28. Recursively call the main coercion setup 
routine with the value control block pointer in VALP and 
the a posteriori mode in BMODE as parameters. 

P29. If the coercion attempt fails then go to step 
Bi4 in the BAL routine. 

P30. Decrement the index saved in the working stack 
by one. 

P31. If the index is still not zero then go to step 


P24 to process the remaining fields or parameters. 


P32. Recover the saved target mode from the working 
stack. 
P33. If this target mode is not a rowed mode then 


set the coercion strength required that is saved in the 
working stack to strong. 


P34. Go to step B11 in the BAL routine. 
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The compile ccercion routine 


Reena’ 


The coercion setup routine makes a list of all the 
coercions to apply to coerce the given value to the a 
posteriori mode. These coercions are not applied until the 
Sonia coercion routine is called. Every value control 
block in the working stack contains a pointer to the start 
of code generated for the value and the length of the code. 
This makes it possible to place code before or after the 
code for the value, depending on the coercion to be applied. 
Balanced and displayed values have their constituent values 
coerced, and then all of the constituent value control 
blocks are combined into a single value control block for 
the entire balanced or displayed value. At the end of the 
coercion all of the value control blocks of the coerced 
value will be combined into a single value control bhiock of 
type 'WSVALUE'. Except for balanced and displayed values 
the compile coercion routine is straight forward. 

If the coercion command is DEPR, DEREF, REFRW, UNION, 
PRIM, ROW, or VOID the command with its mode is inserted in 
the output code after the code compiled for the current 
value control block. This added word is to be considered 
as part of the code for the current value control block. 

If the coercion command is SKIP, NIL, or VAC then the 
current value control block has a single word of code 
associated with it. The type of the value control block is 


changed to 'WSVALUE' and the mode in the coercion command is 
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stored in the associated code word. 

If the coercion command is PROC then the PCDR routine is 
called to make the current value control block refer toa 
procedure mode. 

If the coercion command is HIP then the current value 
control block refers to a IDENT code word. This is changed 
to a OSGOTO code word and a OSHIP code word is inserted in 
the compiled code after the OSHIP code word. The current 
value control biock is then made to refer to both of these 
code words. 

If the coercion command is VALP then the associated value 
control block pointer is stored in the current value control 
block pointer. 

If the coercion command is MODE then the mode associated 
with this command is stored in the current value control 
block. 

If the coercion command is BAL then the following steps 


are performed: 


Ve Remember the position of the current value 
control block whose type is 'WSBAL' and generate a unique 
label for use by this routine. 

2% Make the current value control block pointer 
point to the preceeding value control block. 

34 For N - 1 times where N is the count stored in 


the 'WSBAL' value control block remembered in step 1 
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repeat step 4. 

4, Make the current value control block pointer 
point to the preceeding value control block. After the 
code for the now current value control block add the 
eeamanas 'TOSMA', 'OSDELV', and 'OSJUMP' with the 
generated label as parameter. 

De Combine the 'WSBAL' value control block and the N 
value. control blocks preceeding it into one value control 
block that refers to all of the code that was referred to 
in the individual value control blocks. This step may 
require moving value control blocks that were stacked on 
top of the 'WSBAL' value control block to keep the 
working stack compact. 

6. Add to the code for the combined value control 
block the commands 'OSMA' and 'OSLBL' with the generated 
label as parameter. These commands are to be considered 
as part of the code for the value control block. 

‘Ls If there was range information in the 'WSBAL' 
value control block in the form of a range number then 
insert a 'OSSRNGE' with this range number as parameter in 
front of the code for the combined value control block 


and a 'OSERNGE' with the range number after the code. 


An important point to remember is that all of the components 
of a balanced expression are coerced before they are 


balanced. This means that all of the component value 
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control blocks will always be of type 'WSVALUE'. 
If the coercion command is PAR then the following steps 


are performed: 


1. Remember the position of the current value 
control block whose type is 'WSPAR', 

2s Make the current value control block pointer 
point to the preceeding value control block. 

3% For N times where N is the count stored in the 


'WSPAR' value control block remembered in step 1 repeat 


step 4. 
4. After the code for the current value control 
block add a 'OSFS' command. Then make the current value 


control block pointer point to the preceeding value 
control block. 

Se Combine the 'WSPAR' value control block and the N 
value control blocks preceeding it into a single value 
control block that refers to all of the code that was 
referred to in the individual value control blocks. 

This step may require moving value control blocks that 
were Stacked on top of the 'WSPAR' value control block to 
keep the working stack compact. 

6. Insert a 'OSDISP' command in front of the code 
for the new value control block and add a 'OSEDISP' 


command after the code, 
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Notice that the component value control blocks are also 
coerced before the PAR command is encountered so all of the 


component value control blocks will be of type 'OSVALUE'. 


The PCDR routine 

The PCDR routine inserts and adds the appropriate code so 
pass 3 can compile procedures. It is called by the 
coercion routines for a proceduring coercion and by the 
procedure denotation routine. (It is interesting to note 
that ALGOL 68 provides no denotation for a procedure without 
parameters. All such procedures arise from the proceduring 
coercion.) This routine takes one argument which is the mode 
of the resulting procedure. It operates on the current 
value control block. 

In ALGOL 68 the scope of a procedure is defined as the 
largest scope that does not exceed the scope of any mode 
indication, operator, or identifier in the procedure body. 
This does not include any mode indication, operator, or 
identifier that is defined within the procedure itself. 
Therefore, to determine the scope of a procedure, it is 
necessary to know the scopes of all mode indications, 
operators, and identifiers in the procedure. This is 
accomplished by storing in every value control block a bit 
word whose bits are associated with the various scopes an 
identifier, etc. could have at that point in the program. 


The first bit is associated with the current range, the next 
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bit with the next outer range, and so on. Whenever value 
control blocks are combined into a single value control 
block the bit word for the new value control block is 
calculated by oring together all of the bit words from the 
original value eontesl blocks. Whenever a range is exited, 
the bit words associated with value control blocks from that 
range are all shifted one place to the left. In this 
manner the scope of a value can be determined by examining 
the bit word in its associated value control block. 

The PCDR routine inserts in front of the code for the 


current value control block 


JUMP #1 Generated label 
EPDN #2 Generated label 
LL range Procedure scope 


and adds after the code for the current value control block 


RETN © mode Result mode of procedure 
LLE range Current range 

LBL # 1 Generated label 

EPDV mode Mode of procedure 

EPDE #2 Generated label 


The value control block is then made to refer to all of 


these added code words. 


PASS 3 


In order to understand the operation of pass 3, it is 
necessary to understand the run time environment in which 
the compiled code will execute. At. all times symbolic 
index register D contains a pointer to the base of the stack 
for the current environment. A new level of environment is 
created whenever a procedure is entered. At this time the 
contents of index register D are changed to point to the new 
environment stack. The contents of index register D are 
restored when the procedure is exited normally. At the 
base of the stack for a given environment are stored 
pointers to the surrounding environments stack and to the 
last environment before the last procedure was entered. 
These two pointers are distinct. The surrounding 
environment pointer is a pointer to the environment stack 
when the procedure was declared and the last environment is 
the environment that will become the current environment 
when the procedure exits normally. 

Pass 3 reads the Polish code generated during pass 2 and 
converts it to machine code. During pass 3 the working 
stack contains 'blocks' that will mirror the run time value 
stack. Each block represents a value stored in the run 
time value stack. When a range is entered, a block for 
each operator or identifier declared in that range is pushed 
onto the working stack. Every appearance of an identifier 
in the source program also gives rise to a block on the 
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working stack. The assignation 'X := Y' would cause blocks 
for X and Y to be pushed onto the working stack. Then, 
when the assignation itself is compiled, these two blocks 
would be deleted from the working stack and a block for the 
value of the assignation would be pushed onto the working 
stack. In this way the compiler always has a record of the 
state of the run time value stack. 

Whenever a block is created on the working stack, space 
in the run time value stack is allocated and the address of 
this space is stored in the block. This means that all 
values that exist at run time have a place to be stored in 
the stack even though this value is never actually stored. 

A block contains the information as to how the 
corresponding value can be accessed. Values may be ina 
register, in the stack, relative to a display register, or 
relative to an index register. There is a subroutine in 
pass 3 called MVA (make value available) that will make the 
value referred to by a given block available for processing. 
It compiles the necessary code to either bring the value to 
a register or bring a pointer to the value to an index 
register. In the latter case the index register may point 
to a location a known distance away from the value. 

The language ALGOL 68 implies a fairly specific 
organization of memory at run time. This Organization is 
implied by the types of values required at run time and the 


manipulations allowed on these values. First, a run time 
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representation of values of the various modes must be 
determined. A void value requires no memory space and its 
representation is immaterial. A real value requires one 
word of memory and its representation is the representation 
required by the floating point hardware of the Honeywell 
635. An integral value requires one word of memory and its 
representation is the 2's complement representation required 
by eye fixed point hardware. A boolean value requires one 
word of memory and is a word of all zeros for a boolean 
'false' and a word of the least significant bit one and all 
the rest zero for a boolean value of ‘true’. A character 
value requires one word of memory and is a word with the 
value of the character in the least significant nine bits. 

A structured value is made up of one to several fields. 
The memory representation of a structured value is the 
memory representations of its component fields in 
consecutive memory locations in the same order as the order 
of the fields in the structure. 

A united value is a value can contain a value of one of 
several modes. At run time it must be possible to 
determine the mode of the current value contained in the 
united value. The memory representation for a united value 
consists of a word that contains a pointer indicating the 
mode of the contained value followed by as many consecutive 
words as necessary to contain the longest possible value. 


The leftmost of these words contains the memory 
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representation of the contained value. 

A reference value is a value that refers to another 
value. Except in the case of references to row values, the 
representation of a reference value requires one word. It 
contains a pointer to the referred value in the upper half 
and a pointer indicating the mode of the value in the lower 
half. 

A row value or a reference to a row value presents 
several problems in its representation. This is because 
there are two types of row values: flexible and fixed. 
Also, a row value consists of a descriptor and a set of 
values accessed through the descriptor. Since only the 
mode of a row value is known at compile time and not its 
dimension, the amount of space required by a row value 
cannot be known at compile time. However the length of the 
descriptor which is a function of the dimensionality of the 
row value is known at compile time. A row value can 
therefore be assumed to consist of two parts: a descriptor 
which is considered to be the value of the array and its 
elements which are allocated in memory somewhere else, A 
row value can be manipulated by only manipulating its 
descriptor thereby making the length of row values known at 
compile time. Of course, the allocation of memory for the 
elements of a row value has not been considered but this 
problem can be considered separately. 


A separate problem arises with references to row values. 
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ALGOL 68 allows the programmer to slice a reference to a row 
value to obtain a reference to a part of the row value. 
This operation requires the construction of a new descriptor 
to reference the slice. However, memory space must be 
found for the new descriptor. Since the scope of the slice 
is the same as the scope of the original reference to row 
value, a logical place for the new descriptor is with the 
reference to row value. This means that the descriptor for 
a reference to row value is associated with the name part of 
the value rather than with the element part of the value. 

Another problem arises with references to flexible row 
values. These values can dynamically change their size 
during the execution of the program and in particular their 
size can increase. If the elements of a flexible array are 
to be stored in consecutive memory locations then all of the 
elements of the array must be moved when the number of 
elements increases. However, moving the elements of the 
array cannot result in any effect discernable by the program 
so there must be a unique descriptor associated with a 
flexible array so that when this descriptor is changed to 
reflect the changed location of the elements all references 
to the array will be through this descriptor. In other 
words, the descriptor must be associated with the element 
part of the value and not the name part. This is just the 
opposite to the fixed array situation. Since the bounds 


are not in general known at compile time, a general 


83 
reference to row value must be able to handle both the fixed 
and flexible case. 

The memory representation of a reference to row value 
consists of a flag word followed by a descriptor. If the 
row value is flexible then the flag word points to the 
descriptor for the row value and the descriptor in the 
reference to row value is not used. If the row value is 
fixed then the flag word is zero and the descriptor for the 
array is stored in the following memory locations. This 
representation will require a run time check of the flag 
word whenever a reference to row value is used. The memory 
representation for a descriptor is a one word pointer that 
points to the first element of the array followed by as many 
quadruples of words as there are dimensions in the row 
value. Each quadruple contains in order an integral lower 
bound, an integral upper bound, a stride, and a word in 
which the states are stored. 

Procedure values are unusual $aues tn that they are, 
strictly speaking, executable code. The memory 
representation for a procedure contains a pointer to this 
code so that actual code is never manipulated. Procedure 
values also contain an environment pointer that specifies 
the environment of the procedure when its denotation was 
encountered in the program. This environment may be 
different from the environment where the procedure is 


called. Also, a procedure value contains the amount of 
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temporary storage the procedure will require when executed 
so that a new stack frame can be ailocated when the 
procedure is called. The memory representation for a 
procedure value contains four words. The first word is 
always zero and is included to make the procedure call 
easier. The second word contains in its upper half the 
amount of temporary storage needed by the procedure in the 
new stack frame. The third word contains a pointer to the 
environment of the procedure. This is actually a pointer 
to the base of the stack frame allocated for the innermost 
range that the procedure can reference nonlocally. The 
fourth word contains a pointer to the code for the 
procedure. 

In ALGOL 68 as in ALGOL 60 there is the concept of a 
program environment. At any point in the source program an 
identifier, mode indication, or operator has a meaning. 

This identifier, mode indication, or operator identifies a 
declaration for the same identifier Seeuieee in the 
program. This declaration is found by first looking for an 
appropriate declaration somewhere in the current range. Lt 
this search fails then the range containing this range is 
searched excluding contained ranges. This process is 
repeated using bigger and bigger ranges until an appropriate 
declaration is found. If no declaration is found then 
there is an error in the source program. In this way all 


identifiers etc. in a program are associated with a 
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specific declaration. 

ALGOL 68 allows recursion or the ability of a procedure 
to call itself. This means that a procedure can call 
itself without exiting and therefore cause two copies of 
itself to exist simultaneously. Since there are two copies 
of the procedure there are two copies of all declarations 
contained in the procedure. A question arises as to which 
instance of a declaration is the one that a given identifier 
identifies. This question is answered by defining the 
proper declaration as the declaration that is in the same 
copy as the identifier if the declaration was copied 
otherwise the unique declaration that was not copied. 

The identification problem can be solved at run time by 
associating a stack frame with each activation of a range. 

A stack frame is an area of memory that is allocated in the 
run time value stack for use by a specific range. Mermory 
for all identifiers in a given range is allocated in the 
corresponding stack frame. Every stack frame contains an 
environment pointer which is a pointer to the stack frame 
associated with the surrounding range. The memory 
associated with an identifier can be accessed at run time by 
following the chain of environment pointers through stack 
frames associated with surrounding ranges until the proper 
stack frame is found, The memory associated with the 
identifier is then at a known distance from the base of this 


stack frame. Since it can be determined at compile time 
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how many environment pointers need to be followed and the 
offset of the memory associated with the identifier, 
accessing values at run time is reasonably straight forward. 

A new stack frame is needed only when a procedure is 
called because only procedures can be recursive. When a 
procedure is entered, a stack frame is allocated on the 
stack and the environment pointer for the procedure is 
stored at the base of the new stack frame. This will allow 
the procedure to access values nonlocal to the procedure 
stack frame. Also stored in the new stack frame is a 
pointer to the stack frame in use at the point of the 
procedure call. This is needed to restore the environment 
to this stack frame when the procedure exits normally. It 
can be seen that an environment pointer is a pointer to an 
active stack frame. 

Since the running program must always be able to access 
the local stack frame, an index register is reserved to 
always point to the base of the ieee seaeR frame. The 
contents of this index register is changed only when a 
procedure is entered or exited or when a goto is executed 
that jumps out of the current range. It is also necessary 
for the running program to know the current extent of the 
run time value stack. This is so new stack frames can be 
allocated as well as memory for local generators. A second 
index register is reserved for this purpose and always 


points to the next free location in the run time value 
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stack. 
Here follows a list of the codes generated by pass 2 and 


the action pass 3 takes with each. 


OP (DEF) 

The DEF table entry is for a user defined operator. The 
procedure value of this operator is to be pushed into the 
run time value stack and the stack marked. This is 
equivalent to the sequence: 

IDENT (DEF) 


MSCW 


OPE (DEF) 

The DEF table entry is for a predefined standard 
operator. The operands for this operator Nave already been 
pushed into the run time value stack. The macro prototype 
referred to by the DEF table entry is elaborated causing the 
operand values to be removed from the run time value stack 
and the value of the formula to be pushed into the run time 
value stack. The specific code generated comes from the 
macro prototype. A typical macro for the '+' operator is 
as follows: 

INB ¥*+2 JUMP IF SECOND OPERAND NOT IN REGISTER 
ADQ. A A STANDS FOR FIRST OPERAND 
IFA *+2 JUMP IF FIRST OPERAND IS IN REGISTER 


LDQ A A STANDS FOR FIRST OPERAND 
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ADQ. B B STANDS FOR SECOND OPERAND 
The IFA and INB pseudo operations are used to test whether 
the operands are in a register. A period ('.') after an 
operation indicates the end of code generation. If neither 
operand is in a register the above macro prototype will 
generate the following code: 

LDQ A 


ADQ B 


LBL (label number) 
This code is used to define a label in the object code. 
The value of the label is the current place in the generated 


output. No object code is generated. 


JUMP (label number) 

This code is used to jump to a label defined by the LBL 
code. A jump instruction is to be compiled to the given 
label number at the current place in he object code. The 
instruction 

TRA [label]-*,IC 


is generated. 


DISP (MODE) 
This code is used to signal the beginning of either a row 
or structure display. It is immediately followed by codes 


for the fields or elements of the display. This code is 
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currently ignored by the compiler. 


EDISP (MODE) 

This code is used to signal the end of either a row or 
structure display. MODE is the mode of the display. The 
run time value stack contains the values of the fields or 
elements of the display. These values are to be removed 
and replaced by the single value of the display. No object 
code is generated but the control blocks representing the 
fields of the structure are replaced by a single control 
block representing the structured value. Row displays have 


not yet been implemented. 


ENTER (MODE) 

This code is used to enter a procedure or call a user 
defined operator. The run time value stack contains an 
active procedure value followed by values of the actual 
parameters. Code required to enter the procedure is 
compiled and the procedure value and ali actual parameters 
are deleted from the run time value stack. At run time a 
procedure will return a value in the run time stack so the 
compiler can assume that the a value whose mode is MODE is 
pushed into the run time value stack. The object code 
generated is (where M is the address of the MSCW): 

EAX1 M,D Get address of MSCW in XR - 1 


LDX2 M+2,D Get address of new stack frame 
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TSXO RSENTER Call standard entry subroutine 


GOTO (DEF) 
This code is used to jump to a user label. The DEF 
table entry corresponds to the user label. This code is 


different from the JUMP code because the location of the 
label and the location of the goto may be in different 
environments. The object code generated depends on the 
relative environments of the current environment and the 
environment of the label. The instructicn 

LDX D,2,D Exit one procedure environment 


is repeated as many times as the number of procedures 


exited, If no procedures are exited then this instruction 
is omitted. If there is any change of range then the 
instruction 


LDX S,{saved S],D Restore stack pointer 


is generated. Finally, the instruction 
TRA [label]-*,IC Jump to label 
is generated. If the goto does not cross a range boundary 


then the last instruction is the only instruction generated. 


HIP (MODE) 

A GOTO code is used in a place where a value is normally 
expected. A HIP code follows a GOTO code and causes a 
value of the specified MODE to be pushed into the run time 


value stack. It is immaterial what value is pushed as the 


91 
preceeding jump will always take place and the value will 


never be used. No object code is generated. 


VOID (MODE) 
The top value in the run time value stack is deleted and 


a void value takes its place. No object code is generated. 


LGEN (MODE) 


This code is used to invoke a local generator of the 


specified mode at run time. The value of the generator is 
to be pushed into the run time value stack. First, the 
stack is marked with a MSCW. This is so the garbage 


collector, if called, will be able to mark the current stack 
frame. Then the following instructions are added to the 
object code (where M is the address of the MSCW word): 

EAX1 M,D Get pointer to MSCW word in XR - 1 

EAX2 [len] Get length of value in XR - 2 

TSXO RSLGEN Call local generator routine 

ADA type,DL Add type field to pointer to value 
The A register then contains a pointer to the generated 


value. 


HGEN (MODE) 
This code is used to invoke a heap generator of the 
specified mode at run time. The value of the generator is 


to be pushed into the run time value stack. First, the 
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stack is marked with a MSCW. This is so the garbage 
collector, if called, will be able to mark the current stack 
frame. Then the following instructions are added to the 
object code (where M is the address of the MSCW word): 

EAXi M,D Get pointer to MSCW word in XR - 1 

EAX2 [len] Get length of value in XR - 2 

TSXO RSHGEN Call heap generator routine 

ADA type,DL Add type field to pointer to value 
The A register then contains a pointer to the generated 


value. 


CONF (MODE) 

This code is used in conformity relations to check the 
mode of the right hand side of a conformity. The mode of 
the value of the right hand side of a conformity (which is 
stored in a special way) is to be checked against MODE. If 
the modes match a boolean true value otherwise a boolean 
false value is to be pushed into the ar time value stack. 
The type of the right hand side is in XR - 0. The 
following code is generated: 


CMPX0 type,DU See if type matches 


TNZ S4LC Jump if type does not match 
LDQ 1,DL Get a true in Q register 
TRA 2yC And jump to end of sequence 
LDQ 0,DL Get a false in Q register 


This code leaves the result in the Q register. 
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TF (LBL) 

The top value in the run time value stack is of mode 
boolean. This value is deleted and code is compiled to 
jump to the given label only if the boolean value was false. 
Otherwise the compiled code does nothing. The object code 
generated is: 

SZN- [bool] Sense boolean value 
TZE [label]~*,IC Conditionally jump to label 
Some optimization is done if the boolean value was just 


generated. 


CASE (N) 

The CASE code is followed by N-+1 ‘'RA codes. The top 
value in the run time value stack is of mode integer. This 
value is deleted from the run time value stack. Code is 
compiled so that if the integer valve was less than zero or 
greater than N the immediately following TRA code will be 
executed. Otherwise, the I+1'th RA code will be executed 
where I was the value of the integer. The code generated 
is: 


CMPQ MAX+1,DL MAX is the maximum allowed value 


TRC 3,1C Too big so jump to zeroth TRA 
STC2 1,1C Store aildress of zeroth TRA 
TRA [],QL Jump to proper TRA 


Notice that the third instruction modifies the fourth 


instruction. 
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CASGN (MODE) 

The top value in the run time value stack is the left 
hand side of a conformity relation and the second from the 
top value in the run time value stack is a pointer to the 
value of the right hand side of the conformity relation. 
MODE is the mode of the left hand side value. The value of 
the right hand side without the union prefix is to be 
assigned to the left hand side name and both value deleted 
from the run time value stack. First the instruction 

LDXO ptr,D Get pointer to RHS in XR —- 0 
is added to the object code. XR - 0 then points to the 
united value and the value (ununited) starts in the 
following location. The move routine is then called to 
move the ununited value at [1,0] to the location specified 


by the left hand side control biock, 


SELCT (N) 

The top value in the run time ne stack is a structured 
value. It is to be replaced by the Nth field of the 
structured value. The offset for the selected field is 
calculated and the move routine is called to compile object 
code to move the selected field to the run time stack. The 
control block for the structured value is replaced by a 


control block for the selected value. 
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RSLCT (N) 

The top value of the run time value stack is a reference 
to structure value. It is to be replaced by a reference to 
the Nth field of the structured values. No object code is 
compiled but the control block for the reference to 
structured value is replaced by a control block for the 
selected field. This is accomplished by adding the field 


offset to the saved address of the structure. 


ETC (MODE) 

This code always follows either a SELCT or RSLCT code. 
The MODE is the mode of the selected fiei@ ana is the mode 
of the result of the selection. This code generates no 
object code but is used to set the mode of the selection in 


the control block. 


SKIP (MODE) 

This code causes code to be geneeacee that pushes a value 
of the given mode into the run time value stack. Any such 
value is acceptable for a SKIP. The object code generated 
for a skip (where A is the address of the skip and N is the 
length of the value) is: 

STZ A,D Zero out value 
STZ A+1,D Zero out value 


STZ A+2,D Zero out value 
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STZ A4+N-1,D ZERO out value 
If the mode of the value is void then no instructions are 


generated because the length of a void is zero. 


NIL (MODE) 

This code causes code to be generated that pushes the 
name 'nil' into the run time value stack. The given mode 
is the mode of the nil. The object code generated for a 
nil (where A is the address of the nil and N is the length 


of the value) is: 


STZ A,D zero out value 
STZ A+1,D Zero Out value 
STZ A+2,D Zero out value 


STZ A+N-1,D Zero out value 


Generally, only a single instruction will be generated. 


IS (MODE) 

The top two values in the run time value stack are 
operands in an identity relation, These two values are 
deleted from the run time value stack and replaced by the 
result of the identity relation. The object code generated 
(where N1 is the first name and N?2 is the second name) is: 

EAXO N1 Get first name in XR - 0 
STXO 2,I1C Store in fourth instruction 


EAXO N2 Get second name in XR - 0 
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CMPX0 [] See if names are equal 
TNZ 3, IC Transfer if not equal 
Get a true in Q register 
TRA 2;,1C Transfer to end of sequence 
LDQ 0,DL Get a false in Q register 
N1 and N2 in the above code are actually more complicated 


addresses and generally involve index modification. 


ISNT (MODE) 

The top two values in the run time value stack are 
operands in an identity relation. These two values are 
deleted from the run time value stack and replaced by the 
result of the identity relation. The object code generated 


(where N1 is the first name and N2 is the second name) is: 


EAXO N1 Get first name in XR - 0 
STXO 2,IC Store in fourth instruction 
EAXO N2 Get second name in XR - 0 
CMPX0 [] See if names ied equal 

TZE 37LC Transfer if equal 

LDQ 1,DL Get a true in Q register 
TRA 2,1C Transfer to end of sequence 
LDQ 0,DL Get a false in Q register 


Ni and N2 in the above code are acttually more complicated 


addresses and generally involve index modification. 
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TRUE (MODE) 


This code causes the generation of code that pushes the 


boolean value 'true' into the run time value stack. The 
instruction 
LDQ LpDG Get a true in Q register 


is added to the object code. 


FALSE (MODE) 


This code causes the generation of code that pushes the 


boolean value ‘false’ into the run time value stack. The 
instruction 
LDQ 0,DL Get a false in Q register 


is added to the object code. 


MSCW 
The top value in the run time value stack is a procedure. 
Code is generated to change this procedure value into an 
active procedure value by allocating Spae6 needed by the 
procedure and linking this value to the last active 
procedure value in the run time value stack. First the 
stack is marked in the first word of the procedure value. 
Then the following instructions are added to the object code 
(where M is the address of the procedure value): 
STX S,LSTMK,D Save the current stack pointer 
EAX1 M,D Get pointer to MSCW in XR - 1 


LDX2 M+1,D Get length needed in XRa- 2 
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TSXO RSPLGEN Allocate space for procedure 
EAXO 0,AU Get address of space in XR - 0 
EAA M,D Get address of MSCW in A 
ADA TSMSCWT,DL Get type for pointer also in A 
STA 0,0 Store at base of new space 
STZ 1,0 Zero stack save word in new space 


LDA M+2,D Get environment pointer for proc 


STA 270 And store in new space 
EAA 0,D Get base of current stack 
STA 3,0 And store in new space 


STXO M+2,D Store pointer to new space in MSCW 

LXLO M+1,D Get type of new space 

SXLO M+2,D And move it 

STZ M+1,D Zero out old len/type word 
When these instructions are executed a new stack frame will 
be aliocated and a pointer to this new stack frame is kept 
in the old procedure value. When the procedure is entered 


the new stack frame will point to the current stack frame. 


IDNTY (DEF) 

The given DEF table entry is for an identifier or 
operator. Code is compiled to bring a reference to this 
value to the run time value stack in preparation for an 
identity declaration or operator declaration. Actually, no 
code is generated but a control block that references the 


location the identifier is assigned is created. 
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IDNTE 

The second from the top value in the run time value stack 
is a reference to an identifier or an operator stored there 
by a IDNTY code. The top value in the run time value stack 
is the value the identifier or operator should be identical 
£0. Code is generated to assign the top value to the 
location specified by the reference that is second from the 
top. Then both values are deleted from the run time value 
stack. The object code generated is identical to the 


object code generated for the code '‘ASGNE'. 


FORMP (DEF) 

The given DEF table entry refers to a formal parameter in 
a procedure denotation. Space for the value of the formal 
parameter is allocated in the run time value stack and 
object code is generated to move the actual parameter to the 
location assigned to the formal parameter. The object code 


generated has the form: 


LDQ 4,1 Get actual parameter 
STQ 6,2 And store in formal parameter 
LDQ So, 1 Get actual parameter 
STQ Lg2 And store in formal parameter 
LDQ 6,1 Get actual parameter 
STQ 8,2 And store in formal parameter 


eee eee @ee@eee9eecseteeee*eeeeseeeeeee¢ee 


The number of pairs of instructions generated eguals the 
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length of the value of the formal parameter. Successive 
parameters continue at the address where the preceeding 


parameter left off. 


IDENT (DEF) 
The given DEF table entry is for an identifier or 
operator. A control block for this value is created in the 


run time value stack but no object code is generated. 


DENOT (DEF) 
The given DEF table entry is for a denotation value. 
Code is compiled to bring the value of the denotation to the 
run time value stack. A typical object code sequence for 
an integral denotation is: 
TRA 2, EC Transfer around value 
[actual integer here] 
LDQ -1,IC Load integer in Q 
The only denotations currently implemented are real, 


integral, boolean, and character. 


ASGN (MODE) 
The given mode is the mode of an assignation that 
immediately follows this code. No code needs to be 


generated for this code. 
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ASGNE (MODE) 

The second from the top value in the run time value stack 
is the left hand side of an assignation. The top value is 
the right hand side of the assignation. Code is compiled 
to assign the right hand side value to the place specified 
by the left hand side value. Then the right hand side 
value which is the top value is deleted from the run time 
value stack leaving the left hand side value on the stack as 
the value of the assignation. The code generated for an 
assignation merely moves each word of the source to the 
location specified by the destination. If an array value 
is moved, code is generated to move each element of the 


array by means of a loop. 


LL (PROG) 

The given pointer to the PROG table indicates a new 
environment in the object program. The old environment is 
pushed into a compiler stack (the control stack) and the 
compiler is set for the new environment. No object code is 


generated. 


LLE (PROG) 
The environment that was saved by the LL code is restored 
and the compiler is set for the old environment. No object 


code is generated. 


103 
DELV (MODE) 
The top value in the run time value stack whose mode is 
the given mode is deleted from the stack. No object code 


is generated. 


SRNGE (PROG) 

The old environment is pushed into a compiler stack (the 
control stack) and the compiler is set for the new 
environment. Code is generated to store a mark in the run 
time value stack and link it to the previous mark or active 
procedure. Then the instruction 

STX S,LSTMK,D Save stack pointer in last MSCW+1 
is generated to save the current value of the local stack 


pointer. 


ERNGE (PROG) 

The environment that was saved by the SRNGE code is 
restored and the compiler is set for the old environment. 
The value of the range just exited is made available and 
pushed into the run time value stack. Then the cnebeierion 

LDX S,LSTMK,D Restore stack pointer 
is generated to restore the local stack pointer to the value 


it had when the range was entered. 


EPDN (LBL) 


This code is used to define the entry point to a 
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procedure. The LBL is defined at the current place in the 
generated code. Then the instruction 
EAX D,0,2 Set new environment for procedure 


is generated to set XR - D to point to the new stack frame. 


RETN (MODE) 
This code is used to return the result of a procedure to 
the caller and return control. The two instructions 
LDXO 0,D Save pointer to current stack frame 
LDX S,3,0 Save pointer to old stack frame 
are added to the object code. Then the value of the 
procedure is moved to address [0,0]. This is the address 
of the calling MSCW. Then the instruction 
TSXO RSRET Return to caller 
is added to the object code. The routine RSRET restores 


the caller's environment and returns control. 


EPDV (MODE) 

The given mode is the mode of a procedure denotation. 
Code is generated to push a value of this mode in the run 
time value stack. Other information required for the 
creation of the procedure value has been accumulated during 
the compilation of the procedure denotation such as the 
environment of the procedure and the storage required by it. 
The following instructions are added to the object code: 


STZ P,D Zero out first word of value 
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EAA MAXST Get size of stack frame needed 

ADA type,DL Add type of stack frame 

STA P+1,D Store in second word of value 

get environment pointer in A register 

STA P+2,D Store in third word of value 
The environment pointer is obtained by compiling as many of 
the following instructions as necessary to reach the proper 
environment: 

LDA 2,D Get surrounding environment 

LDA 2,AU Get surrounding environment 
If the environments are the same then the instruction 

EAA 0,D Get current environment inA 


is compiled. 


EPDE (LBL) 

The given entry is the entry point of a procedure 
denotation. This entry point is inserted in the procedure 
value created by the code EPDV. The following instructions 
are added to the object code: 

EAA ENTRY-*,IC get entry to proc inA 
STA P+3,D Store in fourth word of value 
This stores the entry point to the procedure in the 


procedur? value. 


DLEN (LBL) 


This code is used for bound procedures. The maximum 
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length of the run time value stack in the preceeding 
procedure is added as code to the generated output. Then 
the given label is defined to be the address of the word 


just added to the generated output. 


VSBCT (N) 
This code indicates that the top value in the run time 


value stack is an integral subscript for the Nth subscript 


position of an array. This fact is noted in a word pushed 
onto the control stack. No object code is generated. 
VLWB (N) 


This code indicates that the top value in the run time 


value stack is a lower bound trimmer for the Nth subscript 


position of an array. This fact is noted in a word pushed 
onto the control stack. No object code is generated. 
VUPB (N) 


This code indicates that the top value in the run time 
value stack is an upper bound trimmer for the Nth subscript 
position of an array. This fact is noted in a word pushed 


onto the control stack. No object code is generated. 


VNLWB (N) 
This code indicates that the top value in the run time 


value stack is a new lower bound trimmer for the Nth 
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subscript position of an array. This fact is noted ina 
word pushed onto the control stack. No object code is 
generated. 

VEPTY (N) 


This code indicates that the Nth subscript position in a 


trimmer is empty. This fact is noted in a word pushed onto 
the control stack. No object code is generated. 
LWB (N) 


This code indicates that the top value in the run time 
value stack is the Nth lower bound in a declarer. Code is 
generated to store this value in the appropriate location of 


the declarer being constructed. 


UPB (N) 

This code indicates that the top value in the run time 
value stack is the Nth upper bound in a declarer. Code is 
generated to store this value in the appropriate location of 


the declarer being constructed. 


FIX (N) 
This code indicates that the last bound calculated is 
fixed. Code is generated to store this state in the 


declarer being constructed. 
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FLEX (N) 
This code indicates that the last bound calculated is 
flexible. Code is generated to store this state in the 


declarer being constructed. 


SUB 
This code indicates that a slice is about to be compiled. 


The compiler is set to evaluate the following trimscript. 


BUS (MODE) 
This code indicates that the top values in the run time 


value stack are subscripts and trimmers to an array value 


below them in the run time value stack. Code is compiled 
to do the indicated trimming and subscripting. The given 
mode is the resulting mode of the slice. All trimmer and 


subscript values are deleted from the run time value stack 
and the array value now on top of the stack is replaced with 


the slice value. 


BOUND (BOUND) 

This code always follows either a LGEN or a HGEN code and 
specifies bounds for generated values that require them. 
Code is compiled that will insert the required bounds by 


calling appropriate bound procedures. 
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RBUS (MODE) 
This code indicates that the top values in the run time 


value stack are subscripts and trimmers to an array value 


below them in the run time value stack. Code is compiled 
to do the indicated trimming and subscripting. The given 
mode is the resulting mode of the slice. All trimmer and 


subscript values are deleted from the run time value stack 
and the array value now on top of the stack is replaced with 


the value of the slice. 


DSUB 
Code is generated for the header of a bound procedure. 
This involves the fetching of the actual parameter which is 


a pointer to the descriptor. 


DBUS (BOUND) 

Ccde is generated for the trailer of a bound procedure. 
This involves generating code to calculate the length of the 
array and return to the caller and calculate the strides in 


the descriptor. 


PRIM (MODE) 
The top value in the run time value stack is an integer 
or a long integer. Code is compiled to change this value 


to a real or long real value. 
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DEREF (MODE) 
The top value in the run time value stack is a reference 
mode. Code is compiled to dereference this value whose 


mode is the given mode. 


ROW (MODE) 
Code is generated to row the value on top of the run time 
value stack to the given mode. This is not currently 


implemented. 


DEPR (MODE) 

The top value in the run time value stack is a procedure 
without parameters. Code is generated to deprocedure this 
value by calling the procedure and the resulting value 
replaces the procedure value in the run time value stack. 
This code is equivalent to the code 'MSCW' followed by the 


code 'ENTER'. 


UNION (MODE) 

Code is generated to unite the value on top of the run 
time value stack to a value of the given mode. This value 
replaces the original value on the run time value stack, 
The generated code merely inserts a type word in front of 


the value that contains the type of the value. 


MREF 
Space is allocated on top of the run time vaiue stack by 


the compiler for a pointer. No code needs to be generated. 


CONE 

The second from the top value in the run time value stack 
is space for a pointer and the top value is the right hand 
side of a conformity relation. Code is compiled to store a 
pointer in the space provided to the right hand side value. 
Then both values are deleted from the run time value stack. 
(The value of the pointer is not really lost because a 
transfer instruction will be compiled to code to pick up the 


value.) 


MAX 
The compiler's stack pointer is set to the maximum value 


that it has attained in the current range. 


Code is compiled if necessary to convert the top value in 
the run time value stack to standard form. This is 
necessary in balanced expressions where a value may be 
generate in several places and must have the same form from 


all places. 


FS 

Code is compiled if necessary to store the top value in 
the run time stack in the stack in standard form. This is 
necessary when constructing a display where all values of 


the display must be in memory. 


THE LOADER 

A compiled program consists of a body of code that is 
absolutely relocatable (i.e., code that does not have to be 
altered if it is moved in memory) followed by a list of 
modes with their associated patterns followed by a list of 
SYMDEF's and SYMREF's followed by one word containing the 
global environment length required by the program. Each 
pattern contains a pointer to a chain of addresses that 
should point to the pattern. 

The main program is compiled as a declaration of a 
procedure whose name is all blanks with no arguments and no 
result that when called causes execution of the program. 

If a program makes a reference to an identifier declared 
in an independently compiled program, the compiler assumes 
that the identifier is declared in a global environment and 
assigns space in the global environment. Conversely, if a 
program declares an identifier that will be used by another 
program, space is also assigned in the global environment. 
When there are several programs to be bound into a single 
program each program has its own global environment. 

The loader maintains several tables for its use, The 
program table contains an entry for each program segment 
loaded and contains the base address of the segment and 
space for the location and length of the global environment 
for this segment. Entries in the type table contain a 
pattern and a link to a chain of addresses in the program 
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segment that refer to the pattern and an optional cannonical 
mode. When constructing the type table the loader will 
combine entries having the same mode so that there is a 
unique pattern associated with each mode. This is so 
conformity relations will work properly with values from 
different program segments. There is a SYMDEF/SYMREF table 
that contains an entry for each symbol that is used by more 
than one program segment. This table contains for each 
symbol a chain of definitions and references of the symbol 
with the address associated with the symbol in the various 
program environments. 

The loader first constructs appropriate table entries for 
the main program. It then searches for a symbol in the 
SYMDEF/SYMREF table that has no definition. If it finds 
one it loads a program segment of this name and makes 
further entries in the various tables. When there are no 
more symbols without definitions it constructs patterns for 
all entries in the type table and fills in all addresses 
that reference these patterns. The loader then allocates 
space for the global environments and inserts their 
addresses in front of the corresponding program segment. 

All of the global declarations in the segments are then 
executed causing values for all the global symbols to appear 
in their respective global environments. Then, using 
entries in the SYMDEF/SYMREF table the value for each 


defined symbol is moved to all locations in other global 
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environments where it is used. Finally the value of the 
symbol consisting of all blanks (which is the procedure 
value of the main program) is used for an ordinary procedure 


call and the program starts execution. 


Cannonical modes 

One of the problems associated with the loader is the 
unique representation of modes in precompiled programs. 
During compilation, modes are represented by list structure 
in the MODE table. Unfortunately, different programs may 
result in different internal representations for the same 
mode because of a different order of appearance of modes in 
the program. This different representation does not bother 
the compiler but it means that the internal representation 
of modes is not a suitable external representation for use 
by the loader. 

One method for generating a cannonical form for a mode is 
to use a list copying routine and copy the list structure 
that is the internal representation for the mode. This 
will create a list structure that represents the mode and 
that is unique for a given mode [Cheney, C.J., "A 
nonrecursive list compacting algorithm", Communications of 
the ACM,13, 677-678 (1970)]. One disadvantage of this 
technique is that every mode specified must include all 
component modes even though these modes are specified 


elsewhere. This means that the memory required for a list 
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of cannonical modes will consume much more space than a 
single list structure that specifies the same list of modes. 

The above method works for all modes except united modes. 
United modes are considered to be equivalent even though 
their component modes are in a different order or some modes 
are repeated. The cannonization process described above 
will not necessarily cannonize two united modes into 
identical list structures. If, however, a cannonical 
ordering is imposed on all modes and the cannonical form for 
a united mode is defined to be with each component mode 
occuring once and in cannonical order then united modes will 
be cannonized properly. This solution requires a 
cannonical ordering on all modes to be defined. A set of 


rules for a cannonical ordering of modes is as follows: 


Ls A primitive mode (real, int, bool, char, bits, 
bytes, sema etc.) comes before a row mode which comes 
before a reference mode which comes before a structured 
mode which comes before a procedure mode which comes 
before a united mode. 

2s A primitive mode comes before a long primitive 
mode which comes before a long long primitive mode etc. 
Since there are only a finite number of non-long 
primitive modes they are ordered in alphabetical order. 

oe Two reference modes are ordered in the same order 


as their dereferenced modes. 
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4. A structured mode with fewer fields comes before 
a structured mode with more fields. If two structured 
modes have the same number of fields then the 
corresponding tags for the fields are examined. If 
there is any pair of corresponding tags that is different 
then the structured mode whose first different tag is 
alphabetically before the corresponding tag in the other 
structured mode comes first. Otherwise, if all 
corresponding tags are equal then the structured mode 
whose first different mode that comes before the 
corresponding mode in the other structured mode comes 
first. (Notice that all modes cannot be the same or the 
two structured modes would be identical and neither 
structured mode would come before the other.) 

= A procedure mode with fewer arguments comes 
before a procedure mode with more arguments. If two 
procedure modes have the same number of arguments then 
corresponding modes of the arguments are considered. If 
there is any pair of corresponding argument modes that is 
different then the procedure mode whose first different 
argument mode that comes before the corresponding 
argument mode in the other procedure mode comes first. 
If all. pairs of modes are the same then the procedure 
mode with the result mode that comes before the result 
mode of the other procedure mode comes first. (If the 


result modes are also the same then the two procedure 
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modes are identical.) 

6. The cannenical ordering between two united modes 
is determined by first ordering the constituent modes of 
each united mode in cannonical order. If two 
constituent modes of a united mode are the same then one 
of them is deleted. The united mode with the least 
number of constituent modes comes first. If two united 
modes have the same number of constituent modes then the 
united mode whose first different constituent mode that 
comes before the corresponding constituent mode in the 
other united mode comes first. (At least one 
constituent must be different or the two united modes 


would be equivalent.) 


There is one subtle point in this method for cannonically 
ordering modes. The ordering of the constituent modes of a 
united mode depends on their cannonical order and it might 
be poser bie to construct two different but consistent 
orderings involving united modes. Fortunately this problem 
does not arise because if there are two consistent 
cannonical orderings for a set of modes then two modes 
appearing at the same rank in the different orderings are 
equivalent. This can be seen by examining the cannonizing 
rules and noting that if the constituent modes of a mode 
have to be examined then the modes are equivalent if the 


constituent modes are equivalent. 
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As an aside, an alternative method for determining 
equivalences in the mode table between pass 1 and pass 2 
would be to use the cannonical ordering rules to sort the 
mode table. One would have to be careful in writing such a 
routine because the number of constituent modes in a united 
mode may change during the sorting process as modes are 
discovered to be equivalent. The execution time of such a 
routine would be of the order of (n log n) instead of n 


squared where n is the number of modes in the MODE table. 


The garbage collector 

In ALGOL 68 there are two ways in which memory can be 
freed at run time. Local values are released when the 
range that created them is exited. This local storage is 
allocated on a stack and when a range is exited, the stack 
pointer is restored to the value it had when the range was 
entered. Heap storage is allocated in the heap and storage 
is reclaimed from the heap only by the process of garbage | 
collection. When all available space is used up the 
garbage collector determines all of the memory that can 
still be accessed by the program. This memory is compacted 
into two contiguous areas: the stack and the heap. The 
remainder of the memory is then free for allocation for 
local or heap values. 

In order for a garbage collector to operate correctly it 


must be able to determine the exact structure of memory. 
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All locations that contain pointers must be found and the 
type of value to which these pointers point must be known. 
This includes all temporary memory locations that can 
contain a pointer. This means that run time memory 
organization is very rigid. Since memory is compacted by 
the garbage collector, all pointers that point to moved 
values must be relocated. 

All pointers at run time consist of an address and a tag. 
The address part contains the address of the value pointed 
to and the tag part contains the address of a pattern for 
the value that is pointed to. A pattern is a list of data 
specification words followed by a pattern terminator word. 
A data specification word specifies the type of data in the 
value. There are six types of data specification words 


corresponding to six uses of memory. They are: 


SKIP N (skip N words) 

The next N words are not being used currently but they 
should be marked so that the compactor won't squeeze this 
data structure. The skipped words are part of the 


temporary storage allocated for a procedure. 


OCT (value that is not a pointer) 
The next word is a non-pointer data item and should be 


marked. 
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PTR (pointer) 
The next word is a pointer with the pointer in the 


upper half and a pointer to the pattern for the pointer. 


WPTR (working pointer) 

The next word is a pointer in the supervisor that 
should not be marked because it is outside of garbage 
collectable memory. Pointers of this type never appear 
in collectable memory and are used by routines calling 


the garbage collector to relocate internal pointers. 


ROW N (N dimenSional row value) 

The next 4*N+1 words form a row descriptor with the 
first word pointing to the first element of the row value 
and succeeding sets of four words containing the lower 
bound, upper bound, stride, and states. All words of 


the descriptor and all elements should be marked. 


ULEN (union length word) 

The next word is the first word of a united value. 
It contains the length of the value in the upper half and 
a pattern pointer for the current value in the lower 
half. This following value should be marked as well as 


any extra words not used by the current value. 


The strategy for garbage collection is to trace the 
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entire structure of memory and record words in use ina 
separate bit table. The bit table contains a bit for every 
word in collectable storage. Words in use are then moved 
to adjacent locations with words associated with the stack 
moving down and word assiciated with the heap moving up. 
Then all pointers are adjusted so that they point to the new 
location of their target. The garbage collector is divided 
into a list structure tracing part and a memory compacting 
part. 

The list structure tracing routine is used first to mark 
all words usable by the program and second to relocate all 


pointers after the memory compacting routine has shuffled 


memory around. The algorithm for the tracing routine is as 
follows: 
As Clear the mark table and the array chain pointer. 


Set A, N, and F equal to zero and B equal to the pointer 
to the list structure to mark. This pointer has an 
address pointer and a type pointer. 

26 If F is zero then go to step 4. 

36 Using the relocation table relocate the address 
pointer in B without changing the type pointer in B,. 
(If the pointer to be relocated does not point to a word 
that is marked then it is relocated to point to the first 
following marked word. This situation arises when a 


pointer to the end of the stack is saved when a new range 
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is entered. ) 

4. If either the address pointer or the type pointer 
in B is zero then go to step 20. 

Bs If the type pointer in B points to a 'WPTR! 
pattern word then go to step 15. 

6. If the type pointer in B does not point toa 
"SKIP' pattern word then go to step 8. 

7. Set N consecutive bits in the mark table starting 
with the bit corresponding to the word referenced by the 
address pointer in B where N is the number contained in 
the 'SKIP' pattern word. Increment the address pointer 
in B by N and the type pointer in B by 1 and go to step 
17. 

8. If the mark table bit corresponding to the word 
referenced by the address pointer in B is set then go to 
step 16. 

i a Set the mark table bit corresponding to the word 
referenced by the address pointer in B. 

10. If the type pointer in B points to a ‘OCT! 
pattern word then go to step 16. 

aAS If the type pointer in B does not point toa 
‘ULEN' pattern word then go to step 13. 

12% Let C stand for the word referenced by the 
address pointer in B. Then simultaneously move the type 
pointer from the C word to the word in B; move the type 


pointer from the word in B to the word in A; and move the 
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type pointer from the word in A to the C word. 
Increment the address pointer in B by 1 and go to step 4. 

13% If the type pointer in B does not point to a 
"ROW' pattern word or if F is not zero go to step 15. 

14. The address pointer in B points to a descriptor 
of N dimensions where N is the number in the ‘'ROW' 
pattern word. Pack the state information somewhere in 
the descriptor to make room for a ‘place’ and initialize 
all N places to zero. 

15s Let C stand for the word referenced by the 
address pointer in B. Then simultaneously move the C 
word to B; move B to A; and move A to the C word. Then 
go to step 2. 

16. Increment the address pointer and the type 
pointer in B both by 1. 

17. If the type pointer in B points to a positive 
word (not a pattern terminator word) then go to step 4. 
(note that 'ocT', 'PTR', 'ROW' etc. pattern words are 
all positive.) 

18. If A is zero then go to step 27. 

19. The type pointer in B points to a pattern 
terminator word. Add this word to B to restore B to the 
origiral address pointer and type pointer. 

20. If the type pointer in A does not point to a 
'ULEN' pattern word then go to step 22. 


21. | Decrement the address pointer in B by 1. Let C 
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stand for the word referenced by the address pointer in 
B. Then simultaneously move the type pointer from the 
word in A to the word in B; move the type pointer from 
the word in B to the C word; and move the type pointer 
from the C word to the word in A. Then go to step 16. 

22. Let C stand for the word referenced by the 
address pointer in A. Then simultaneously move A to B; 
move B to the C word; and move the C word to A. 

23% If the type pointer in B does not point toa 
"ROW' pattern word then go to step 16. 

24, The address pointer in B points to a descriptor 
of N dimensions where N is the number in the 'ROW' 
pattern word. Let L be the lower bound, U be the upper 
bound, and D be the stride. Increment the place in the 
first quadruple by one. Also increment the address 
pointer in the descriptor by the gquadruple's stride. If 
the place is less than or equal to U-L then go to step 
15. If the place is now greater than U-L then set the 
place to zero, decrement the address pointer in the 
descriptor by D(U-L+1) and repeat this step with the next 
quadruple if it exists. 

25. If F is zero then link this array descriptor to 
the chain pointed to by the array chain pointer and go to 
step 16. 

26. Unpack the state information in the descriptor 


and go to step 16. 
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27. If F is zero set to one all bits in the mark 
table corresponding to words in the interior of arrays 
chained to the array chain pointer. 
28. Marking is complete. If F is zero set it equal 
to one and go to the compacting routine. If F is one 


then garbage collection is complete. 


The compacting routine is based on the fact that there 
must be at least one free word between consecutive blocks of 
marked words. This free word can contain relocation 
information that is used to relocate pointers in the list 
structure [Haddon, B.K. & Waite, W.M., "A Compaction 
Procedure for Variable-length Storage Elements", Computer 
Journal 10, 2, 162-165 (August 1967)]. The algorithm for 


the compacting routine is as follows: 


ls Assume that bits before the start of the bit 
table are ones and bits.after the bit table are zero. 
Set pointer A to point to the word following the first 
1-0 transition in the bit table. 

2% Set pointer B to point to the word following the 
next 0-1 transition in the bit table. If there is no 
such rext transition then go to step 12. 

3% Set pointer C to point to the word following the 
next 1-0 transition in the bit table. 


4, Store in a word N words beyond the word pointed 
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to by A a relocation word containing the current contents 
of pointer B (old address) and pointer A (new address). 
Increment the value of N by one. 

De Set the pointer Al equal to the pointer A and the 
pointer B1 equal to the pointer B. 

6. Swap the two words referred to by pointers Al and 
B1 then increment the pointers Al and B1 so they refer to 
the next sequential word. 

Te If the pointer in B1 does not equal the pointer 
in C then go to step 6. 

8. If the stack/heap boundary was moved then store 
the new location of the stack/heap Gaundaey in H. If 
pointer C is below the stack/heap boundary then copy 
pointer A1l into H. 

9% Divide C-A by B-A and let the quotient be Q and 
the remainder be R. If N is less than or equal to R 
then move N words starting with location Q(B-A)+A to 
location B. If N is greater than R then move R words 
starting with Q(B-A)+A to location B+N-R. After the 
swap performed in step 6 the relocation table may be 
split into two parts and be anywhere in the free area. 
This step combines the two parts and puts the relocation 
table in a contiguous area at the bottom of the free 
area. 

10. Set pointer A to the current value of pointer 


Al. 


128 

i te Go to step 2. 

12 Call the monitor to allocate or release memory 
aS appropriate. All memory that is in use is below 
pointer A. Enough extra memory must be included to 
satisfy the current request for memory and contain the 
bit table. 

13. Allocate space at the top of memory for the new 
bit table. The base of the bit table is the new top of 
the heap. 

14, Set the pointer A1 equal to the pointer H and 
the pointer B1 equal to the base of the bit table minus A 
plus H. This prepares swapping the heap up to the base 
of the bit table. 

15. Swap the two words referred to by pointers A1 
and B1 then increment the pointers Al and B1 so they 
refer to the next sequential word. 

16. If the pointer in Bi does not equal the base of 
the bit table then go to step 15. 

17. Set the base of the heap pointer to the base of 
the bit table minus A plus H. 

18. Join up the relocation table in a similar way as 
in step 9. 

19. Sort the relocation table by old addresses then 
adjust heap references to reference the new location of 
the heap. | 


20. Compacting is complete. Go to step 1 in the 
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marking routine. 


Although it is not done in the present implementation, 
the garbage collector is capable of printing out a complete 
symbolic dump of nehBEy. This is possible because every 
pointer contains a type pointer that completely describes 
the data the pointer points to. Such a symbolic dump would 


be very useful for program debugging. 


USE OF THE COMPILER 

In the current implementation of ALGOL 68 no bold faced 
words are used, Instead, there is a list of reserved words 
that cannot be used as identifiers or indicants. Also, 
Spaces are stentevesne and separate successive indicants, 
reserved words, and identifiers. The following is a list 
of symbols used in the current implementation for the 
symbols defined in the ALGOL 68 report: 


( begin symbol 


) end symbol 

E times ten to the power symbol 
%:= over and becomes symbol 
%$::= modulo and becomes symbol 


OR or symbol 
AND and symbol 


/= differs from symbol 


< is less than symbol 

<= is at most symbol 

>= is at least symbol 

> is greater than symbol 


/ divided by symbol 

% over symbol 

3 modulo symbol 

NOT not symbol 

ABS absolute value of symbol 
ODD odd symbol 
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:/=: is not symbol 
AT at symbol 
( if symbol 


then symbol 


“4 fF 


else symbol 


ee 


fi symbol 

OF of symbol 

go to symbol 

SKIP skip symbol 

NIL nil symbol 

\V then if symbol 

\: else if symbol 

ie quote symbol 

@ comment symbol 
Since no bold face characters are used, certain ambiguities 
appear in the language that require additional conventions 
not found in the report. In particular, square brackets 
must be used for arrays. All casts must be inclosed in 
parentheses to distinguish them from labelled statements. 
Also the following list of reserved words cannot be eed for 
identifiers or indicants: 

LONG 

STRUCT 

REF 

FLEX 


EITHER 
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PROC 

UNION 

MODE 

PRIORITY 

LOC 

OP 

AT 

OF 

HEAP 

LIBRARY 

FOR 

FROM 

BY 

TO 

WHILE 

DO 
Oher predefined words may be used generally but if they are 
their predefined meaning will be lost in the range in which 
this is done. 

Programs to be run in ALGOL 68 are first typed into the 
Dartmouth Timesharing System in the normal wae Every line 
starts with a line number but the compiler ignores it. The 
command "SYSTEM ALGOL68" is then typed followed by the 
command "RUN". This will cause the program to be compiled 
and run. An example of a valid program is: 


1 (REAL X, Y; 
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2 X := 13 Y := 2; 
3 X 3:= X + Y) 

If it is desired to precompile a procedure for inclusion 
in another program then the procedure declaration is written 
in the normal way and is followed by the characters ";SKIP". 
For example, the program: 

1 PROC ADD = (REAL X, Y)REAL : X + Y; SKIP 
will precompile a procedure whose result is the sum of its 
arguments. Since this program does not begin with a left 
parenthesis the compiler will not execute the program but 
instead write out the object machine code in a file called 
" ,OBJECT.".. This file should be renamed to the name of the 
procedure being declared, "ADD" in the example. 

To include a precompiled procedure in another program 
there must be a declaration for it. The declaration 

LIBRARY PROC (REAL, REAL) REAL ADD; 
will add the file named ADD into the object code. It will 
also declare ADD to be a procedure nee can be used in the 
program. A complete program using ADD might be: 

1 (REAL A, B, C; 


2 LIBRARY PROC(REAL, REAL) REAL ADD; 


Ww 


A:=1; B:=2; 


4 C:=ADD(A, B)) 


CONCLUSIONS 

The major innovations of ALGOL 68 are the mode concept 
with the idea of complete compile time knowlege of run time 
modes. The united modes are introduced to allow limited 
run time determination of modes. ALGOL 68 also has a well 
defined set of input and output procedures thus filling a 
major lack in ALGOL 60. Unfortunately, the implied garbage 
collector in ALGOL 68 costs a good deal of overhead even 
against users who do not use this facility. If only one 
construction in a program requires garbage collection then 
all operations in the program will be slowed down. The 
garbage collector precludes the use of ALGOL 68 as an 
implementation language because of its insistance on a known 
run time set of modes at compile time. This makes it 
impossible to work with data whose structure will be 
determined at run time. Also, there is no way to get at 
the individual bits of a machine word. This makes it 
impossible to define the structure Se havauase defined word 
formats. 

The major innovation of PL/1 is its concept of a based 
pointer, In most languages identifiers are associated with 
memory locations but in PL/1 identifiers are associated with 
a particular offset relative to an unspecified pointer. An 
identifier is used by associating it with a particular base 
pointer. Therefore, identifiers in PL/1 correspond roughly 
to structure tags in ALGOL 68. However, in PL/1, the same 
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pointer or base may be associated with different structures 
permitting the same data to be accessed in different ways. 
This allows the programmer flexibility (and pitfalls) in 
referencing data. Unfortunately, the syntax of PL/1 is 
extremely messy and programs written in PL/1 are not 
mathematically "neat" like programs written in ALGOL. 

SIMULA 67 combines the concepts of a procedure and a data 
structure. A procedure call such as f(a, b, c) can also be 
looked upon as initializing a three component data structure 
with the values a, b, and c. This is accomplished by 
allowing references to the parameters of a procedure by an 
independent procedure and not releasing space allocated for 
temporary storage of a procedure after it is exited. The 
first parameter of the above procedure could be referenced 
by writing f.a. If a procedure has no computation in it 
then it degenerates into a pure data structure. Coroutines 
are also easy to implement in SIMULA 67. It is unfortunate 
that ALGOL 68 does not allow such convenient accessing of 


structures or the ability of using coroutines. 


APPENDIX 

This appendix contains the actual syntax used for pass 1 
and pass 2 together with a brief description of the imbedded 
actions. the name of each syntax rule appears to the left 
and is followed by a colon. The alternatives of a syntax 


rule are separated by semicolons and the last alternative is 


followed by a period. The elements in an alternative are 
separated by commas. Elements that are names of other 
production rules consist of this name. Actions that 


attempt to match the input program against a literal string 
consist of this string surrounded by single quotes. Other 
actions are underlined. If an action has an argument then 
this argument follows the underlined name of the action and 
is enclosed in brackets. 
Following the syntax for each pass is an explanation of 

the actions. Names followed by (SYNTAX) are actions 
imbedded in the syntax. Names followed by (SUBROUTINE) are 


subroutines used by the actions. 


136 


PASS 1 


PROG: 


PRO: 


COND: 


THEN: 


ELSE: 


SER: 


UTAIL: 


UNIT: 


JUNKE : 
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SYNTAX 
PRO, PASS 1.5,PASS2,DONE. 
PDEN , DEL; 
SRNGE ,[CLOR] ,CLEAR, [ IDNT] ,MRNGE,SER,DECI,ERNGE, » 
[CLOR]. 
'\',DECI,ERNGE,[BARR],SRNGE,[BARR],MRNGE,SER, 
ELSE; 
"\: ',DECI,ERNGE,[ BARR],SRNGE,[{ BARR] ,MRNGE,SER, 
THEN ; 
EMPTY. 
'\' ,DECL,ERNGE,[BARR],SRNGE,[ BARR] ,MRNGE,SER, 
ELSE; 
"\: ',DECI,ERNGE,[ BARR],SRNGE,[BARR],MRNGE,SER, 
THEN ; 
'\' ,DECI,ERNGE,[BARR],SRNGE,[ BARR] ,MRNGE, SER; 
'\: ', DECI,ERNGE,[BARR],SRNGE,[BARR],MRNGE,SER, 
THEN; | 
EMPTY. 
UNIT,UTAIL. 
";',ADO,[SEMIC] ,UNIT,UTAIL; 
":',ADO,[CLNC],DECLC,UNIT,UTAIL; 
',',ADO,[SEMIC],IDENT,':',STID,DECL,UNIT,UTAIL; 
JTAIL. 
STZ,[IDNT],DEC. 


JUNK; 
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EMPTY. 
JUNK: IDENT,STIDB,JUNKE; 
'=',SMO,[IDNT] , JUNK; 
':=',SMO,[IDNT] ,JUNKE; 
PDEN ,DEL,SMO,[{ IDNT] ,JUNKE; 
BOX, DEL, SMO, [IDNT] , JUNKE; 
"STRUCT',SUNIT,DEL,SMO,[IDNT] ,JUNKE; 
'UNION' , UUNIT,DEL,SMO,[IDNT] ,JUNKE; 
"PROC' ,ARGE, SMO, [IDNT] , JUNKE; 
"REF',SMO,[IDNT],JUNK; 
'LOC',SMO,[ IDNT] ,JUNK; 
'HEAP',SMO,[ IDNT],JUNK; 
'OF',SMO,[IDNT],JUNK. 
FJ: FORS; 
JUNKE. 
JTAIL: ',',ADO,[COMAC],SMO,[IDNT],JTL1; 
EMPTY. 
JTL1: FORS,JTAIL; 
JUNKE, JTAIL. 
SUNIT: '(',PUSH,[IDNT] ,MARK,FSEQ,')',CST,POP,[IDNT]. 
UUNIT: '(',PUSH,[IDNT],MARK,MSEQ,')',CUN,POP,[IDNT]. 
FORS: 'FOR',IDENT,FROMS; 
FROMS. 
FROMS: 'FROM',JUNK,BYS; 
BYS. 


BYS: "BY ',JUNK,TOS; 
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TOS. 
TOS: 'TO' , JUNK, WHLES ; 
WHLES. 


WHLES: 'WHILE',SER,DOS; 


DOS. 
DOS: 'po',SMO,[IDNT],FJ. 
BOX: 'L" SRNGE,[BOXR],BELEM, BTAIL,']',CBOX,ERNGE, 


[BOXR],REST,[CBOXT]. 

BTAIL: ',',ADO,[COMAC],BELEM,BTAIL; 
a 

BELEM: STZ,[IDNT],JUNKE,BEL2. 

BEL2: ':',ADO,[CLNC],STZ,[ IDNT] ,JUNKE,BEL3; 
"AT',ADO,[CLNC],STZ,[IDNT] , JUNK; 
"FLEX',':',ADO,{CLNC],STZ,[ IDNT],JUNKE,BEL4; 
'EITHER',':',ADO,[CLNC],STZ,[ IDNT] ,JUNKE,BEL4; 
STZ,[IDNT]. 

BEL3: 'AT',JUNK; 

BEL4, 
BEL4: 'FLEX'; 
"EITHER'; 
see 

‘DEC:  'PRIORITY',IDENT,STID,'=",PRT3; 
'OP' ,OPDEC; 
'MODE', IDENT, STID,'=',MT3; 
"STRUCT! ,SDEC; 


"UNION! , UDEC; 
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"PROC',PDEC; 
'REF',RESLT,EREF, IDEC; 
BOX, RESLT,EBOX, IDEC; 
'LOC' ,RESLT, IDEC; 
‘HEAP ' , RESLT, IDEC; 
"LIBRARY ',RESLT,SAVE ,[FMODE],DECLB ,LIBL; 
IDENT , STID , 1D; 
JTL1. 
PRT: ',',ADO,[COMAC],PRT1; 
EMPTY. 
PRT1: IDENT,STID,PRT2; 
SMO, [IDNT],DEC. 
PRT2: ‘'=',PRT3; 
ID. 
PRT3: PUSH,[IDNT],IDENT,CNVRT,POP,[IDNT],DECP,PRT. 
OPDEC: '(',MARK,MSEQ,')',FIELD,EPR,DECO,DELS,'=',FJ, 
OPTL; 
IDENT , STID ,EVOID ,DECO, '=" ,PDEN ,DECOP , OPTL; 
"=", STID,EVOID,DECO, '=",PDEN,DECOP ,OPTL; 
ERROR3. 
OPTL: ',',ADO,[COMAC] ,OPT1; 
EMPTY. 
OPT1: IDENT,STID,OPT2; 
OPDEC; 
SMO, [IDNT],DEC. 


OPT2: ‘'=',JUNK,OPTL; 
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ID. 
MTAIL: ',',ADO,{[COMAC] ,MT1; 
EMPTY. 
MT1: IDENT, STID ,MT2; 
SMO, [IDNT],DEC. 
MT 2; '='" MT3; 
ID. 
MT 3: PUSH, [IDNT] ,MOD,POP,[ IDNT] ,DECM,MTAIL. 
SDEC: SUNIT,IDM; 
IDENT, STID,'=',SUNIT,DECM,STAIL; 
ERRORS. 
STAIL: ',',ADO,[COMAC],ST1; 
EMPTY. 
ST1: IDENT, STID,ST2; 
SMO,[IDNT],DEC. 
ST2: '=', SUNIT,DECM,STAIL; 
ID. 
UDEC: UUNIT,IDM; 
IDENT, STID,'=' ,UUNIT,DECM,UNT; 
ERROR6. 
UNT: ",',ADO,[COMAC],UT1; 
EMPTY. 
UT1: IDENT, STID ,UT2; 
SMO, [IDNT] ,DEC. 
UT2: '=',UUNIT,DECM,UNT; 


ID. 
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PDEC: IDENT,STID,PDEC1; 
MARK, ARGE,RESLT,EPR,IDEC. 
PDEC1: '=',PUSH,[IDNT],PDEC2,POP,[IDNT],TAG,PTE; 
':=',PUSH,[IDNT],PDEC2,POP,[IDNT],EREF,TAG,PTA; 
IDENT ,MARK, MMI, EPR, STID , IDEC; 
MARK ,EVOID, EPR, IDEC. 
PDEC2: PDEN; 
JUNKE ,MARK,EVOID,EPR. 
RESLT: 'PROC',MARK,ARGE,RESLT,EPR; 
BOX ,RESLT ,EBOX; 
"REF! ,RESLT,EREF; 
"STRUCT! ,SUNIT, IDE; 
"UNION! ,UUNIT, IDE; 
IDENT, STID,RES1. 
RES1: IDENT,MMI,STID; 
EVOID. 
IDE: IDENT,STID; 
SMO,[IDNT]. 
PTE: ',',ADO,[COMAC],PTE1; 
EMPTY. 
PTE1: IDENT,STID,PTE2; 
SMO, [ IDNT],DEC. 
PTE2: '=',PUSH,[IDNT],PDEN,POP,[IDNT],TAG,PTE; 
ID. 
PTA: ',",ADO,[COMAC],PTA1; 


EMPTY, 
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PTA1: IDENT,STID,PTA2; 
SMO,[ IDNT],DEC. 
PTA2: ':=',PUSH,[IDNT],PDEN,POP,[IDNT],EREF,TAG,PTA; 
', "ADO, [COMAC] ,MARK, EVOID ,EPR, TAG; 
‘ID. | 
MOD: 'REF',MOD,EREF; 
BOX, MOD1,EBOX; 
"STRUCT! ,SUNIT; 
"UNION' ,UUNIT; 
IDENT, STID ,MMI; 


"PROC',MARK,ARGE,MOD1,EPR. 


ARGE: '(",MSEQO;")"; 
EMPTY. 

MOD1: MOD; 
EVOID. 


FIELD: 'REF',SMO,[FMODE],FIELD,EREF,SAVE,[FMODE]; 
BOX, SMO, [FMODE] ,FIELD,EBOX ,SAVE,[ FMODE]; 
"STRUCT! ,SUNIT, IDENT,STID,SAVE,[FMODE]; 
‘UNION' ,UUNIT, IDENT,STID,SAVE,[FMODE]; 
"PROC' ,MARK ,ARGE,FLD2 ,EPR,SAVE,[FMODE] ; 
IDENT ,STID ,FLD4,SAVE,[FMODE]; 

ERROR7. 

FLD2: IDENT,STID,FLD3; 
FIELD. 

FLD3: IDENT, MMI,STID; 


EVOID. 
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FLD4: IDENT ,MMI,STID; 
REST, [FMODE]. 
MSEQ: MOD,MSEQ1. 
MSEQ1: ',',MOD,MSEQ1; 
EMPTY. 
FSEQ: FIELD,TAG,FSEQ1. 


FSEQ1: ',',FIELD,TAG,FSEQ1; 


EMPTY. 

IDM: IDENT,STID,IDEC; 
JUNKE ,DEL,JTAIL. 

ID: IDENT ,MMI,STID,IDEC; 
JUNKE , JTAIL. 


CTAIL: ',',ADO,[COMAC] ,DEC,CTAIL; 
EMPTY. 

IDEC: ‘'=',SAVE,[FMODE],TAG,JUNKE,ETL; 
';=',EREF,SAVE,[FMODE] ,TAG,JUNKE,ATL; 
JUNK,DEL,JTAIL; 

EREF , SAVE, [FMODE],TAG,ATL. 

ETL:  ',',ADO,{COMAC],ET1; 
SMO,[IDNT]. 

ET1: IDENT,STID,ET2; 

SMO ,[ IDNT] ,DEC. 

ET2: '=', REST, [FMODE],TAG, JUNKE ,ETL; 
ID. 

ATL: ',',ADO,[COMAC],AT1; 


SMO,[IDNT]}. 
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AT1:;  IDENT,STID,AT2; 
SMO, [IDNT] ,DEC. 
AT2: ':=',REST,[FMODE],TAG,JUNKE ,ATL; 
',',ADO,[COMAC] ,REST,[FMODE],TAG,AT1; 
IDENT , MMI, STID , IDEC; 
JUNK ,JTAIL; 
REST, [ FMODE] , TAG. 
LIBL: ',',ADO,[COMAC],LIB1; 
SMO, [IDNT]. 
LIB1: IDENT,STID,LIB2; 
SMO,[IDNT],DEC. 
LIB2: ',',ADO,{COMAC],REST,[FMODE],DECLB,LIB1; 
IDENT ,MMI,STID, IDEC; 
JUNK, JTAIL; 
REST, [FMODE] ,DECLB. 
PDEN: '(',SRNGE,[CLOR],PUSH,[MK],MRNGE,SER,COND,')', 
MOD1,PBOD,EPDEN. 
PBOD: ':',JUNKE,STZ,[PDPOS]; 


SMO, [PDPOS]. 
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PASS 1 ACTIONS 
EMPTY (SYNTAX) 
No action. This action is used when no action is to be 


performed and there are no other actions in the alternative. 


PASS1.5 (SYNTAX) 
This action is pass 1.5. When pass 1.5 finishes, 


control is returned to the syntax analyzer. 


PASS2 (SYNTAX) 
This is the top production rule for pass 2. The name of 


the rule is 'PRO' in pass 2 syntax. 


DONE (SYNTAX) 
This action is called when pass 2 is finished. The 


syntax analyzer is exited and pass 3 is executed. 


STZ (SYNTAX) 
This routine stores a zero in the upper half of the word 


referred to by the argument. 


SMO (SYNTAX) 
This routine stores an octal 400000 in the upper half of 


the word referred to by the argument. 
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CLEAR (SYNTAX) 
This routine stores a zero in the word referred to by the 


argument. 


STIDB (SYNTAX) 


This routine examines locaticn 1$IDNT. If this location 
is zero, routine STID is transferred to. Otherwise, an 


octal 400000 is stored in the upper half of location 1SIDNT. 


STID (SYNTAX) 
This routine stores the contents of XR - 7 in the upper 


half of location 1SIDNT. 


DECLC (SYNTAX) 
This routine checks the contents of location 1SIDNT. If 
this location is negative, an immediate exit is made. 


Otherwise, routine DECL is transferred to. 


DEL (SYNTAX) 
The top word in the working stack is deleted. The word 


that was second from the top is now the top word. 


PUSH (SYNTAX) 
The word referred to by the argument is pushed onto the 
control stack. The old top of stack is now second from the 


top. 
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POP (SYNTAX) 
The word on the top of the control stack is stored in the 
location referred to by the argument. The top stack word 
is deleted so that the old second from the top word becomes 


the top of stack word. 


DELS (SYNTAX) 
The top word in the control stack is deleted. The word 


that was second from the top is now the top word. 


MARK (SYNTAX) 
The current length of the working stack is pushed onto 


the control stack, 


MRNGE (SYNTAX) 
The current length of the working stack is stored in 


location 1SMK. 


EVOID (SYNTAX) 

A void mode declarer is pushed onto the working stack. 
A void mode declarer consists of a pointer to the void entry 
in the mode table in the upper half and zero in the lower 


half. 


SAVE (SYNTAX) 


The top word of the working stack is copied to the 
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location referred to by the argument. The working stack is 


not altered. 


REST (SYNTAX) 
The word referred to by the argument is pushed onto the 


working stack. 


TAG (SYNTAX) 


The contents of 1SIDNT is pushed onto the working stack. 


IDENT (SYNTAX) 

The next symbol in the input stream is checked, If it 
is a reserved symbol this routine gives a nomatch return. 
Otherwise, the next symbol is accepted and a pointer to the 


STAB table entry of the symbol is placed in XR = 7. 


CST (SYNTAX) 

The top word of the control stack is assumed to be the 
length of the working stack stored there by the MARK 
routine. This word is deleted from the control stack and 
the words added to the working stack since the marking are 
considered. The considered words refer to the fields of a 
structure when taken in pairs. The first word of the pair 
is a declarer word for the field and the second word 
contains in the upper half a pointer to the STAB table where 


the tag for the field is stored. All of the considered 


150 
words are deleted from the working stack and are replaced by 
a Single declarer word for the stuctured mode having the 


fields specified by the considered words. 


CNVRT (SYNTAX) 

The last symbol accepted is checked. If it is nota 
Single digit between "1" and "9" a fatal error occurs. 
Otherwise, the value of the digit is pushed onto the working 


stack in the upper half of the word. 


EREF (SYNTAX) 
The top word in the working stack is assumed to be a 
declarer. It is replaced by a declarer whose mode is 


reference to the mode of the original declarer. 


EPDEN (SYNTAX) 

The word 1SPDPOS is examined. If the word is positive 
then the next paragraph explains the rest of the routine. 
If the word is negative then the top word of the working 
stack is deleted. Subroutine DECIA is called. Location 
1$MK contains the old length of the working stack and words 
are deleted from the working stack until its length is the 
same as the stored in 1SMK. The top word of the control 
stack is popped and stored in 1SMK. Subroutine ERNGA is 
called with a parameter of CLOR. A void declarer is pushed 


onto the working stack and the routine exits. 
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If 1SPDPOS is positive then SEMIC and CLNC must be zero 
or a fatal error occurs. Consider the words added to the 
working stack since the last mark. They are declarers for 
the formal parameters followed by a declarer for the mode of 
the result. The top word of the working stack is deleted 
and remembered. All of the other considered words are 
deferenced (if not reference mode a fatal error occurs) then 
subroutine DECIA is called. The contents of 1SMK is pushed 
onto the control stack. The remembered word is restored on 
top of the working stack. The considered words with the 
result word are replaced with a single word declarer of the 
mode procedure with parameters by a call to the subroutine 
EPROC. The top of the control stack is popped and stored 
in 1SMK. The declarer on the top of the working stack is 
remembered and deleted. Subroutine ERNGA is called with a 
parameter of the mode of the remembered declarer with the 
Sign bit set. The remembered declarer is restored on the 


working stack and a normal exit occurs. 


MMI (SYNTAX) 

A declarer is pushed onto the working stack referring to 
the symbol referred to by the contents of location 1$IDNT, 
This is done by creating entries in the mode and bound 
tables that refer to the symbol and range. A later routine 
will replace these entries by the actual mode that the 


symbol refers to. 


EPROC (SUBROUTINE) 

Words added to the working stack since the mark which is 
stored on top of the control stack are considered to be 
declarers for the arguments and the result of the procedure 
mode. All of these words on the working stack are deleted 


and replaced with a single word which is a declarer for the 


indicated procedure mode. The mark word in the control 
stack is deleted. A return is then made to the calling 
routine. 


EPR (SYNTAX) 


A call is made on EPROC. 


CUN (SYNTAX) 

Words added to the working stack since the mark which is 
stored on top of the control stack are considered to be 
declarers for the component modes of a united mode. All of 
these words on the working stack are delted and replaced 
with a single word which is a declarer for the indicated 
united mode. The mark word in the control stack is 


deleted. 


DECM (SYNTAX) 
An entry is made in the DEF table defining the symbol in 
1SIDNT to be a mode indication for the mode specified by the 


declarer stored in the top word of the working stack. The 
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DEF table entry is linked to the other DEF table entries for 
the same symbol and a note as to the lexicographical level 
of the symbol is made. The declarer on top of the working 


stack is deleted. 


DECP (SYNTAX) 

An entry is made in the DEF table defining the symbol in 
1SIDNT to be a priority indication of the priority specified 
by the number stored in the top word of the working stack. 
The DEF table entry is created by a call to the subroutine 


SETD. The pointer on top of the working stack is deleted. 


DECO (SYNTAX) 

An entry is made in the DEF table defining the symbol in 
1SIDNT to be an operator with the mode specified by the 
declarer stored in the top word of the working stack. The 
DEF table entry is created by a call to the subroutine SETD. 
The declarer on top of the working stack is deleted. A 
pointer to the DEF table entry is pushed onto the control 


stack. 


DECOP (SYNTAX) 

The top word on the control stack is a pointer to a DEF 
table operator definition entry. This word is popped from 
the control stack. The top word of the working stack is a 


declarer. It is popped from the working stack and stored 
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in the DEF table entry pointed to by the word popped from 


the control stack as the mode of the operator. 


DECI (SYNTAX) 
A call is made on subroutine DECIA. Words are then 
deleted from the working stack until the length of the 


working stack equals the length stored in 1$MK. 


DECIA (SUBROUTINE) 

All words added to the working stack beyond the length 
stored in 1SMK are considered. These words are taken in 
pairs: the first word of a pair is a declarer and the second 
is a pointer to a symbol in the STAB table. For each pair 
an entry is made in the DEF table defining the symbol to be 
an identifier having the corresponding declarer. The DEF 
table is then linked to the other DEF table entries for the 
nae Symbol and a note as to the lexicographical level of 


the symbol is made. 


DECL (SYNTAX) 
A label declarer is pushed onto the working stack. Then 


the contents of 1SIDNT is pushed onto the working stack. 


SETD (SUBROUTINE) 
This subroutine assumes that XR - 1 points to a newly 


allocated entry in the DEF table and that location 1SIDNT 
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contains in the upper half of a pointer to the STAB table to 
the symbol currently under consideration and in the lower 
half its lexicographical level. The current DEF table 
entry is linked to other DEF table entries for the same 
symbol. The chain of DEF table entries for a given symbol 
are ordered in decreasing order of lexicographical level and 
in the order MODE, OP, PRIOR, IDENT within the same 
lexicographical level. A note of the current 


lexicographical level is made in the currnt DEF table entry. 


CBOX (SYNTAX) 

The top word of the control stack contains the length of 
the working stack when it is marked. This top word of the 
control stack is deleted and the words added to the working 
stack are considered. These words contain bounds 
information contained in a row declarer. This bounds 
information is deleted from the working stack and stored in 
an entry in the BOUND table. Subroutine ERNGA is called 
with a parameter of BOXR. A pointer to the newly created 


BOUND table entry is then pushed onto the working stack. 


EBOX (SYNTAX) 

The top word of the working stack is a declarer and the 
second from the top word is a pointer to an entry in the 
BOUND table. These two words are deleted from the working 


stack and a declarer consisting of a pointer to the BOUND 
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table entry and a pointer to a newly created entry in the 
mode table is pushed onto the working stack. The newly 
created entry in the mode table is the mode row of (n times 
as indicated by the BOUND table entry) followed by the mode 
referred to in the declarer that was on top of the working 


stack, 


ADO (SYNTAX) 
One is added into the upper half of the word specified by 


the argument. 


MBND (SYNTAX) 
A word made up of the upper half of the location 1SIDNT 


and the argument is pushed onto the working stack. 


SRNGE (SYNTAX) 

An entry is made in the PROG table containing the 
argument. Then the contents of the locations 1$COMAC, 
1SCLNC, 1SCURR, 1$SEMIC, and 1SIDNT are successively pushed 
onto the working stack and set to zero. A pointer to the 
PROG table entry is then stored in the upper half of 1$CURR 


and the lower halves of 1SLEVEL and 1SIDNT. 


ERNGE (SYNTAX) 
The subroutine ERNGA is called with the argument as the 


argument. 
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ERNGA (SUBROUTINE) 

The pointer in 1$CURR is used to locate an entry in the 
PROG table. The argument is stored in the PROG table 
entry. So is the contents of 1SIDNT, 1SSEMIC, 1SCLNC, and 
1SCOMAC. Then the locations 1SIDNT, 1SSEMIC, 1SCURR, 
1SCLNC, and 1SCOMAC are restored from successive words 
popped from the working stack. Then the lower half of 


1SIDNT is stored in the PROG table entry. 
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PASS 2 SYNTAX 


PRO: 


CLO: 


RLTR: 


TRAIN: 


UTAIL: 


If: 


THEN: 


START, CLO, VOID , REST, [ FMODE] , SVAL, STRNG ,DECX; 
SRNGE ,STZ,[ RNGE],SER,VOCID ,EVOID ,DELV,ERNGE. 
LPAR, [PROC] ,SRNGE, INLL, PUSH, [ TSCODE] ,MARK, FORMP, 
') ',PMOD ,PUSEA,[DECLR],EPR,PUSH,[DECLR],':',QUAT, 
BPDEN, ORLL,ERNGE ,EPDNE; 

LPAR , [PARALLEL] ,SRNGE, INLL,PUSH,[ T$CODE],QS,')", 
PARN , ORLL , ERNGE; 

LPAR, [CAST],SRNGE,INLL,PMOD,':',QUAT,') ',SVAL, 
STRNG, ORLL, -ERNGE; 

LPAR, [SERIAL], SRNGE, INLL, SER, ') * ,ORLL,ERNGE; 
LPAR, [ANY], SRNGE INLL,IF,")* , ORLL,BRNGE. 
‘s:=',CSCTB. 

PUSH ,[ TSCODE], TRAIN, TRTL, BALN. 

',',ADO,[CNT],SER; 

EMPTY. 

UNIT, UTAIL. 

';", VOID ,DELV ,ODELV, TRAIN; 

EMPTY. 

CPAR,PUSH ,[ T$CODE] ,PUSH ,[ TSCODE] , CONF, TSEQ,RLTR, 
TERT, ENTL, [B1],CONE, CLEAR, [CNT] ,BALZR, SVAL,FIRM,DELV, 
ODELV , THEN, ELSE, BAL2; 

PUSH, [ TSCODE] ,SER, DIF , THEN ELSE, BAL2. 

BAR, [CONFORMITY ] ,XRNGE , PUSH ,[ TSCODE],QSEQ, 


BALZR;} 


ELSE : 


TSEQ: 


TSEQT 


UNIT: 


LSEQ: 


QUAT: 


- QTAIL: 
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BAR, [ CASE] ,XRNGE,SER; 
BARF ,[ ANY] ,XRNGE ,IF ,ESKIP. 
BAR, [ CASE],XRNGE ,SER,ENTIL,[B2]; 
BARF ,[ CASE] ,XRNGE, PUSH, [B2X],IF,POP,[B2X],ENTL, 
[B2]; | 
ESKIP,ENTL,[B2]. 
QUAT,ENTL,[B2],QSEQT. 
', ', ADO, [CNT] ,QSEQ; 
EMPTY. 
QUAT,QST. 
',',ADO,[CNT],QS; 
EMPTY. 
TERT,ENTL,[B1],ENTC,TSEQT. 
',',ADO, [CNT] ,TSEQ; 
DEC; 
LSEQ, QUAT. 
LABEL, LSEQ; 
EMPTY. 
'FOR'; 
TERT,QTAIL. 
':=",SASGN,QUAT,DASGN; 
"s:',SCT,TERT,DCT; 
:=',SCTAB,TERT,DCTAB; 
2=:',SIS,TERT, IDNTY; 


's/=:',SISNT,TERT,IDNTY; 
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EMPTY. 
TERT: MFOR,STAIL. 


STAIL 


OPER, FOP , TERT ,STAIL; 
FOPS. 
MFOR: SEC; 
OPER, WMOP ,MFOR, MOP. 
SEC: TAGOF ,SEC,SELCT; 
AMOD , SHEAP ,EREF , WGEN; 
'HEAP' , AMOD , SHEAP , EREF ,WGEN; 
'LOC' ,AMOD ,SLOC ,EREF , WGEN; 
PRIM; 
CLO,ACTP. 
PRIM: 'SKIP',ESKIP; 
'NIL' ,ENIL; 
“TRUE ' ,ETRUE; 
'FALSE' ,EFALS; 
DENOT ,WDEN, ITAIL; 
IDENT ,WIDEN, ITAIL. 
ITAIL: '[',SVAL,WEAK,OSUB,SRNGE ,INLL,INDEX,XTAIL,']", 
OBUS , ORLL, ERNGE; 
ACTP, 
ACTP: LPAR, [PARAMETER] ,SVAL,FIRM,SRNGE,PUSH,[TMODE], 
INLL , PUSH ,[ T$CODE] ,QS,") ',PARN , ORL, CALL, ERNGE ,ACTP; 
EMPTY. 
XTAIL: ',',ADO,[CNT],INDEX,XTAIL; 


EMPTY. 
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INDEX: BOUND,IX1; 
tet 3x2; 
IX5; 
EpYy. 
IX1: ':',LWB,IX3; 
IX5;3 


SBCT,ADO,[SBCNT]. 


IX2: BOUND ,UPB , 1X4; 
IX5; 
EPTY. 

IX3: BOUND, UPB, 1X4; 
IX4, 

IX4: iLX5; 

IX5: 'AT', BOUND, NLWB. 


BOUND: TERT,SINT,DELV. 

VMOD: MOD,SVIRT,CLEAR,[DFLG]. 

AMOD: MOD,SACT,CLEAR,[DFLG]. 

MOD: BOX,MOD,EBOX; 
'REF',PUSH,[DFLG] , VMOD,EREF ,POP,[DFLG]; 
'STRUCT',SUNIT; 
"UNION' ,UUNIT; 
"PROC' ,PUSH, [DFLG],PROCT,POP,[DFLG]; 
IND SRerRs 

PROCT: PROCM; 


PMOD, MARK ,PUSEA,[DECLR],EPR. 
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PROCM: LPAR-:[ANY],PUSH,[DFLG] ,CLEAR,[DFLG] ,MARK,MSEQ, 
')' ,PMOD,PUSEA,[DECLR],EPR,POP,[DFLG]. 
PMOD: VMOD; 
EVOID. 
BOX: '[ ', SRNGE, DSUB, BOXER, BTAIL,CBOX,']',DBUS,ERNGE. 
BOXER: BOUND ,OLWB,FOPT,':',BOUND,OUPB,FOPT,SACT; 
FOPT: 'FLEX',OFLEX; 
OFIX. 


BTAIL 


',' ADO, [CNT] ,BOXER,BTAIL; 
EMPTY . 
SUNIT: LPAR,[ANY],EVOID ,MARK,FSEQ,')',CST. 


UUNTT 


LPAR, [ANY ],PUSH,[DFLG],CLEAR,[DFLG],MARK,MSEQ, 
") ',CUN,POP,[DFLG]. 
MSEQ: VMOD,PUSEA,[DECLR],MODT. 
MODT: '‘',',MSEQ; 
EMPTY. 
FSEQ: FIELD,PUSHW,[DECLR] ,PUSHW,[TG],FSEQ1. 
FSEQ1: ',',FSEQ; 
EMPTY. 
FIELD: MIND,FLD1; 
MOD , TAG; 
TAG. 
FLD1: TAG ,SDCLR; 


EMPTY. 
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PARAM: QUAT. 
PTAIL: ',',ADO,(CNT],PARAM,PTAIL; 
EMPTY. 
FORMP: VMOD,IDENT,PUSEA,[DECLR],OFORM,FTL. 
FTL: ry gee ls | 
EMPTY. 
FT1: IDENT,PUSEA,[DECLR] ,OFORM,FTL; 
FORMP. 
DEC: "STRUCT! ,CLEAR, [DFLG],ST1; 
"UNION',UN1; 
"MODE' ,MD1; 
"PRIORITY',PR1; 
"OP' ,OPDEC; 
"PROC',PDT; 
MOD , SBLNK, IDEC; 
"HEAP ' ,MOD,SHEAP , IDEC; 
"LOC' ,MOD,SLOC , IDEC; 


'LIBRARY',VMOD,IDENT,LIBL. 


PDT: IDENT,STID,GMOD,IDEC1; 
PROCT ,SBLNK, IDEC. 
ST1: SUNIT,SBLNK,IDEC; 


MIND, '=',SUNIT,SACT,CLEAR,[DFLG],STL. 


STL: gt pple? 
';', TRAIN. 
ST2: MIND, '=',SUNIT,SACT,CLEAR,[DFLG],STL; 


DEC. 
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UN1: UUNIT,SBLNK,IDEC; 

MIND, '=',UUNIT,UTL. 
UTL: ',',UT2; 

'.' TRAIN. 
UT2: MIND,'=',UUNIT,UTL; 

DEC. 
MD1:  MIND,'=',AMOD,MTAIL. 


MTAIL: ',',MD2; 


',' ,TRAIN. 
MD2: MD1; 
DEC. 
PR1: TAG,'=',DENOT,PRT. 
PRT: ' ' PR2; 
',',TRAIN. 
PR2: PR1; 
DEC. 


OPDEC: PROCM,OPER,STID,OIDNY,OIDN, '=',QUAT,REST, 
[FMODE ] ,SVAL ,STRNG,EVOID ,OENTR,DELV, OPTL; 
OPER, STID ,OIDNY ,OIDN,'=", QUAT, REST, [FMODE] , SVAL, 
STRNG ,EVOID ,OENTR,DELV, OPTL. 

OPTL: ',',OPT1; 
';', TRAIN. 

OPT1: OPDEC; 
DEC. 


IDEC: IDENT,STID,SAVE,[FMODE],IDEC1; 


SHPBK ,SACT, CLEAR, [ DFLG] ,EREF ,WGEN,STAIL,QTAIL. 
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IDEC1: '=',SVIRT,CLEAR,[DFLG],OIDN,QUAT,REST,[FMODE], 
SVAL ,STRNG , DECX,ETL; 
SACT CLEAR, [DFLG] ,EREF ,SAVE,[FMODE] ,AT2. 
ETL: Sy gee ve 
';' TRAIN. 


ET1: IDENT,STID,'=',OIDN,QUAT,REST,[FMODE],SVAL, 


STRNG ,DECX,ETL; 
DEC. 
ATL: ',',AT1; 
';', TRAIN. 
AT1: IDENT,STID,AT2; 
DEC. 
AT2:  ':=',OIDN,REST,[FMODE] ,OASGN,SLCBK ,WGEN,QUAT, 


OIDN, REST, [FMODE] , SLCBK ,WGEN , DECX, ATL. 
LIBL: ',',LIB1; 

's'" TRAIN. 
LIB1: IDENT,LIBL; 

DEC. 


DECX: EVOID,OENTR,DELV. 
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PASS 2 ACTIONS 
EMPTY (SYNTAX) 
No action. This action is used when no action is to be 


performed and there are no other actions in the alternative. 


START (SYNTAX) 

This action peeks at the next (first) input symbol. If 
it is not a left parenthesis then the action returns 'FAIL'. 
Otherwise, DECLR and FMODE are set to 'PROCEDURE VOID', the 
last identifier encountered is claimed to be all blanks, the 
flag LIBF is set to indicate this is a program and not a 


subroutine, and the action OIDN is executed. 


SRNGE (SYNTAX) 

The contents of 2SRNGE is pushed onto the control stack. 
Then the contents of the locations 2SCNT, 2$DECLR, 2$FMODE, 
2$B1X, 2SB1S, 2$B2X, 2$B2S, 2$L1, and 2SOPT are successively 
pushed onto the control stack and set to Zero. The lower 
half of 2SRNGE contains the highest range number 
encountered. This number is incremented to the next range 
number and stored in both halves of 2$RNGE ae the new range 


number and the maximum range number. 


XRNGE (SYNTAX) 
Location 2SCNT is zeroed. The lower half of 2SRNGE 


contains the highest range number encountered. This number 
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is incremented to the next range number and stored in both 
halves of 2SRNGE as the new range number and the maximum 


range number. 


ERNGE (SYNTAX) 

The locations 2SOPT, 2$L1, 2$B2S, 2$B2X, 2$B1S, 2SB1X, 
2SFMODE, 2SDECLR, and 2SCNT are restored from successive 
words popped from the control stack. Then the next word is 
popped from the control stack and the upper half of it is 


stored in the upper half of 2SRNGE as the new range number. 


TAG (SYNTAX) 

The next symbol in the input stream is checked. If it 
is a reserved word this routine gives a nomatch return. 
Otherwise, the next symbol is accepted and a pointer to the 


STAB table entry of the symbol is stored in 2$TG. 


OPER (SYNTAX) 


TLUG is called with DSOP as an argument. 


MIND (SYNTAX) 


TLUG is called with DSMODE as an argument. 


IDENT (SYNTAX) 


TLUG is called with DSIDENT as an argument. 
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DENOT (SYNTAX) 

The next symbol in the input stream is checked. If it 
is a reserved word this routine gives a nomatch return. If 
it is not a real, integer, format, character, or string 
denotation a nomatch ee is given. A two word 
representation of the denotation is calculated. An entry 
is created in the DEF table containing the mode of the 
denotation and the two word representation of its value. 


The denotation in the input stream is then accepted. 


TLUG (SUBROUTINE) 

The next two symbols in the input stream are checked. 
If the second symbol is "OF" then a nomatch return is given. 
Otherwise, the first symbol is looked up in the symbol table 
entry for the first definition visible from the current 
range. If the type of symbol table entry is not the same 
as the argument to this routine a nomatch return is given. 
Otherwise, a pointer to the DEF table entry is saved in 
2$SLASTS, a pointer to the symbol is saved in 2S$TG, and the 


symbol is accepted. 


LPAR (SYNTAX) 

The next symbol in the input stream is checked. If it 
is not a left parenthesis or if it does not have the 
attributes specified by the argument a nomatch return is 


given. Otherwise, the symbol is accepted. 
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BAR (SYNTAX) 
The next symbol in the input stream is checked. Lt at 
is not a vertical bar or if it does not have the attributes 
specified by the argument a nomatch return is given. 


Otherwise, the symbol is accepted. 


BARF (SYNTAX) 

The next symbol in the input stream is checked. If it 
is not a vertical bar colon or if it does not have the 
attributes specified by the argument a nomatch return is 


given. Otherwise, the symbol is accepted. 


CPAR (SYNTAX) 
If the current range has no commas, semicolons, or colons 
then a nomatch return is given. Otherwise, a normal return 


is given. 


TAGOF (SYNTAX) 

The next two symbols in the input stream are checked. 
If the second symbol is not "OF" then a nomatch return is 
given. Otherwise, the first symbol is pushed into the 


control stack and both input symbols are accepted. 


LABEL (SYNTAX) 
The next two symbols in the input stream are checked. 


If the second symbol is not ":" then a nomatch return is 
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given. Otherwise, the first symbol is looked up in the 
symbol table for the first definition visible from the 
current range.If the entry is not an identifier then a 
nomatch return is given. Otherwise, CAD is called with the 
argument [OSLBL, value of label found in the table entry]. 


Then both input symbols are accepted. 


SASGN (SYNTAX) 

SOFT is called with a pointer to the top control block in 
the working stack. The mode of the result is stored in the 
control stack. Then INS is called with the argument 
[OSASGN, mode] and [-1, 1] is added to the LOC/LEN word in 


the value control block on top of the working stack. 


DASGN (SYNTAX) 

The mode is popped from the control stack. This mode is 
dereferenced and stored as a target mode. STRNG ie called 
with a pointer to the top value control block in the working 
stack and saved target mode as arguments. The top two 
control blocks in the working stack are combined and the 
mode of the resulting control block is set equal to the 
saved mode. CAD is called with the argument [OSASGNE, 
saved mode]. Then [0, 1] is added to the LOC/LEN word in 


the value control block on top of the working stack. 
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ASGNE (SYNTAX) 
CAD is called with the argument [OSASGNE, contents of 


2SDECLR]. 


SCTAB (SYNTAX) 
SOFT is called with a pointer to the top control block in 
the working stack as an argument. Then INS is called with 
the following arguments (mode is the result of SOFT and *n 
are generated labels): 
[O$SJUMP, *1] 
[OSMREF, 0] 
{OSLBL, *2] 
[OSCONF, mode] 
[OSTF, *3] 
[OSMREF, 0] 

and CAD is called with the following arguments: 
[OSCASGN, mode] 
[OSTRUE, 0] 
[OSJUMP, *4] 
[OSLBL, *1] 
[OSMAX, 0] 


The label *2 is stored in the control stack. 


DCTAB (SYNTAX) 
CAD is called with the following arguments: 


[OSCONE, 0] 
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[OSJUMP, *2] 

[OSLBL, *3] 

[OSDELV, mode] 

[OSFALSE, 0] 

[OSLBL, *4] 
The top two control blocks are combined into one and its 
mode is set to boolean. The symbols *2, *3, and *4 have 
the same value they did when the corresponding SCTAB code 


was processed. 


SISNT (SYNTAX) 


OSISNT is pushed onto the control stack. 


SIS (SYNTAX) 


OSIS is pushed onto the control stack. 


IDNTY (SYNTAX) 

A new control block of type WSBAL keying 2 values is 
created and it is made to refer to the code word popped from 
the control stack. BB is called with a pointer to the 
newly created control block. This will calculate the 
target mode for both keyed values. Then C and DC are 
called with this mode as target mode for both values. The 
top three control blocks are combined into a single control 


block and its mode is set equal to boolean. 
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ADD (SUBROUTINE) 
The argument is inserted into the output code after the 
code for the control block pointed to by VALP (or the 
current control block). The following code is moved one 


word to make room for it. 


INS (SUBROUTINE) 

The argument is inserted into the output code in front of 
the code for the control block pointed to by VALP (or the 
current control block). The following code is moved one 


word to make room for it. 


MATCH (SUBROUTINE) 

The mode table is searched for an entry that specifies a 
mode equal to the mode specified by the argument. This 
subroutine is used to insure that only one entry of the mode 


corresponds to any given mode. 


DELWW (SUBROUTINE) 

Several control blocks starting with the one pointed to 
by XR-1 are combined into a single control block. This 
single block has a starting location specified in the old 
top control block and a length necessary to include 


everything included in any of the old control blocks. 
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DELW (SUBROUTINE) 
Several control blocks starting with the one pointed to 
by XR-1 are combined into a single control block. This 


Single block is the old top block. 


WAD (SUBROUTINE) 
A control block is created and made to refer to a word 


added with CAD which is immediately called. 


CAD (SUBROUTINE) 
The argument word is added to the end of the code that is 


being generated. 


DEREF (SYNTAX) 
The mode saved in FMODE is dereferenced and stored in 


DECLR. 


EVOID (SYNTAX) 


A void mode is stored in DECLR. 


EREF (SYNTAX) 
The mode in DECLR is changed to a mode that is a 


reference to that mode. 


EREF1 (SUBROUTINE) 


A mode that is a reference to the argument mode is 
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returned. 


CST (SYNTAX) 

The top word in the control stack is where the working 
stack was marked. The working stack contains pairs of 
words after the mark consisting of: 

[mode, bound] 

[tag, 0] 
An entry is created in the bound table for the bounds and a 
mode is constructed from the modes and tags. The 
subroutine MATCH is called to find the unique MSSTRCT entry 
in the mode table for the structured mode. All words added 
to the working stack after the mark are deleted and a word 
referring to the structured mode and bound is pushed onto 


the working stack. The mark in the control stack is 


popped. 


EPR (SYNTAX) 

The top word in the control stack is where the working 
stack is marked. Words added to the working stack since 
the mark contain modes of the arguments of the procedure and 
the mode of the result. All words added after the stack 
was marked are deleted and a procedure mode with the proper 
modes as arguments and result found by MATCH is pushed onto 
the working stack. The mark word is deleted from the 


control stack. 
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CUN (SYNTAX) 

The top word of the control stack is where the working 
stack was marked. Words added to the working stack since 
the mark contain modes of a united mode. All words added 
after the stack was marked are deleted and a united mode 
united from these modes found by match is pushed onto the 
working stack, The mark word is deleted from the control 


stack. 


DSUB (SYNTAX) 

In the PROG table entry for the row declarer just 
encountered there is a label for the bounds procedure and a 
label for jumping around the bounds procedure. The 
following code is added to the generated output: 

[OSJUMP, end of procedure label] 
[OSEPDN, procedure label] 

[OSLL, current level] 

[OSDSUB, 0] 


This is the header of the bounds procedure. 


DBUS (SYNTAX) 
The following code is added to the generated output: 
[OSDBUS, row PROG table entry] 
[OSRETN, void] 
[OSLLE, current range] 


[OSDLEN, length label] 
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[OSLBL, end of procedure label] 


This is the trailer of the bounds procedure. 


CBOX (SYNTAX) 
Two words are allocated in the BOUND table, These two 
words are set to the following contents: 
[BSROW, dimension ] 
[0, current range] 
Then a pointer to this table entry is pushed into the 


working stack. 


EBOX (SYNTAX) 

The top word in the working stack points to an entry in 
the BOUND table. The bound part of DECLR is stored in the 
upper half of the second word of this table entry. The 
mode part of DECLR is changed to a row mode with the number 
of dimensions indicated in the BOUND table entry and whose 
element mode is the original mode in DECLR. The top word 
in the working stack containing the pointer to the BOUND 


table entry is deleted. 


EPDEN (SYNTAX) 

The top word in the control stack is the mode of the 
procedure denotation. This mode is unstacked from the 
control stack and the routine STRNG is called with a pointer 


to the top control block in the working stack and a target 
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mode of the result of the procedure mode of the procedure 
denotation. The new top word in the control stack is the 
starting code location of the procedure denotation. It is 
unstacked and the LOC/LEN word of the top control block is 
changed to include starting location of the procedure 
denotation. The mode of the procedure denotation is stored 
in the last control block. The routine INS is called with 
the argument [OSSRNGE, current range]. The routine ADD is 
called with the argument [OSERNGE, current range]. Then 


{-1, +1] is added to LOC/LEN word of the top control block. 


EPDNE (SYNTAX) 
The top control block LOC/LEN word is made to include the 


last generated code word. Then the routine PCDR is called. 


VOID (SYNTAX) 
The routine STRNG is called with the top control block in 


the working stack as an argument and VOID as a target mode. 


ODELV (SYNTAX) 
The routine CAD is called with the argument [OSDELV, 


void]. 


GMOD (SYNTAX) 
The mode of the last identifier accepted from the input 


stream is stored in FMODE. 


179 
SVAL (SYNTAX) 
The top control block in the working stack is made the 


current control block. 


PUSH (SYNTAX) 
The word indicated by the argument is fetched and pushed 


into the control stack. 


POP (SYNTAX) 
The top word of the control stack is popped and stored in 


the location indicated by the argument. 


PUSHW (SYNTAX) 
The word indicated by the argument is fetched and pushed 


into the working stack. 


PUSEA (SYNTAX) 
The word indicated by the argument is fetched and pushed 


into the working stack with the lower half zero. 


SAVE (SYNTAX) 
The contents of DECLR are fetched and stored in the word 


indicated by the argument. 


REST (SYNTAX) 


The word indicated by the argument is fetched and stored 
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in DECLR. 


ADO (SYNTAX) 


One is added to the location specified by the argument. 


STZ (SYNTAX) 
A zero is stored in the upper half of the word specified 


by the argument. 


CLEAR (SYNTAX) 


A zero is stored in the word specified by the argument. 


SHEAP (SYNTAX) 


OSHGEN is stored in the location GTYPE. 


SLOC (SYNTAX) 


OSLGEN is stored in the location GTYPE. 


SBLNK (SYNTAX) 


Zero is stored in the location GTYPE. 


SHPBK (SYNTAX) 
If location GTYPE is nonzero a normal return is given. 


Otherwise, OSHGEN is stored in the location GTYPE. 
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SLCBK (SYNTAX) 
If location GTYPE is nonzero a normal return is given. 


Otherwise, OSLGEN is stored in the location GTYPE. 


SBCT (SYNTAX) 
The word 
[OSVSBCT, CNT+1] 
is added to the end of the generated output where CNT+1 is 


the current subscript position. 


LWB (SYNTAX) 
The word 
[OSVLWB, CNT+1] 
is added tc the end of the generated output where CNT+i is 


the current subscript position. 


UPB (SYNTAX) 
The word 
[OSVUPB, CNT+1] 
is added to the end of the generated output where CNT+1 is 


the current subscript position. 


NLWB (SYNTAX) 
The word 
[OSVNLWB, CNT+1] 


is added to the end of the generated output where CNT+1 is 
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the current subscript position. 


EPTY (SYNTAX) 
The word 
[OSVEPTY, CNT+1] 
is added to the end of the generated output where CNT+1 is 


the current subscript position. 


OLWB (SYNTAX) 
The word 
[OSLWB, CNT+1] 
is added to the end of the generated output where CNT+1 is 


the current subscript position. 


OUPB (SYNTAX) 
The word 
[OSUPB, CNT+1] 
is added to the end of the generated output where CNT+1 is 


the current subscript position. 


OFIX (SYNTAX) 
The word 
[OSFIX, CNT+1] 
is added to the end of the generated output where CNT+1 is 


the current subscript position, 
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OFLEX (SYNTAX) 
The word 
[OSFLEX, CNT+1] 
is added to the end of the generated output where CNT+1 is 


the current subscript position. 


OSUB (SYNTAX) 
The word 
[OSSUB, 0] 


is added to the end of the generated output. 


OBUS (SYNTAX) 

A numbex of OSVEPTY commands ace added to the generated 
output code until every position of the row value is 
subscripted. The new mode of the subscripted base is 
calculated and stored in the top value control block in the 
working stack. Then either the word 

[OSBUS, mode] 
or the word 

[OSRBUS, mode] 
is added to the generated output code if the mode of the 
base is not a reference mode or is a reference mode 
respectively. The length in the top value control block in 


the working stack is updated to include this added word. 
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SINT (SYNTAX) 
The top value control block is strongly coerced to the 


mode integral. 


SACT (SYNTAX) 
A one is stored in location DFLG to indicate an actual 


Geclarer. 


SVIRT (SYNTAX) 
A minus one is stored in location DFLG to indicate a 


virtual declarer. 


STID (SYNTAX) 
A pointer to the last symbol accepted from the input 


stream is stored in IDNT. 


PARN (SYNTAX) 

A new control block of type WSPAR is created on the 
working stack. The count is set equal to one plus CNT and 
zero is stored for the range information. Also, the top 
word from the control stack is popped and stored as a 


pointer to the start of the code for this value. 


BAL2 (SYNTAX) 
A new value control block of type WSBAL is created on the 


working stack. The count is set equal to two and zero is 
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stored for the range information. Also, the top word from 
the control stack is popped and stored as a pointer to the 


start of the code for this value. 


BALZR (SYNTAX) 

A new value control block of type WSBAL is created on the 
working stack. The count is set equal to one plus CNT and 
zero is stored for the range information. Also, the top 
word from the control stack is popped and stored as a 


pointer to the start of the code for this value. 


BALN (SYNTAX) 

A new value centrol hlock of type WSRAT, is created on the 
working stack. The count is set equal to one plus CNT and 
the current range nuinver is stored for the range 
information. Also, the top word from the control stack is 
popped and stored as a pointer to the start of the code for 


this value. 


INLL (SYNTAX) 
A pointer to the top of the working stack is pushed into 
‘the control stack. Then RLL (the current range LL word) is 


pushed into the control stack. RLL is set to zero. 


ORLL (SYNTAX) 


The contents of RLL (the current range LL word) is ored 
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into the LL word of the top value control block in the ” 
working stack. Location RLL is shifted left one place and 
the contents of the word popped from the control stack is 
ored into the shifted contents of location RiL. The next 
word from the control stack is popped to get the length of 
the working stack when this range was entered. The 
contents of all LL words in value control blocks that were 
created after this range was entered are shifted left one 
place to change their representation to that of the outer 


range. 


WGEN (SYNTAX) 

A new value control block of type WSVALUF is created on 
the working stack. The mode of the value is set to the 
contents of DECLR. The value control block is made to 
refer to a word of output code containing [contents of 
GTYPE, contents of DECLR] and this word is added to the 


output code. 


ENTL (SYNTAX) 

A code word containing [OSLBL, label referred to by the 
argument] is inserted in front of the code for the value 
referred to by the value control block on top of the working 
stack. Then the label referred to by the argument is 


incremented. 
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ENTC (SYNTAX) 
The following is inserted in front of the code referred 
to by the top value control block in the working stack: 
[OSCONF, mode] 
[OSTF, B1] 
[OSMREF, 0] 
and the following is added after the code referred to by the 
value control block: 
[OSCASGN, mode] 
[OSJUMP, (B2) ] 
B1 and B2 are the labels stored in locations B1 and B2. 
The value of the label in B2 is incremented after this 
sequence is generated. Then the top vaive control block is 


deleted from the working stack. 


CSCT (SYNTAX) 
RELF is set to zero to indicate "conforms to", 
CSCTB (SYNTAX) 


RELF is set to one to indicate "conforms to and becomes". 


CONF (SYNTAX) 

A unique label is obtained and stored in LL. The B1 and 
B2 label generators are initialized to the start of two 
label blocks containing two plus the number of commas in the 


current range number of labels. The following code words 
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are added to the output: 
[OSJUMP, L171] 


[OSMREF, 0] 


CONE (SYNTAX) 

The following is inserted in front of the code for the 
value referred to by the top value control block in the 
working stack: 

[OSTUMP, (B2) ] 

[OSLBL, Li] 

[OSMAX, 0] 
and the following is added after the code referred to by the 
value control block: 

[OSCONE, 0] 

[OSJUMP, B1S] 
(B1S is the initial value of the label B1 before 
incrementing) The label generator B2 is reset back to the 
beginning and the last value control HiBek in the working 


stack is deleted. 


DIF (SYNTAX) 

If the range following the current range has semicolons 
or no commas then the value on tov of the working stack is 
coerced to a boolean mode. The label generator B2 is set 
to a unique label. [OSTF, (B2)] is added to the output 


code where (B2) is the label in B2. The top value control 
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block in the working stack is deleted. 

Otherwise, the top value on top of the working stack is 
coerced to integral mode. Label generator B2 is set to the 
start of a block of N+2 labels where N is the number of 
commas in the Pouiewins range. [OSCASE, N+1] is added to 
the output code where N is the number of commas in the 
following range. [OSJUMP, last] is added to the output 
code where last is the last label in the B2 block. Then 
[OSJUMP, B2+] is successively added to the output code N+1 
times with labels from the first N+1 labels in the block B2. 
The B2 label generator is reset to the beginning of the 
label block. Then the top value control block in the 


working stack is deleted. 


DELV (SYNTAX) 
The last value control block in the working stack is 


deleted. 


OIDNY (SYNTAX) 

Location OPNT points to the last operator declared. 
This pointer is stepped to the next Seceakse definition in 
the DEF table and a copy is stored in LASTS as the last 


operator read. 


FOP (SYNTAX) 


The last symbol accepted from the input stream is looked 
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up in the symbol table for the first priority definition. 
This priority is stored as the current priority and the 
routine COP is called. A new value control block of type 
WSOP is created on top of the working stack. The operator 
symbol and its priority and a pointer to the last WSOP value 
control block found in OPT are stored in it. A pointer to 


the current WSOP value control block is stored in OPT. 


FOPS (SYNTAX) 
The current priority is set to zero and the routine COP 


is called. 


WMOP (SYN'TAX) 
The pointer to the last symbol accepted from the input 
stream (Which is an operator) is stored on top of the 


control stack. 


MOP (SYNTAX) 
The pointer to the operator is popped from the control 
stack, the unary operator flag is set, and the routine COPM 


is called. 


SELCT (SYNTAX) 
The top value control block in the working stack is 
weakly coerced. The mode of the top value control block 


must be either a structured mode or a reference toa 
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structured mode or it is an error. The tay is popped from 
the control stack and the structured mode is searched for a 
field with this tag. If not found, a terminal error 
message is typed out. If the original mode was a 
structured mode then the code [OSSELCT, num] is added after 
the current value. If the mode was a reference to a 
structured mode then the code [OSRSLCT,num] is added after 
the current value. (num is the number of the field with 
the matching tag.) Then the code [OSETC, mode] is added 
where mode is the mode of the field if the original mode was 
a structured mode and reference to the mode of the field if 
the original mode was a reference to a structured mode. 
The top value control block in the working stack is modified 
to include the two added code words and its mode is changed 


to the mode in the OSETC code word. 


CALL (SYNTAX) 

The top word from the control stack is popped and stored 
in location DECLR as the mode of the procedure.The actual 
parameter value control blocks on top of the working wtaee 
are strongly coerced to the mode of the formal parameters of 
the procedure. The code [OSMSCW, 0] is inserted in front 
of the code for the top value control block (arguments). 

The code [OSENTER, mode] is added after the code for the top 
value control block where mode is the mode of the result of 


the procedure. The top two value control blocks are 
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combined into a single value and made to include all of the 
code added here, and its mode is set equal to the mode of 


the result of the procedure. 


MARK (SYNTAX) 
A pointer to the top of the working stack is pushed in 
the control stack. Then a zero is pushed onto the working 


stack (to save room for a header word). 


ESKIP (SYNTAX) 

A new value control block of type WSSKIP is created on 
the working stack. The code [OSSKIP, 0] is added to the 
generated output code and the value control block is made to 


refer to this code word. The LL word is set to zero. 


ENIL (SYNTAX) 

A new value control block of type WSNIL is created on the 
working stack. The code [OSNIL, 0] is added to the 
generated output code and the value control block is made to 


refer to this code word. The LL word is set to zero. 


EFALS (SYNTAX) 

A new value control block of type WSVALUE is created on 
the working stack. The code [OSFALSE, 0] is added to the 
generated output code and the value control block is made to 


refer to this code word. The LL word is set to zero. 
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ETRUE (SYNTAX) 
A new value control block of type WSVALUE is created on 
the working stack. The code [OSTRUE, 0] is added to the 
generated output code and the value control block is made to 


refer to this code word. The LL word is set to zero. 


SDCLR (SYNTAX) 
The mode of the last symbol accepted from the input 
stream which is a mode indication is stored in location 


DECLR. 


OIDN (SYNTAX) 
The code [OSIDNTY, def] is added to the output code where 
def is a pointer to the definition of the last symbol 


accepted from the input stream which is an identifier. 


OENTR (SYNTAX) 
The code [OSIDNTE, DECLR] is added to the output code 


where DECLR is the mode in DECLR. 


OASGN (SYNTAX) 
The code [OSASGN, DECLR] is added to the output code 


where DECLR is the mode in DECLR. 


OFORM (SYNTAX) 


The code [OSFORMP, formal] is added to the output code 
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where formal is a pointer to the definition of the last 
symbol accepted from the input stream which is an 


identifier. 


WIDEN (SYNTAX) 

A new value control block of type WSVALUE is created on 
the working stack. It is made to refer to a newly added 
code word [OSIDENT, def] where def is a pointer to the 
definition of the identifier. The declarer for the 
identifier is stored in the value control block. The LL of 
the last identifier is set in the value control block and 


ored into RLL. 


WDEN (SYNTAX) 

A new value control block of type WSVALUE is created on 
the working stack. It is made to refer to a newly added 
code word [OSDENOT, def] where def is a pointer to the 
definition of the denotation. A declarer for the 
denotation is stored in the value control block. Zero is 


stored in the LL location of the value control block. 


PCDR (SUBROUTINE) 
The following is inserted in front of current value in 
VALP: 
[OSJUMP, *1] (*1 is a unique label) 


[OSEPDN, *2] (*2 is another unique label) 


195 
[OSLL, range] (range is scope of proc) 
and added after the current value: 
[OSRETN, mode of result of procedure] 
[OSLLE, 0] 
[O$LBL, *1]. 
[OSEPDV, mode of procedure] 
[OSEPDE, *2] 
Current value control block is made to include all of these 


added code words. 
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3 X2,X3 9 
4 X4,X5 10 
5 X6,X7 ii 
6 AwREG 12 
7 QeREG 13 
8 EeREG 14 
9 TIMER 45 
8 MACRO HEAD,NAME,PRIORITY, ADDRESS 
HEAD #1 
EIGHT 
ZERO LINK 
ZERO #3 PRIORITY 
ZERO STaTUS WORD 4 
ZERO STATUS WORD 2 
ZERO RETURN I¢ 
XED »STRAP TRAP ROUTINE 
ZERO SAVED IC 
ZERO #4 Ic 
OcT 0,0;0,0,0,0¢0,0 SAVED REGISTERS 
ENDM TCB 
TCB NULL Ogee NULL BLOCK 
TcB »MTCB,1,MTASK MASTER FAULT AND INTERRUPY¥ ROUTINE 
TcB #STCB,2,SPEC SPECIAL INTERRUPT ROUTINE 
TCB Z,70B,10,F IN DEBUGGER 
CB A,1CB,20,INIT 
¥cB B,10B,15,SBUF1 
TCB »1TcB,99, IDLE IDLE PROGRAM 


U1D5/ LL u5-26"72 


ON0220 
VO02e1 
vu0222 
YO0223 
000224 


000225 
000226 
VoC227 


Gongng 
vongnd 
vondcd 
vo9090 
vo0dg00 


002164 
U0N000 


17,303 


7777/77 
Gogdu0 
gououd 
gouduo 
gounuD 
voun0n 

000047 

QU0US0 
7172 OY 
Oounu0 


000502060/02 


CUNSTANI 3 
EXECUTIVE 
66 TTLS 
67 READ 
68 ERROR EQU 
69 RrG ZERO 
70 Iu ZERO 
71 STAT ZERO 
72 LINK ZERO 
73 TASK ZERO 
74 NIC EQU 
75 NREG ENYU 
76 XEDT XED 
77 FeLaG ZERO 
78 DATE 


EXECUTIVE 


“1 


SNULL +7 


SNULL +8 
TRAP 


PAGE 


04557 


END 


END 


01 0526-72 17,868 
t 
7/7777 
VOuU2350 GoONN00 YouUnuO 
0v0231 vonooo vounuo 


OF BINARY CARD UoUu0U0N07 


000232 000000 7777/7 
000253 090080011207 
0u0234 
0u0234 
Luc244 000246 0012 02 
Udc245 090000011207 
000246 
000246 
000272 009001 O000u% 
000273 000005710204 


000500 


000300 090000 000310 
000301 000001 OoyVoUd 
000302 0090000 vououd 
UQGCS93 000000 900514 
000304 od000000000000 
000305 Qn0000000U0U 
U00S506 Od90000000U0N 
000307 Op009000000N 
Coosion 000000 000254 
Quo3i1 6090000 0000uU6 
000312 000006710204 
N00520 
000529 
Ooo320 000001 000410 


OF BINARY CARD O0U0U0GB 


000321 000001 vnu410 
VUoc322 vo0000 OoUVoYVO 
000323 Uo0000 0nu414 
000324 do000000000U 
000325 do0000000U00U 
000326 Og0000000N0N 
V00327 Ood000000U0NU 
000330 
Cuc350 000000 000410 
000331 090000 0nu410 
Go0352 090000 vououo 
000333 vo0000 000414 
VQOG334 OgdondNDNUNN 
U00355 doo0000000NY 
000356 dn0000000U0N 
V003357 uUnoonoouv0uNNU 
0u0340 
000340 000000 900344 


CONSTANTS 


ERROR 
TTY 
TTYF 
STTYF 


TIYB 
SF 


$|8 
TTYS] 


LREG 


WLOC 
WIN 


RREG 
WREG 


FREG 


OREG 


EXECUTIVE TASKS 


TTLS EXECUTIVE TASKS 
HEAD 

EQU -4 

ZERO 

ZERO 

ZERO eel 
EVEN 

8SS 8 
TALLYD SIB,10,2 
EVEN 

BSS ines 
ZERO Let 
EIGHT 

ZERO 0,WLOC 
ZERO 1,0 
ZERO 

ZERO aWN 

OCT 0,0,0,0 
ZERO »TTYB 
ZERO 76 
EIGHT 

EQU * 


ZERO 1,40C 
ZERO 1,LO0C 


ZERO 

ZERO »LEN 
OCT 0,0,0,0 
EIGHT 

ZERO +LOc 
ZERO LUC 
ZERO 

ZERO aLEN 
ocT 0,0,0,0 
EIGHT 

ZERO 0,OREGe4 


vJo5é 


END 


by J5-26-72 17,868 


Yur 3414 votono oounuo 
Gyues42 uonhooo vououd 
006343 000000 gounuD 
U00344 OgNDOGO0OU0N 
Uu0345 vg000000000" 
000346 vuonoronvounu 
OF BINARY CARD voududo9 
Go0347 OondNOOD0NUDL 
000550 
UN0350 090000 an00u0 
00351 Jdgoudcto Onuoud 
U00352 000000 yvououds 
000353 Ug0000 LVoVONa 
000354 vnndood0u0uN0U 
0v0355 cdondnoouvoUudY 
000356 vuond00000U0NU 
000357 O0nd00000000 
0003560 
000360 Go00N0 000564 
000361 000000 000364 
000362 000367 900000 
000363 0090000 000009 
000364 000000000000 
000365 000000000000 
V00366 Og90000000000 
000367 00766000766) 
0u03579 
G00370 O0000000000N 
QO00371 up000000000NU 
000372 ugondn0000000 
Yo0373 do90000000000 
000374 unndoon0000N 
OF BINARY CARD 0000uN010 
000375 danod0n00000N 
000376 Oondoong0N0N 
000377 voodno00000U 
000400 
000400 090000 Oo00u0 
000401 090000 dounuD 
000402 00900000 000000 
000403 00000 Od000N0 
000404 0900090 Oou0u0 
000405 O00000 OouNND 
000406 090000 000000 
000407 0090000 o00000 
000410 00000 doV0UN 
000411 GQ0000 gounud 
000412 
000412 015012123104 
000413 1147127116040 


CONSTA 


114 
115 
416 
117 


118 
119 
120 
tei 
122 
123 


124 
425 
126 
127 
128 
129 


130 


1314 
132 


1353 
134 
135 
156 
137 
138 
139 
440 
144 
142 
143 
144 
145 


NTS 
EXECUTIVE TASKS 


ZERO 
ZERO 
ZERO 
OCT 


EIGHT 
OSREG ZERO 
ZERO 
ZERO 
ZERO 
OcT 


EIGHT 
CREG ZERO 
ZERO 
ZERO 
ZERO 
OCT 


OCT 
EIGHT 
TRREG OCT 


EIGHT 
SREG ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
Loc ZERO 
LEN ZERO 
EVEN 
FTAB OCT 


U,0,0,0 


0,5 
0,0,0,0 


0,CREG+4 
Q,CREG+4 
CREG+7 
0,0,0 


007660087660 
010+020+0007000 


045912123104,.1171271160409 


PAGE 


04557 Uy 


END 


END 


000414 6145012115105 
U00415 1150400490u4u 
U0c416 015012115115 
000417 10504004004u 
Uun42o 015012106124 
Qoc421 10110704n04) 
Ugo0422 045012124111 
OF BINARY CARD Qoyvoduoil 
000423 1151095122040 
000424 615012103115 
Voe425 10404004004u 
000426 015012104122 
UVo00427 114040040040 
000450 015012114108 
G904541 113125120044 
000432 01591212312) 
000433 105103040440 
v00454 015012120101 
000435 122040040u40 
000456 015012132102 
000437 122117120049 
000440 015012117116 
000441 103040040040 
000442 015012123124 
000443 1091122124040 
000444 015012117126 
000445 106114040040 
000446 015012104111 
000447 126040040040 
000459 015012105130 


OF BINARY CARD Oog0u012 


000451 


U5"26-72 17,863 


106040040N4u 


CONSTANTS 


150 
151 
452 
153 
154 
455 
156 
157 
158 
159 


160 


EXECUTIVE TASKS 
OCT 
oct 
OCT 
OCT 


ocT 
OcT 
OCT 
OCT 
OcT 
OcT 
OCT 
ocr 
OCT 
OCT 
OcT 


015012115105,115040040049 
015012115115,10504004n04n 
015012196124,10110704n049 


015012124111,115105122049 


015012183115,104040040040 
015012104122,114040040049 
015012114105,115125120040 
015012123120,1051030400 40 
015n12120101,122040040049 
015012132105,12211712n049 
015012117116,103040040040 
015012123124,101122124949 
015012117126,106114040049 
015012104111,126040040040 


015012105130,19604004004 9 


PAGE 


.1957 Lt v5-20-72 17,303 CONSTANTS PAGE 


UESUGGER 
161 TTLS DEBUGGER 
162 HEAL Z 
000452 vonooo gounud 163 TeMP ZERO 
Uu0453 UVonv0N vovoLd 164 TemMp1 ZERO 
U0U454 OgnNV00 LououUO 165 wlemP ZERO 
U00455 000140 vououd 166 UTCB ZERO ASTCB 
000456 OoND00 HOYUNUD 467 RETRN ZERO 
000457 00N461 Youd 40 1468 OUT TALLYB OUTS 
voC460 000461 voun 4u 169 UUTP YALLYB QUTR 
000461 170 OUTB BSS 300 
001135 001137 9000 40 171 IN TALLYHK JNb 
0N1156 001137 Oovn 49 472 INP TALLYB JNB 
091137 173 INB BSS 100 
474 DETAIL SAVE,OFF 
Nussus 475 DUP 1,190 
001303 777777 Qounud 176 BIAB ZERO wt 
END OF BINARY CARD 0000U017 
477 DETAIL RESTORE 
001447 004514 7172 OV 478 BXED XED BKST 
001450 001451 0003 40 179 TALLYB CRLF,3 
001451 015012000000 180 CRLF OCT 015012000000 
0014492 091453 Qn27 40 84 TALLYB BPIT,23 
0014993 015012102122 482 BPIT OCT 015912102122 
001454 1095101113120 183 UASC] 5,EAKPOINT IN TABLE 
001455 117111116124 
001456 040111116040 
001457 124101102114 
001460 105040040040 
004461 001462 0011 40 184 TALLY8 BREAK,9 
001492 015012102122 185 BREAK QCT 015012102122 
001463 105191113040 186 UASC] 2,6AK 
0014464 040040040040 
004465 001466 0030 40 487 TALLYB BNF ,24 
001466 150121092122 488 BNF OCT 045012102122 
004467 1095101113120 189 UASC] 5,EaKPOINT NOT FOUND 
004470 117111116124 
0014471 040116117124 
001472 040106117125 
END OF BINARY CARD 00000018 
004473 116104040040 
001474 v0ot475 ona4o 40 190 TALLYB ERRM,8 
001475 015012105122 194 ERRM OCT 015012105122 
001476 122117122040 492 UASC] 1,ROR 
001477 001500 0016 40 193 TALLYB BPMS,44 
001500 0150121021422 194 BPMS OCT 015012102122 
001501 105101113120 495 WASC] 3,EAKPOINT 


001502 417111116124 
001503 040040040040 
0us504 196 EVEN 
001504 015012102122 197 BM&SS OCT 015012102122,105101113040 


U1>57 


END 


U1 05-20-72 17,863 


Z 

0045u5 1905191113040 
01506 G01137 unui4é 
001507 1291010904132 
UN1510 104125004142 
004511 122105nu4210 
C4512 124122004535 
601513 103117004545 
U01514 1021220044551 
On1515 125116004409 
004516 124131004220 
001517 19513000443y 
001520 124111004267 
OF BINARY CARD Qo0u0u019 
0904521 777777004432 
001522 777777904432 
004523 777777004432 


CONSTANTS 


DEBUGGER 


419B RPRAM 
499 CTAB 
200 
201 
202 
203 
204 
205 
206 
207 
208 


209 
210 
211 CTABE 


ZERO 
VFD 
VFD 
VF D 
VFD 
VFD 
VFD 
VFD 
VFD 
VFD 
VFD 


VFD 
VFD 
VFD 


1NB,100 

048/120101,18/PAT 
018/104125,18/DUM 
0187122405,18/RDUM 
016/1244122,18/TRA 
U18/103117,18/CON 
016/102422,18/BRE 
048,125116,18/UNB 
01484124431, 18/TYPE 
0487105430,18/EXIT 
016/124411,18/TIME 


015/777777,18/ERR 
0418/777777,18/ERR 
0418/777777,18/ERR 


PAGE 


9 


Cioo7* Gy 


un1524 
001525 
0u1526 
Vu1527 


U01674 
001675 
001676 
001677 


Y01750 
01794 
U01722 
G01753 
001724 


001725 


7/7777 
Nu0144 
OUuL24 


v01530000144 
von00g3000000 
Jonononsute 


vond0d 


u91526 
ug1526 
U01530 
090070 


001700 
VOnOUDO 
vgouno 
U91752 


onunUD 
QuLs35Q 
unos 42 
OOUuS 42 
Q62e1 4y 
on0000 
O0L700 
7776 4y 
goudu0 
Qoundud 
ooVoO 41 


7777770004900 


oon0ngn11207 


904756 
004/756 
002760 


END OF BINARY CARD 90000020 


00%/62 
0N%764 
004766 
004770 
004772 
00%774 
004776 
Nu2000 
Ouguoe 
0u2004 
002006 


END OF BINARY CARD QnQ0uU0e1 


0u2010 
002012 
Nugg14 
N02016 
ou202y 
002022 
0ug024 
002026 
0u2030 
0u2032 


CONSTA 


212 
213 
214 
215 
216 
247 


218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 


234 
235 
236 


237 
238 
239 
240 
244 
242 
243 
244 
245 
246 
247 


248 
249 
250 
251 
252 
253 
254 
255 
256 
257 


No 


ALYIL66 


ERROR 
BLEN 


CPRAM 
CRLF 


LNBUF 
IN! 
In 
INP 

E UF 
I1gUF 
NI TAL 
IDENT 
NICHK 
NICH 
BACK4 
Te 


NIT8 


NIT7 
NIT4 


NIY¥2 


NITS 


ALGOL68 
A 

“1 

190 


1d/1TNRUF,18/3LEN,16/3 


Qi5sn12 
BLEN 
CRLF 1342 
URLF+3,2 


INBGUF, 4e#BLENe1 


40 
IBUF,-2 


NICHR,Ost1 
777777080400 


LOWER LIMITPUPPER LIMIT,ROUTINE anpRESS 
018/#1,036/#2,18/#3 


TE 


U60,074,NILN 
012,012,NISK 


012,012,NILN 
191,132,sNIDEN 
060,071,NIDIG 
015,015,NICR 
000,040,NISK 
056,056,NIDOT 
100,1004+NICOM 
042,042,NTQU 
044,044jNIFOR 
050,051.NIXIF 
054,054, NIXIF 


073,073 NIXIT 
133,/433,NIXET 
135,135, NIXIT 
041,137,NIOPR 


1000,1000,NIE0F 


101,132,NIDEN 
060,071,NIDEN 
000,137,NIBEX 


1000,1000,NIBEX 


V60,071,NID}G 


DIGIT 
LINE-FEED 


LINE-FEBD 

LETTER 

DIGIT 

CARRIAGE RETURN 

CONTROL CHARACTER OR SPACE 
PERIOD 

AT SIGN 

QUOTE 

DOLLAR SIGN 

LEFT OR RIGHT PARENTHESIS 
COMMA 


SEMICOLON 

LEFT BRACKET 

RIGHT BRACKET 

ALL OTHER SPECIAL CHARACTERS 
END OF FILE 

LETTER 

DIGIT 

ALL OTHERS 

END OF FILE 

DIGIT 


PAGE 
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C1557 01 0526-72 17,863 


A 


0020354 
END OF BINARY CARD doUuouoe2 
NU2US6 
Quegudy 
902042 
Ou2044 
Ougyu4ss6 
Q02050 
NU2052 
002054 
0U2N56 
NU2U60 
0u2062 
END OF BINARY CARD aonogogudes 
0ugN64 
0N2066 
NU2070 
0u2072 
Oua074 
0U2076 
hue1od 
Qu2ide 
0ua104 
0024106 
002110 
END OF BINARY CARD Qgououoes 
OV2112 
Qu2g1i4 
004116 
002120 
Quadi22 
002124 
004126 
002150 
Ova1s2 
0021354 
002156 
END OF BINARY CARD cG0000025 
002140 
002142 
092144 
0U2146 
777777000077 
00g000 
OyOuoL 
0004 45 
oo0ong0 
Goudud 
o00008 
onuoud 


002150 


002151 
002152 
002193 
002154 
0021595 


000114 
0900000 
0900000 
000000 
900000 


CONSTA 


258 


259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 


270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 


2814 
262 
283 
284 
285 
266 
287 
288 
289 
290 
294 


292 
293 
294 
295 
296 
297 
298 
299 
300 
304 
302 
303 


NTS 


ALGOL68 


NiT4 


NUTS 


NIT6 


N|T9 


NiT10 


NUTa11 


N{T12 


NIT43 


NI714 


NTMSK 
SC 

Dr 

SYMSC 
PEEKF 
QrEKF 
TEMP 
TEMP? 


056,056,NIDEC 


105,105,NIEXP 
V0U0,137,NIBEX 
1000,1000,NIBEX 
U60,071,NIDCY 
000,137,NIB2X 
1000,1000,N}B2x 
U55,053 NIEX4 
055,055,NIEXL 
060,071, NIDIG 
OC0,137,NIBEX 
19000,1000,NIBEX 


060,071,NIDG1 
090,137,NIB2x 
1900,1000,NIB2Xx 
060,071iNIDIG 
000,137,NIBEX 
1000,1000,NIBEX 


100,100eNISK 


G00,137,NICOM 
1000,1000,NIE0F 
057,057,NIOPR 
072,072,NIOPR 


075,075,NIOPR 
V00,137;,NIBEX 
1000:1000,NIBEX 
045,045,NIBEX 
042,042,NIQU4 


Q00,137,NJQU 


1000,1000,NIBEX 


042,042,NIQU 


000,137,NIBEX 
1000,1000,NIBEX 
044,044,NIXIT 


015,045,NIBEX 
000,137,NIFOR 
1000,1080,NIBEX 
0000,1000,ERROR 


777777000077 
0 
i 


ITABX,4,1TACX 


PAGE 


PERION 


LETTER E 
ALL OTHERS 
END OF FILE 
DIGI Ff 

ALL OTHERS 
END OF FILE 
PLUS SIGN 
MINUS SIGN 
DIGIT 

ALL OTHERS 
END OF FILE 


DIGIT 

ALL OTHERS 

END OF FILE 
DIGIT 

ALL OTHERS 

END OF FILE 
AT SIGN 

ALL QTHERS 

END OF FILE 
SLASH 

COLON 


EQUAL 

ALL OTHERS 
END OF FILE 
CARRIAGE RETURN 
QUOTE 

ALL OTHERS 
END OF FILE 
QUOTE 

ALL OTHERS 
END OF FILE 
DOLLAR SIGN 


CARRIAGE RETURN 

ALL QTHERS 

END OF FILE 

CATCH ALL WILD TABLE SEARCHES 


eal 


ean ay / 


Vt J5-go-72 17,803 


UUZ1296 
UNey>?7 
UQe160 
Yoz2161 
Ud2162 


A 


Jorueg uounuoa 
UuU2LEY UOLS 49 
114117116107 
Y40g40n4nu4y 
vonoog goonudn 


CINSTANTS 
AL 20L426 
3u4 Temps 
3u5 LuUNGT 
306 


307 LiINGCT 
308 


ZERG 
TALL YS 
UASC] 


ZERO 
VT 


#+1,6 
2,LONG 


EXECUTIVE 


PAG 
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014557 U1 05"26~672 17,863 EXECUT 


A 


309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
3et 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
3352 
3338 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 


[Ve 


GENERAL MACRYS 


QUEUE 


#5 


#4 


DOWN 


#3 


UP 


TTLS 
MACRO 
INHI6 
EAXO 
EAXL 
LDA 
EAX2 
LDX4 
¥ZE 
CMPA 
TRC 
STX4 
STXU 
INHIB 
ENDM 


MACRO 
INHIB 
LDXO 
STX0 
TRA 
JNHId 
ENDM 


MACRO 
INHIB 
SREG 
SZN 
TZE 
ST] 
LDXO 
STXO 
QUEUE 
TRA 
aos 
EQU 
INHIB 
ENDM 


MACRO 
INHIB 
SREG 
ST] 
,,.DXx0 
STX0 
QUEUE 
SZN 
TZE 
LDXO 
TNZ 


PAGE 13 
GENERAL MACROS 
CURRENT TASK, QUEUE 
SAVE,ON 
#4 GET POINTER TO TASK CONTROL BLOCK 
#2 ADDRESS OF QUEUE WHERE TASK IS TO gE INSERTED 
1,0 GET PRIORITY OF CURRENT TASK 
O11 SAVE POINTER TO POINTER To TASK BLOCK BEING CHECK 
0,2 GET POINYER TO FOLLOWING TASK 
#4 TRANSFER !F NO FOLLOWING TASK 
1.1 CHECK PRIORITY OF QUEVED TaSk 
#3 TRANSFER TQ CONTINUE SEARCH 
0,0 STORE POINTER TO FOLLOWING TaSK IN CURRENT TaSK 
0,2 STORE POINTER Ta @URRENT TASK IN PREVIOUS TASK 
RESTORE 
QUEUE 
RESTART LOCATION 
SAVE,ON 
#4,nU GET ADDRESS OF RESTART IN XR @ 0 
23Ic,! SAVE IN SAVED JNSTRUCTION COUNTER 
»SEXIT AND EX]T RQUTINE WITHOUT PRESERVING REGISTERS 
RESTORE 
RESET 
SEMAPHORE 
SAVE,ON 
»SREG, | SAVE REGISTERS 
#1 JS SEMAPHORE IN USE 
#2 TRANSFER {Ff NOT IN USE 
pe1Cy! SAVE INDICATORS 
#3,DU GET RESTART ADDRESS 
»SIC,! SAVE AS INSTRUCTION COUNTER 
(,$3LINK,1),$#1) ADD TASK FO SEMAPHORE QUEUE 
»SEXIT AND EXIT 
#4 MARK SEMAPHORE BUSY 
* END LOCATION 
RESTORE 
DOWN 
SEMAPHORE 
SAVE,ON 
»SREG,] SAVE REGISTERS 
eSIC,! SAVE INDICATORS 
#3,DU GET RESTART ADDRESS 
181Cy1 SAVE aS INSTRUCTIQN COUNTER 
(sSLINKsT)a,STASK PUT CURRENT TASK ON ACT] VE TASK QUEUE 
#4 1S THIS SEMAPHORE BUSY 
ERROR NO = ERROR 
#1 GET ADDRESS OF FIRST TASK QUEUED ON SEMAPHORE 


#2 TRANSFER IF THERE [S ONE 


Lto5/7 


v1 


i5e2b6—-72 


Fay 


17,803 


EABCUT 


359 
369 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 


[Ve 


GENERAL MACKUS 


#2 


RS 


UPS 


#2 


EXEC 


STZ 
TRA 
LDOX14 
STX4 
QUEUE 
TRA 
EQU 
INHIB 
ENDM 


MACRO 
INHIB 
SZN 
TZe 
LDX0 
YNZ 
STZ 
TRA 
LOX 
STX4 
QUEUE 
EQY 
INHIB 
ENDM 


MACRO 
INKI 6 
LOX0 
STXO 
LDXO 
STX0 
LREG 
LDX6 
ADX6 
STZ 
MME 
TRA 
INHIB 
ENDM 


#1 

SEXIT 

0. 

#1 

(On), , TASK 
+BEXILT 

& 

RESTORE 

UP 


SEMAPHORE 


(0,0),,8TASK 
* 


RESTORE 
uPS 


REG,MME ADDRESS 


SAVE,ON 
»>SNIC,DU 
31C 
»SNREG, DU 
.SREG 


PAGE 14 


MAKE SEMAPHORE IDLE 

AND CONTINUE 

GET ADDRESS OF FOLLOWING TASK [IN QUFUE 
MAKE TOP TASK IN QUEUF 

PUT PREVIOUS TOP TaSK ON QUEUE 

AND CONTINUE 


1S THIS SEMAPHORE BUSY 

NO * ERROR 

GET ADDRESS QF FIRST TASK QUEUVED ON SEMAPHORE 
TRANSFER IF THERE IS ONE 

MAKE SEMAPHORE IDLE 

AND CONTINUE 

GET ADDRESS OF FOLLOWING TASK IN QUEUE 

MAKE TOP TASK IN QUEUE 

PUT PREVroWS TOP TASK ON QUEUE 


GET POINTER TO NULL ROUTINE [Cc 

STORE IN IC POINTER 

GET POINTER TO NULL ROUTINE REGISTERS 

STORE IN REGISTER POINTER 

GET REGISTERS FOR EXEC CALL 

GET ADDRESS OF TASK CONTROL BLOCK IN XR ~ 6 
PUT TRAR ADDRESS IN XR & 6 

SET NULL ROUTINE FLAG FOR TRAP ROUTINE 
ISSUE EXEC CALL 

AND EX]? 


1557 


END 


END 


END 


END 


01 US5"26072 17,863 
A 
Q0z2163 uono00n11207 
0u2164 
002164 000221 5542 51 
OF BINARY CARD 0000u026 
002165 002166 7102 OO 
002166 000220 7552 514 
002167 0090226 4502 oy 
002470 000221 22u2 $1 
002171 090001 1602 03 
002172 777777 2352 ty 
602173 90221 7552 51 
002174 000043 1o0yV2 O38 
002175 092232 60352 50 
UN02176 000021 1042 08 
092177 002213 6012 Ou 
Qu2200 
On2212 002244 74902 OV 
OF BINARY CARD 0000027 
002213 000070 4402 OU 
002214 090223 2202 09 
002215 000070 7402 oV 
002216 000226 7592 Oy 
002217 
002231 002244 7102 00 
002232 
OF BINARY CARD 00000028 
002244 000221 2202 51 
002245 000043 1002 03 
002246 002172 6022 Oy 
002247 090000 2352 40 
002250 090225 1152 OO 
002251 002172 6002 8 
002252 U0N226 2342 Oy 
002253 002270 6012 60 
002254 000223 2342 a9 
002255 002270 6002 00 
002256 
OF BINARY CARD 90000029 
Q02270 099224 2202 Ov 
002271 777777 6nv2 OV 
002272 000223 7402 900 
002273 090002 6212 19 
002274 000222 7412 ov 
002275 000007 6212 ty 
002276 U0N221 7412 OD 
002277 Ug00L0 6212 49 
002300 090220 7412 80 


398 
399 
400 


401 
402 


403 
404 
405 
406 
407 
498 
409 
410 
4it 
412 
413 
414 
445 


416 
417 
418 
419 
420 
42i 
422 


423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 


434 
435 
436 
437 
438 
439 
440 
444 
442 


EXECUTIVE 
FAULTS, 


TRAP 


TRAPS 


TRAP4 


TRAP2 


TRAPS 


EXIT 


PAGE 15 
INTERRUPTS, AND EXITS 
TTLS FAULTS, INTERRUPTS, AND EXITS 
INHIB ON 
HEAD , 
EVEN 
STCL IC,!? SAVE IC IN TASK CONTROL BLOCK 
TRA el BREAK XED 
SREG REG, | SAVE REGISTERS IN TASK CONTROL BLOCK 
STZ FFLAG INITIALIZE FAULT FLAG 
LDXO Ica! GET SAVED Ic OR POINTER TO TaSk CONTROL gLOCK 
SBX0 1,DU GET POINTER TO XEN THAT CALLED THIS ROUTINE 
LDA =1.0 GET SAVED J€ STORED ON TRAP OR FAULT 
STA IC,! STORE aS 1C FOR CURRENT TASK 
CMPXQ 35,Du SEE IF THIS IS A FAULT OR TRAP 
YRC TRAP2 TRANSFER IF TRAP 
CMPXQg 16«4,DU IS THIS a SPECIAL INTERRUPT 
YNZ TRAP4 TRANSFER IF OTHER FAULT 
QUEUE $STCB, ,STASK START UP SPECIAL INTERRUPT ROUTINE 
TRA TRAPS AND GO CONTINUE PROCESSING FAULTS AND TRaPS 
SXLO $MTCBeB STORE FAULT NUMBER IN MASTER TASK XR - 4 
LDx0 LINK GET ADDRESS OF CURRENT TaSK CONTROL BLOCK 
STXO $MTCBe8 STORE JN MASTER TASK XR & OQ 
sTtc2 FFLAG SET FAULT FLAG 
QUEUE $MTCB, TASK START MASTER TASK RUNNING 
TRA TRAPS CONTINUE PROCESSING TRaPS AND FAULTS 
QUEUE (-5,0), TASK ADD FRAPPED TASK TO TaSK QUEUE 
LDXo ear | GET POINTER TO NEXT TRAP OR FAULT IF ANY 
CMPX0 $5,0U IS IT a FAULT 
INC TRAPYL TRANSFER IF FAULT 
LDA 0,0 LOAD A WITH A CALL TO THIS ROUTINE {IF A TRAP 
CMPA XEDT IS IT A CALL TO THIS ROUTENE 
TZE TRAPL TRANSFER IF TRAP 
S2ZN FFLAG DID A FAULT OCCUR 
YNZ EXIT YES + D&O NOT RETURN TO CURRENT TASK 
SZiN LINK TS THERE A CURRENT TASK 
TZE EXIT NO NOTHING TO QUEUE 
QUEUE (LINK,1),TASK PUT CURRENT TaSk IN TaSk QUEUE 
LDXo TASK GET POINTER TO TASK QUEUE 
YZE ERROR THERE SWOULD BE AT LEAST THE DUMMY TASK 
STX0 LINK STORE POINTER To GURRENT TASK GONTROL BLOCK 
EAX4 2,0 GET ADDRESS OF STATUS WORDS 
STX1 STAT AND STORE 
EAXL 7,0 GET POINTER TO CURRENT SAVED Ic 
STX1 Ic AND STORE 
EAX4 8,0 GET POINTER TO CURRENT SAVED REGISTERS 
STX4 REG AND STORE 


e157 UL 65=26-72 L705 EXECUTIVE 


PAGE 16 
; FAULTS, JNTERRUPTS, AND EXITS 

bLu23ut 000000 221? 19 443 LOX4 0.0 GET POINTER TO NEXT TASK IN QUEUE 

YUE3U2 Og0224 7412 OV 444 STX41 TASK MAKE {T TOP TASK IN QUEUE 

002303 Uon220 0752 51 445 LREG REG, 1 RESTORE REGISTERS OF CURRENT TaSK 


002394 UgNe221 63u2 54 446 RET ICel AND RETURN 


U155? 


END 


ENP 


END 


END 


END 


OL 05226072 


UN2305 
002306 
002307 
002310 
002311 
002312 


OF BINARY CARD 


777777 
000007 
000006 
000002 
002465 
090007 


002330 Oo90001 
002334 000244 
002332 0092337 
002333 000020 
002357 00004 
002340 000272 
002341 092330 
002342 000232 
OF BINARY CARD 
002343 0092330 
OF BINARY CARD 
002405 092330 
002406 092406 
002407 002406 
002410 000000 
OF BINARY CARD 
OF BINARY CARD 
002461 002270 
002462 090000 
002463 590005 
002464 0092462 


17,864 EXECUTI Ve PAGE 17 
FAULT AND INTERRUPT TASKS 


447 TTLS FAULT AND INTERRUPT TASKS 
448 HEAD 
449 INHIB ON 
4502 41 450 MTaSkK STZ "Let CLEAR OUT FAULT Je WORD 
2352 £0 454 FT LDA 7,0 GET CURRENT 1¢ 
7552 452 STA 6,0 SAVE IT 
7412 10 453 STX4 2,0 SAVE TYPE OF FAULT 
2352 US 454 LDA $F AULT, BU GET ADDRESS OF FAULT ROUTINE 
7552 4y 455 STA 7,0 AND CAUSE TASK TO START UP THERE 
N02513 456 QUEUE (0,0),,STASK RESTART FAULTED TaSK 
00000050 
04U2$25 457 RESET MTASK SET UP NEXT ENTRANCE TO THIS ROUTINE 
458 * 
459 INHIb ON 
2352 00 460 SPEC LDA 1 LOAD SPECIAL INTERRUPT TaLLY WORD 
1452 60 464 CMPA SIF COMPARE WITH INETEAL VALUE OF TALLY WORD 
6012 OU 462 TNZ SPECL TRANSFER If THERE IS SOMETHING IN SPECIAL QUEUE 
4502 Ou 463 STZ 16 ALLOW SPECIAL INTERRUPTS 
002354 464 RESET SPEC SET UP NEXT ENTRANCE TO THES ROUTINE 
2372 44 465 spEC{ {DAO 1,SD FETCH SPECIAL INTERRUPT WORD 
1152 00 466 CMPA TTYS] IS IT aA TTY SPECIAL 
6012 00 467 NZ SPEC IGNORE aLl OTHER SPECIALS 
2342 00 468 SZN STTYF 1S THERE a TASK WAITING FOR a SPECIAL 
00000051 
6002 00 469 YZE SPEC IF NOT + IGNORE [7 
002544 470 UP STTyF START UP TaSK WAITING FOR SPECIAL 
00000052 
7102 00 474 TRA SPEC AND L00P 
472 INHIB ON 
71402 00 473 STRT4 RA * A TRANSFER TQ ZERO HAS OCCURRED «© ERROR 
2352 00 474 START LDA STRT1 GET NEW INSTRUCTION FOR LOCATION ZERO 
7552 090 475 STA 0 AND STORE JT THERE 
002411 476 QUEUE ZSTeB, ,STASK START UP DEBUGGER 
po000U03S5 
002423 477 QUEUE BSTCB,,STASK START UP PRINT BUFFER ROUTINE 
002435 478 QUEUE $!1TcB,,STASK START UP IDLE PROGRAM 
00000054 
002447 479 QUEUE ASTCB, ,STASK START UP COMPILER 
7402 00 480 TRA »SEXIT AND EX]? 
2252 OS 484 IpLe LDXx5 0, DU LOAD PARAMETER FOR PAUSE 
0012 09 482 MME MSPAUSE PAUSE FOR ANYTHING 


7402 Q0 463 TRA IDLE AND Lo0oP 


u1tdo5/ 


C1 05-26-72 


ENL UF BINARY CARD 
002507 000223 
u02510 Ung0222 
002511 0099091 
002512 000016 
002513 092527 
002514 090006 
002515 090001 
002516 004626 
U02517 u92525 
002529 090223 

END OF BINARY CARD 
002521 000006 
V02522 090222 
002523 001504 
002524 092530 
002525 090223 
002526 000222 
Vo2527 up0410 
002530 000234 
002531 00236 
002532 090040 
002533 090230 
002534 000006 
002555 092614 
002536 09009040 
0025357 0O9n230 
002540 o900n0 
002541 092614 
002542 090015 
002543 090230 
002544 090012 
v02545 090230 
002546 000177 

END OF BINARY CARD 
002547 090230 
002559 692564 
002551 090221 
002564 0090223 
002565 090006 
002566 000007 
002567 0090006 

END OF BINARY CARD 
002612 000456 
002613 092270 


17,865 


Nu2465 
QoUulUDs> 
2202 0Vu 
2212 §1 
0612 OS 
1012 0¢ 
6012 Ov 
2272 40 
1672 03 
7002 00 
7402 00 
2202 00 
00000056 
7472 
2212 91 
2372 60 
7402 00 
2202 00 
2212 51 
23/72 4&1 
7572 00 
2352 03 
0752 97 
7552 00 
2362 £0 
7o72 600 
2362 07 
7562 52 
6362 10 
7072 60 
2362 07 
7562 52 
2362 07 
7562 52 
2362 07 
00000037 
7562 52 
2202 O43 
7402 $4 

002552 
2202 60 
2352 $0 
7552 40 
4502 $0 

002570 
000000358 
4502 00 
7402 00 


484 


485 
486 


487 
468 
489 
490 
494 
492 
493 
494 
495 
496 


497 
498 
499 
500 
5014 
502 
503 
504 
595 
506 
597 
508 
509 
510 
514 
512 
513 
514 
515 
516 
517 
518 


849 
520 
524 
522 
523 
524 
525 
526 
527 


528 
529 


EXEC UTI Ve 


FAULT 


F4 


F2 
FS 


F4 


FAULT KOUTINE 


TTLS 
INHIB 
DOWN 


LDXO 
LOX4 
ADX4A 
CMPX4 
INZ 
LDX7 
SBX7 
TSXO 
TRA 
LDXO 


STX7 
LDX1 
LDAQG 
TRA 
.OX0 
LOX4 
LDAQ 
STAQ 
LDA 
ADA 
STA 
DQ 
TSX7 
LDQ 
STO 
EAQ 
TSX7 
DQ 
STQ 
LDQ 
STQ 
Lpa 


STQ 
LW OXO 
STX0 
EXEC 
.DX0 
LDA 
STA 
S¥Z 
UPS 


STZ 
TRA 


FAULT ROUTINE 


ON 
TTYF 


» SLINK 
,SSTAT, 1 
1,DuU 
12%2,DU 
Fe2 


=040,DL 
TTY 

6,0 

ADDR 
#0040,DL 
TFY,SC 
0,0 

ADDR 
#0015,DL 
TTY,SC 
2001%12,DL 
TTY,SC 
TTY,SC 
F4,DU 
2S1C, 1 


REEGs WRITE 


+SLENK 
6,0 
7,0 
6,0 
TTYF 


ZSRETRN 
+SEXIT 
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SEIZE TTY DEVICE 


GET POINTER TO TASK CONTROL BLOCK IN XR ~ 9 
GET FAULT NUMBER IN XR = 4 

FUDGE XR - 4 FOR REST OF ROUTINE 

IS YT A DERAIL FAULT 

NO = TRANSFER 

GET ADDRESS OF FAULT 

GET ADDRESS OF NERAIL INSTRUCTION 

SEE IF ADDRESS {S JIN BREAKPOINT TABLE 

NO = TRANSFER 

RESTORE XR = A 


DECREMENT SAVED Ic TO POINT TO DERAIL 
RESTORE xR = 4 

GET BREAKPOINT MESSAGE 

AND PRINT JT OUT 

RESTORE XR - 0 

RESTORE XR @ 14 

GET FAULT MESSAGE 

AND STORE IN OUTPUT BUFFER 

GET SC TALLY WORD FOR REST OF QUFFER 
SET 9eBYT CHARACTER BIT IN TALLY WORD 
STORE TALLY WORD 

LOAD @ WITW IC aT TIME OF FAULT 

TYPE OUT ADDRESS 

GET A SPACE 

AND ADD TO OUTPUT 

GET ADDRESS OF TASK CONTROL BLOCK OF FAULT 
AND TYPE OUT ADDRESS 

CARRIAGE RETURN 

STORE JR OUTPUT 

LINE FEED 

STORE IN OUTPUT 

FILL CHARACTER ~- FILL OUT LAST WORD OF BUFFER 


STORE IN OUTPUT 

GET ADDRESS OF RESTART ROUTINE 
STORE aS SAVED {NSTRUCTION COUNTER 
ISSUE WRITE MME 

GET POINTER TO TaSkK CONTROL BLOCK 
GET SavEp Ic 

STORE IN INSTRUCTION COUNTER 

CLEAR OUT SAVED IC 

FREE UP TTY 


RESET RETURN FLAG 
AND EXIT 


U1557 04 0526-72 


002614 
002615 
002616 
002617 
002620 
002621 
092622 


0900096 
vO00006 
000003 
000230 
000001 
002615 
ugodooag 


17,803 


2262 
2352 
7372 
7532 
1662 
6012 
7102 


03 
07 
00 
52 
Oh) 
OV 
47 


EXECUTIVE 


FAULT ROUTINE 


530 ADDR 
531 AvVORY 
532 
533 
534 
535 
536 


LDX6 
LDA 
LLS 
STA 
SBX6 
TNZ 
TRA 


6,Du 
=006,DL 


Ww 


TTY,SC 
1,Du 
ADDR 
Q,7 


PAGE 


INITIALIZE DIGIT COUNTER TO 6 

GET LEFT WALF OF ASCII DIGIT IN A (6X) 
GET ASCIt! OCTAL DIGIT IN A REGISTER 
STORE IN OUTPUT 

DECREMENT DIGIT COUNTER 

TRANSFER IF MORE DIGITS TO CONVERT 
RETURN 


19 


u4557 


ENDL 


END 


END 


END 


END 


END 


END 


END 


END 


END 


OF BINARY CARD 
O0nz623 Ugn000 
02624 0g0001 
002625 0902674 
UNzZ626 002766 
002627 002766 
092630 092675 
Go2651 003260 
002652 002674 


OF BINARY CARD 
002674 Opnond 
002675 003256 
002676 92627 
OF BINARY CARD 
002677 093260 
002700 092743 


OF BINARY CARD 
002742 002627 


OF BINARY CARD 
002765 002627 
002766 Ogodono 


OF BINARY CARD 
QOo3011 000000 
003012 0090410 
003013 dg9n0000 
Qg3044 000411 
003015 003073 
003016 090221 


OF BINARY CARD 


003053 op90000 
003054 090410 
OF BINARY CARD 
003055 000000 
003056 000411 
003057 093073 
003060 000221 


OF BINARY CARD 
003154 000000 


OF BINARY CARD 


17,803 EXECUTI Ve PAGE 20 


TELETYPE TRANSPUT ROUTINES 


537 TTLS TELETYPE TRANSPUT ROUTINES 
538 INHIB ON 
goununsy 
2352 19 539 TTB LDA 0,0 GET TALLY WORD FOR DATA 
y6u2 OS 540 ADXO 1,04 GET RETURN ADDRESS IN XR & O 
7402 OV 541 STXO TTBxX SAVE REYURN 
7552 OV 542 STA IN STORE TALLY WORD aS INPUT TALLY WORN 
2352 52 543 TIRy LDA IN,SC GET NEX¥ CHARACTER TO OUTPUT 
6072 Og 544 TTF TTB TRANSFER IF THERE IS ONE 
2342 OV 545 SZN 1OF IS THE BUFFER OUTPUT TASK CURRENTLY BUSY 
6012 OU 546 YNZ TT ex YES - NO NEED TO START IT 
002633 547 UP BUFS START BUFFER OUTPUT ROUTINE 
oovoud4y 
7102 00 548 TIBX TRA + AND RETURN TO CALLER 
7552 §2 549 tTae2 STA QUT, Sc STORE CHARACTER IN OUTPUT BUFFER 
6072 OY 550 TTF TTB TRANSFER IF MORE ROOM IN RUFFER 
yoooud4ds 
2342 00 554 SZN ]OF IS THE BUFFER OUTPUT TASK CURRENTLY BUSY 
6012 00 552 TNZ TTBS TRANSFER IF MUST WAIT FOR A FREE BUFFER 
002704 553 uP BUFS START BUFFER OUTPUT ROUTINE 
00000042 
7402 00 554 TRA TTB, AND CONTINUE IN NEW BUFFER 
002743 555 TTB3 DOWN RELS WAIT FOR a FREE BUFFER 
00000043 
7102 O00 556 TRA TTB4 AND CONTINUE 
0000u0 557 IN ZERO 
002767 558 TTYR DOWN TTYF SEIZE Try 
gouogve4s4 
6202 M1 559 EAXO 0,AU GET ADDRESS OF READ IN XR w 
4442 00 560 SXL0 LOC STORE JN MEMORY 
62092 09 564 EAXO 0, AL GET LENGTH OF READ IN XR - 9 
44y2 00 562 SXLo LEN STORE JN MEMORY 
6202 090 563 EaAXO TTYTR GET ADDRESS OF TTY WRAPUP ROUTINE IN XR ~ Q 
7402 51 564 STXO SlCe! SAVE AS 1[C 
003017 565 EXEC RREG,READ ISSUE READ MME 
Qououg4gd 
OUus0S1L 566 TTYW DOWN TTYF SE]ZE TY¥Y 
6202 01 567 EAXO 0,AU GEY ADDRESS OF WRITE IN XR © Q 
4402 OV 568 SXL0 LOC STORE I& MEMORY 
00000046 
6202 05 569 EAXO O,AL GET LENGTH OF WRITE IN XR © Qg 
4402 00 570 SxLo LEN STORE IN MEMORY 
6202 00 571 EaXO TTYTR GET ADDRESS OF TTY WRAPUP ROUTINE IN XR 2 
7402 54 572 STX0 eSICy] SAVE AS 16 
OUSy61 573 EXEC WREG, WRITE JSSUE WRITE MME 
003073 574 TTYTR UP TTYF RELEASE TTY 
00000048 
7102 0 575 TRA 0,0 AND RETYRN 
0U3155 576 BUFL DOWN BUFS GET A BUFFER WITH SOMETHING TO OUTPUT 
00000049 


01557 


END 


END 


END 


04 O5m26-72 


003427 003257 
003160 003256 
003161 0093135 
095162 000000 
U03163 090003 
093154 093256 
003165 003170 
003166 003256 
003167 09035164 
003170 003257 
003171 693256 
003172 003257 
003173 Ood00000 
003174 000022 
003175 uonn22 
003176 003261 
003177 093257 
003200 903257 
003201 00903256 
003202 003260 
003203 003031 
003204 000222 
OF BINARY CARD 
003205 uo00001 
003206 777777 
003207 0093260 
003210 003255 
U03211 093253 


OF BINARY CARD 
003253 003157 
003254 090000 
003255 dp0000 
003256 003262 
003257 003262 
003260 090000 
OF BINARY CARD 
003261 006744 


17,868 EXECUTI Ve 


TELETYPE TRANSPUT ROUTINES 


PAGE 21 


2352 080 577 BUF2 LDA OUT, GET INIVLAL TALLY WORD IN BUFFER 
1152 Ov 578 CMPA OUT COMPARE WITH CURRENT TALLY WORD 
6002 Ou 579 TZE BUF, IF EQUAL » NOTHING TO DO - TRANSFER 
2352 07 580 LDA 0.0L GET A NULL CHARACTER IN AL 
2362 07 581 LDa 3.0L GET A CHARACTER POSITION MASK IN QL 
3162 00 562 BUF CANQ Out SEE IF CURRENT TALLY WORD HaS FILLED OUT a WORD 
6002 00 583 TZE BUF 4 TRANSFER IF WORD IS FILLED OUT 
7552 52 584 STA OuT,Sc STORE aA NULL IN OUTPUT BUFFER 
7102 Qu 585 TRA BUF AND GO CHEGK AGAIN 
2352 60 586 BUFFS LDA OUT, GET POINTER YO RUFFER IN aU 
2202 00 587 LDxo QUT GET POINTER TO END OF BUFFER IN XR - 
1602 09 588 SBxX0 OUT, SUBTRACT LOCATION TO GET LENGTH OF FILLED BUFFER 
6362 4) 589 EAQ 0,0 GET LENGTH OF IM OPERATION IN QU 
7712 00 590 ARL 18 MOVE LOCATION NEXF TO LENGTH 
7372 00 591 LLS 18 GET LOC/LEN IN a REGISTER 
2362 00 592 LDQ SWAPC GET BUFFER SWAPPING CONSTANT IN Q 
1762 oY 593 SBQ OUT, SUBTRACT OLD INITIAL TALLY WORD 
7562 00 594 STQ OUT, STORE NEW INITIAL TALLY WORD 
7562 00 595 STO QUT STORE NEW CURRENT TALLY WORD 
7502 00 596 STC2 Jor SET 1/0 FLAG 
7002 OU 597 TSX0 $TTYW AND DO YTY OUTPUT 
2372 $1 598 DAG »SSTAT,! GET STAYUS RETURN WORDS IN AQ REGISTER 
v0000050 
1152 OS 599 CMPA 1, Du SEE JF ANY ERROR 
6052 00 600 TRC SERROR FAIL ON ANY ERROR 
4592 00 601 S$7Z J OF RESET 1/0 FLAG 
2202 00 602 DX0 RELS CHECK JF OUTPUT WAITING FOR THIS ROUTINE 
6002 00 603 TZeE BUF5 TRANSFER IF NOT 
0u3212 604 UP RELS RELEASE INPUT BLIFFER 
Counuv0s1 
7402 00 605 BUFS TRA BUFO AND LOOP 
oa000$% 606 BUFS ZERO 0.1 
Qougous 607 RELS ZERO Ort 
1000 40 608 OUT TALLYB BUF ,2eBLEN 
1000 49 609 OUTL TALLYB BUF, 2eBLEN 
000000 610 JUF ZERO 
Qovoggse 
2004 00 611 SWAPC TALLY 2e8UF eBLEN/2,46BLENe1 
000400 612 BLEN BOOL 400 
003262 613 BUF EQU @“RELZER 


003262 614 BSS BLEN 


U1557 


U1 5-26-72 


U03662 U90220 
003663 099342 
003664 Unns4Q 
003665 Uonns44 
U03666 U04063 
U03667 O0N221 
U03702 Ug0220 
003705 000000 
V03704 60N340 
003705 004063 
END OF BINARY CARD 
003706 00N221 
003724 090220 
003722 000000 
003723 090410 
003724 vod000 
003725 090414 
003726 0090000 
003727 090330 
0037390 6004063 
U03731 Ogn224 
END OF BINARY CARD 
003744 u90220 
003745 090000 
003746 0004140 
003747 vg0000 
003750 000411 
0037914 vgn000 
003752 090331 
003753 004063 
003754 0002214 
END OF BINARY CARD 
003767 0090220 
003770 000000 
003771 0090400 
003772 0090404 
003773 004063 
003774 0090221 
004007 090220 
END OF BINARY CARD 
004010 004063 
004011 000221 
004024 000220 


17,863 


7552 
7412 
7422 
7572 
6202 
7402 


0u3670 


753$2 
62Ve 
7402 
6202 


000000535 


7402 


Nys707 


7532 
6202 
4402 
6202 
4402 
6202 
7402 
6202 
7402 


0uU3732 
00000054 


7532 
6202 
4402 
6202 
4402 
6202 
7402 
6202 
7402 


003755 
00000055 


7532 
6202 
7402 
7552 
6202 
7402 


003775 


75$2 


00000056 


6202 
7402 


004012 


75352 


91 
Ou 
Ou 
00 
00 
51 


51 
02 
a0 
it) 


91 


91 


54 
01 
00 
g5 
00 
62 
00 


00 
51 


54 
02 
00 
00 
00 
91 


31 


00 
51 


54 


EXECUTI] Ve 


PILE TRANSPUT ROUTINES 


415 
616 OPEN 
617 
418 
419 
620 
621 
622 
623 CLOSE 
624 
625 
626 


627 
628 
629 READ 
630 
631 
632 
633 
634 
635 
536 
657 
638 
639 WRITE 
640 
641 
642 
643 


644 
645 
646 
647 
648 


649 StTp 
650 
6514 
652 
653 
654 
655 
656 OPENS 


657 
658 
659 
660 CAT 


TTLS 
SREG 
STX141 
STXx2 
STAQ 
EAXO 
STXO 
EXEC 
SREG 
EAXU 
S¥X0 
EAXO 


STXO 
EXEC 
SREG 
EAXO 
SXLO 
EAXO 
SXLo 
EAXO 
STXO 
EAXQ 
STXO 
EXEC 


SREG 
EAXO 
SX10 
EAXO 
sXlo 
EAXQ 
STX0 
EAXO 
STXO 
EXEC 


SREG 
EAXO 
STX0 
STA 

EAXO 
STXO 
EXEC 
SREG 


EAXO 
STX0 
EXEC 
SREG 


PAGF 22 


FILE TRANSPUT ROUTINES 


1 bREG, I 
QOREG+?2 
OREG 
QOREGe4 
FTRAP 
»d1c,l 
QOREG,OPEN 
+ tREG, I 
Y, Qu 
OREG 

F TRAP 


21C,! 
QREG,»CLOSE 
»SREG, J 
0,AU 

Oc 

0,AL 

LEN 

0,9U 

FREG 
TRAP 
»S1C,! 
FREG, READ 


+SREG,] 
U,AU 

oC 

O,AL 

LEN 

gs Qu 
FREGe1 

FP TRAP 
»SICc,! 
FREG, WRITE 


»SREG, 1 
Q, QU 

SREG 
SREG+4 
PFRaP 
2SIC,! 
SREG,SEYP 
2, BREG, J 


FTRaP 
»sic,! 


OSREG, OPENS 


1 SREG, J 


SAVE REGISTERS 
STORE ACCESS IN XR + 4 


STORE FILE REFERENCE NUMBER OF CATALOG IN xR -~ 9 


STORE NAME IN AQ REGISTER 

GET POINTFR TO FRAP ROUTINE IN XR © Q 
AND STORE aS INSTRUCTION COUNTER 
ISSUE OPEN MME 

SAVE REGISTERS 

GET FILE REFERENCE NUMBER IN XR e& g 
AND STORE IN XR = Q 

GET POINTER TO TRAP ROUTINE IN XR © Q 


AND STORE AS INSTRUCTION COUNTER 

ISSUE CLOSE MME 

SAVE RESISTERS 

GET CORE ADDRESS OF DATA 

STORE aS CORE POINTER IN MEMORY 

GET NUMBER OF WORDS TO TRANSFER IN XR « Q 
STORE NUMBER OF WORDS TO TRANSFER IN LQW HALF 
GET FILE REFERENCE NUMBER IN XR © g 

STORE aS FILE REFERENCE NUMBER CF SOURCE FILE 
GET ADDRESS OF CLEANUP ROUTINE IN XR = Q 
RESTART THERE AFTER TRAP 

ISSUE READ MME 


SAVE REGISTERS 

GET CORE ADDRESS OF DATa 

STORE AS CORE PaINTER IN MEMORY 

GET NUMBER OF WORDS TO TRANSFER IN XR « g 
STORE NUMBER OF WORDS TO TRANSFER IN LOW HALF 
GET FILE REFERENCE NUMBER IN XR & g 

STORE FYLE REFERENCE NUMBER OF DESTINATION 
GET ADDRESS OF CLEANUP ROUTINE IN XR =~ g 
RESTART THERE AFTER TRAP 

ISSUE WRITE MME 


SAVE REBISTERS 

GET FILE REFERENCE NUMBER IN XR & g 
STORE IN REGISTERS 

STORE DESIRED POINTER IN REGISTERS 
GET ADDRESS OF CLEANUP ROUTINE 
STORE AS RESTART ADORESS 

ISSUE MAE 

SAVE REGISTERS 


GET ADDRESS OF CLEANUP ROUTINE IN XR ~ 9 
RESTART THERE AFTER TRAP 

JSSUE OREN SCRATCH MME 

SAVE REGISTERS 


01557 


END 


C01 05-26-72 


004025 Uons6o0 
004026 000361 
004027 00364 
0904050 094063 
004031 von221 
OF BINARY CARD 
004044 000220 
004045 000370 
004046 0090374 
004047 004063 
004050 090221 
004063 Qo00f0 


0040352 
00000057 
75$2 54 
7562 0U 
7552 00 
6202 00 
7402 514 

0u4051 
7402 40 


EXECUT 


661 
662 
663 
664 
665 
666 


667 
668 
869 
670 
671 
672 
673 
§74 


lVe 


FILE TRANSPUT ROUTINES 


TRUNC 


FTRAP 


STX2 
STXS 
STAQ 
EAXO 
STXO 
EXEC 


SREG 
STQ 
STa 
EAXO 
STXO 
EXEC 
TRA 
TTL 


CREG 
CReGet 
CReG+e4 
FTRAP 
+t1Ce! 
CREG,CAT 


1SREG,] 
TRREG 
TRREGs4 
PTRAP 
+b1C,] 
TRREG, TRUNC 
0,0 
DEBUGGER 
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STORE FILE REFERENCE NUMBER OF CATALOG 
STORE FILE REFERENCE NUMBER OF FILE 
STORE NAME OF FILE TO BF CATALOGED 

GET ADDRESS OF CLEANUP ROUTINE IN XR & 
RESTART THERE AFTFR TRAP 


SAVE REGISTERS 

STORE FILE REFERENCE NUMBER OF FILE TO TRUNCATE 
STORE NEW LENGTH IN A REGISTER 

GET ADDRESS OF CLEANUP ROUTINE IN XR = 9 
RESTART THERE AFTER TRAP 

ISSUE TRUNCATE MME 

RETURN TO CALLER 


C1o5/ 


END 


ul Jy5~- 2607? 


END UF BINARY CARD 
004064 Uone44 
U04065 OUgo0Qg01 
Yu4d1i10 UQ0004 
O04111 091596 
OF BINARY CARD 
Ud4112 092767 
004113 O0N222 
0041414 vUgo0une2 
VO4115 0904064 
004116 004617 
0041417 001136 
U004120 001135 
004121 090460 
004122 U00457 
004423 091137 
004124 0091523 
004125 091507 
004126 000500 
004127 000000 
004150 777777 
004151 090000 


17,03 


Ooulu0ds 


2359 
7550 


NU4056 


4500 
2350 


OnunUunDdY 


7000 
230 
1190 
6030 
7009 
2350 
7550 
2350 
7550 
2210 
7410 
2220 
5202 
1010 
2350 
7100 


Ou 
NU 


00 
OU 


675 
676 
677 


678 
679 
680 
681 
682 


683 
684 
685 
686 
687 
688 
489 
690 
691 
692 
693 
694 
695 
696 
697 
698 


DEBUGGER 


COMMAND INTERPRETER 


DUT 


TTLS 
HEAD 
JNHIG 


LDA 
STA 
DOWN 
STZ 
LDA 


TSXO 
LDA 
CMPA 
TRC 
TSXO 
LDA 
STA 
LDA 
STA 
LDX1 
STX4 
LDX2 
RPT 
CMPX4 
LDA 
TRA 
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COMMAND INTERPRETER 


Z 
OFF 


$S IF 

1 
ESTTYF 
1 
RPRAM 


$TTYR 


»ESTAT,! 


CTARE 
CTAR,DU 
0,1,TZE 
0,2 
eis2 
Q.AL 


GET INITIAL SPECIAL INTFRRUPT TALLY WORD 
AND STORE [IN TALLY WORD 

GET CONTROL ONLY ON TTY SPEC]YAL 

DISABLE SPECIAL INTERRUPTS 

GET READ TTY CONTROL WORD 


READ TT¥ OW SPECIAL 

GET STATUS WORD 4 IN A REGISTER 

CHECK STATUS RETURN WORD 41 

IGNORE {NPUT ON ANY ERROR 

REMOVE BREAKPOINTS 

GET POINTER TO START OF INPUT BUFFER 

AND INITIALIZE INPUT TALLY WORD 

GET POINTER TO START OF OUTPUT BUFFER 
AND INITIALIZE OUTPUT TALLY WORD 

GET FIRST TWO CHARACTERS INPUT IN XR = 4 
PAD END OF TABLE TFTO INSURE MATCH 

GET ADDRESS OF START OF TABLE IN XR & 2 
SEARCH TaBLE FOR COMMAND 

COMPARE AGAINST FIRST TWO CHARACTERS IN XR ® 4 
GET WORB THAT MaTCHED IN & REGISTER 

AND TRANSFER TO APPROPRIATE ROUTINE 


6155? U4 0526472 17,868 DEBUG COMMANDS PAGE 25 
z COMMAND INTERPRETER 
699 TTL DEBUG COMMANDS 
04132 094522 7nvU0 OV 700 PAT TSXO GARG GET PATCH ADDRESS 
004133 004432 7100 00 701 TRA ERK NO PATCH ADDRESS e» ERROR 
004154 090022 7350 OV 702 ALS 16 MOVE TO ADDRESS PORTION OF WORD 
004135 00452 7550 OV 703 STA TEMP STORE aS TALLY WORD 
U04136 004522 7000 00 704 PATL TSXO GARG GET NEXT NUMBER TO PATCH 
004157 004435 71400 OV 705 TRA FYN NQ MORE » EXIT 
END OF BINARY CARD ogu0u060 
004140 000452 7550 56 706 STA TEMP, 1D STORE PATCH AND INCREMENT PATCH ADDRESS 
004141 004136 7107 OY 797 JRA PAT, AND SEE IF THERE 1S ANY MORE TO DO 
004142 004522 7900 OU 708 DUM TSxo GARG GET FIRST LOCATION TO DUMP 
004143 035236 2350 07 709 LDA TSTABLE,DL IF NO ARGUMENT = DUMP TaBLE DESCRIPTOR 
004144 090022 7350 oO 710 ALS 18 MOVE TO ADDRESS POSITION OF WORD 
004195 090452 755n ag 711 STA TEMP STORE aS TALLY WORD 
0041946 004522 7000 00 712 TSXO GaRG GET NUMBER OF WORDS TO pUMP 
004147 000001 2350 07 723 LDA 1,DL IF NO ARGUMENT GIVEN, ASSUME ONE 
004150 0090006 7350 00 714 ALS 6 POSITION COUNT TO TALLY FIELD 
004151 0090452 2550 00 715 ORSA TEMP STORE JIN TALLY WORD 
004152 0094522 7000 09 716 TSX0 GARG GET OFFSEY OR BaSE OF TABLE TO DUMP 
0041453 777777 2350 07 717 LDA et, DL IF NO ARGUMENT, OFFSET 1S MINUS ONE 
004154 035214 2350 95 748 LDA TESTARTe1,AL GET BASE OF TABLE IN ay 
004155 090000 6350 O41 749 EAA 0,AU ZERO OUT aL 
004156 000453 7550 00 720 STA TEMPY AND SAVE 
004157 000452 0550 O90 721 ASA TEMP AND ADD OFFSET TO ADDRESS TO DUMP 
0041690 000452 2360 O00 722 DUM4 DQ TEMP GET ADDRESS OF NEXT WORD YO BE DUMPED 
004161 777700 5160 07 723 CANG =077770900,DL SEE JF FHERE !S ANYTHING ELSE TO pwMP 
004162 004435 6000 00 724 TZE FIN NO = EXtT 
004163 0094577 7000 90 725 TSX0 WRITE WRITE CR/LF 
004164 091451 0003 40 726 TALLYB CRLF,3 CR/LF 
004165 0090453 1760 O0 727 S$BQ TEMPY MAKE ADBRESS RELATIVE TO BASE OR OFFSET 
END OF BINARY CARD 000900064 
004166 004567 7000 O09 726 TSX0 ADDR TYPE ADBRESS 
004167 000004 2270 93 729 .DX7 4, DU INJTIALIZE NUMBER OF WORDS PER LINE 
004170 000040 2360 07 730 DuM2 Da 20040,DL GET aA SPACE 
004171 000457 7560 $2 731 STQ OUT, SC STORE JN OUTPUT 
004172 0090452 2360 §6 732 LDQ TEMP,ID GET NEX? WORD Ta puMP 
004173 004565 7000 Ou 733 TSX0 WORD TYPE IT QUT 
004174 000001 1670 OS 734 SBX7 1,DU DECREMENT NUMBER OF WORDS LEFT ON THIS LINE 
004175 0042092 6000 OD 735 TZE DUM3 TRANSFER If TIME FOR A NEW LING 
004176 0090452 2350 00 736 DA TEMP GET TALLY WORD IN a REGISTER 
004177 777700 $150 07 737 CANA ©0777700,DL MAS TALLY RUN OUT 
004200 004170 6010 00 738 TNZ DuM2 TRANSFER tf MORE TO DO 
004201 0094435 7400 90 739 TRA FIN NO MORE «+ EXIT 
004202 000461 2350 93 740 DUM3 LDA OUTB, DU GET ADDRESS OF START OF BUFFER IN au 
004203 000017 0750 47 744 ADA 15,DL GET LENGTH OF DATA IN AL 
004204 003031 7000 09 742 TSX0 STTYW WRITE LINE TO TELETYPE 
004205 000460 2350 fo 743 LDA OUTP GET INIFLAL OUTPUT POINTER 
004206 000457 7550 ou 744 STA OUT AND INITIALIZE OUTPUT POINTER 
004207 004160 7100 OO 745 TRA DUM4 TRANSFER TO PRINT NEXT LINE 
0042190 0090455 2350 Ou 746 RDUM LDA DTCR GET ADDRESS OF TASK CONTROL BLOCK 


t1Lo57 UL U5-26-72 
Z 
Ou42i1 uvo0gn7 
U04212 von017 
0N4213 uvuondto 
ENU OF BINARY CARD 
004214 upi0nd 
Uu42i15 000452 
U04216 0900453 
004217 094160 
004220 Un4b22 
Y04221 004432 
004222 un90Q22 
Oo4223 000452 
004224 004522 
004225 og00N1 
004226 090010 
Uu4227 090049 
004250 009452 
004231 0904522 
0042382 777777 
004233 035214 
004234 0090000 
004235 009453 
004236 0090452 
09042357 u90452 
094249 777700 
004241 004435 
END OF BINARY CARD 
004242 094577 
004243 001451 
004244 00900453 
004245 004567 
004246 000040 
0042497 090040 
004250 0900457 
004291 090452 
004252 000457 
004253 000001 
004254 094261 
004255 0900452 
004256 777700 
004257 0094251 
0042690 004435 
004261 000464 
004262 000013 
004263 Up30314 
004264 0090460 
004265 090457 
004266 U04237 
004267 004577 


END OF BINARY CARD 


17,564 VIBUG CUMMANDS 

CUMMAND JTNTERPRETER 
23600 O1 747 LDQ 7, AU) 
7560 OL 748 STQ 15.AU 
0750 OS 749 ADA 8, DU 
QOVOUD62 
0750 07 750 ADA 8#64,DL 
7550 00 751 STA TEMP 
4500 00 752 $T¥Z TEMPYL 
7400 00 753 TRA DUM4 
7000 00 754 TYPE TSXO GARG 
7400 Ov 755 TRA ERR 
7350 OY 756 ALS 18 
7550 OO 757 STA TEMP 
7900 OV 758 TSX0 GARG 
2350 07 759 LDA 1,.DL 
7350 OO 760 ALS 
0750 07 764 ADA 204,04 
2550 00 762 ORSA TEMP 
7000 OY 763 TSX0 GARG 
2350 07 764 LDA 71,DL 
2390 05 765 LDA TESTARTe1;,AL 
6350 O4 766 EAA 0,AU 
7550 OU 767 STA TEMP4 
0550 00 768 ASA TEMP 
2360 00 769 TYPE, {pa TEMP 
5160 07 770 CANO 20777700,0L 
6900 00 771 TZE FIN 
00000065 
7000 OY 772 TSXO WRI TE 
0003 40 773 TALLYB CRLF,3 
1760 00 774 $BQ TEMPy 
70u0 OV 775 TSXo0 ADDR 
2270 08 776 0X7 32,DU 
2360 O07 777 LDQ ©9049,DL 
7560 §6 778 st¥Q OUT, ID 
2360 Se 779 TYPE2 LDQ TEMP,SC 
7560 $2 780 STQ OUT,SC 
1670 OS 784 SBX7 1,DuU 
6000 00 782 YZE TYPE3 
2350 OV 763 LDA TEMP 
$1450 07 784 CANA =0777700,0DL 
6010 60 785 INZ TYPE2 
7400 09 786 TRA FIN 
2390 O38 787 TYPES LDA OUTB,DU 
0750 97 788 ADA 14,DL 
7000 00 789 TSXO0 STTYW 
2390 OV 790 LDA OUTP 
7550 OU 794 STA QUT 
71400 OO 792 TRA TYPEL 
7000 OV 793 TIME TSX0 WRITE 
00000064 
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GET SavEn IC IN Q 
STORE IN TIMER REGISTER PART OF SAVED REGISTERS 
MAKE A REGISTER POINT TO SAVED REGISTERS 


SET TALLY FOR EIGHT WORD nUMP 

STORE FOR DUMP ROUTINE 

MAKE OFFSET ZERO 

AND DUMP REGISTERS 

GET FIRST LOCATION TO TYPE 

IF NO STaRTING aDDRESS THEN ERROR 
MOVE TO ADDRESS POSITION OF WORD 
STORE aS TALLY WORD 

GET NUMBER OF WORDS TO TYPE 

IF NO ARGUMENT {S GIVEN, ASSUME ONE 
POSITION COUNT TO TALLY FIELD TIMES FOUR 
SET 9=BIT CHARACTER FLAG IN TALLY WORD 
STORE IN TALLY WORD 

GET OFFSET OR BASE OF TABLE TO TYPE 
IF NO ARGUMENT, OFFSET 1S MINUS ONE 
GET BASE OF TABLE IN ay 

ZERO OUT AL 

AND Save 

AND ADD OFFSET TO ADDRESS TO TyPE 

GET TALLY OF NEXT WORD TO BE TYPED 
SEE JF THERE 1S ANYTHING ELSE TO puMP 
NO e EXE? 


WRITE CR/LE 

CR/LF 

MAKE ADDRESS RELATIVE TO BASE OR OFFSET 
TYPE ADBRESS 

INITIAL EZE NUMBER OF CHARACTERS PER LINE 
GET aA SPacE AND THREE NULLS 

STORE IN OUTPUT 

GET NEXT CHARACTER TO TYPE 

AND STORE JN OUTPUT BUFFER 

DECREMENT NUMBER OF CHARACTERS LEFT ON THIS LENE 
TRANSFER {Ff TIME FOR A NEW LINE 

GET TALLY WORD IN A REGISTER 

HAS TALLY RUN QUT 

TRANSFER {F MORE TO DO 

NO MORE » EX[T 

GET ADDRESS OF START OF BUFFER IN aU 
GET LENGTH OF DaTa IN AL 

WRITE LINE TO TELETYPE 

GET INITIAL OUTPUT POINTER 

AND INITIALIZE OUTPUT POINTER 


WRITE CRLF 


Uto57 


END 


01 05-26-72 17,868 DEBUG COMMANDS 


7 COMMAND INTERPRETER 
004279 «60014514 cous 49 794 TALLYB CRLF,3 
004271 50900012 volo O90 795 MME MEUTIME 
004272 004504 7550 Ov 796 STA TIMET 
004273 004406 7009 OO 797 TSXO BCD 
004274 000040 2350 07 798 LDA 2£0040,DL 
004275 000457 7550 5e 799 STA UUT,SC 
004276 004304 2350 Ov 800 LDA TIMET 
004277 004305 1750 Oy 804 SRA LTIME 
004300 004306 7000 00 802 TSXO BCD 
004301 004304 2350 oOo 893 LDA TIMET 
004302 004305 7550 Oy 804 STA bTIME 
004303 0904435 71400 og 895 TRA PIN 
004304 000000 OovnKgO 806 TIMET ZERO 

004305 On0000 gououn AQ07 LTIME ZERO 

004306 000000 2360 53 808 BCD L0G Q, DU 
004307 004334 5070 og 809 DVF BCDC 
004310 004322 7010 00 810 TSX4 BCL4 
004311 94322 7010 49 Bit TSX4 BCD 
004312 004322 7010 oy B42 TSXi BCD 
004313 000056 2360 907 813 ore 20056,DL 
004314 009457 7560 §2 814 STG OUT, SC 
004315 094322 7010 oy 815 TSX4 BCD4 

OF BINARY CARD 00000065 

004316 004322 7010 GO B16 TSxX4 BCD4 
004317 004322 7010 00 817 TSX1 BCD¢ 
0043290 004322 7010 O09 B18 ¥Sxi BCD 
094321 000000 7100 40 819 TRA 0.0 
U04322 240000 4010 03 820 BCD1L MPF ®02400080,DuU 
004323 004333 7550 00 B24 STA BCDFT 
004324 090005 7370 oo 822 Ls 5 
004325 00001 7710 00 823 ARL 1 
004326 094333 2360 40 824 DQ BCOT 
004327 090037 7720 Ov 825 QRL S625 
004330 000060 0760 07 826 ADO 80060,DL 
004331 000457 7560 §2 827 STQ ouT,S¢ 
004332 090000 7100 $4 828 TRA 0,1 
004353 d00000 900009 829 BCDT ZERO 

004354 0090364110000 830 BCDC DEC 64000000 
0043385 000456 2340 09 R31 TRA SZN RETRN 
0043536 004432 6010 400 832 INZ ERR 
004337 004522 7000 00 433 TSX0 GARG 
004340 004432 7100 QO 834 TRA ERR 
004341 Op90000 6200 95 835 EAXO O,AL 
004342 000455 2210 00 836 LDX4 DTcea 
004343 O00007 7400 11 837 S¥Xo 7,1 

OF BINARY CARD 00000066 

004344 004345 7100 09 838 TRA CON 
004345 000456 2340 OV 839 COUN SZN RETRN 
004346 004432 6010 O0 840 INZ eERR 
004347 000456 7500 og B44 STC2 RETRN 
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GET RUNNING TIME IN A REGISTER 
AND SAVE 

TYPE OUT RUNNING TIME 

GET A SPACE 

AND OUTPUT IT 

GET CURRENT RUNNING TIME 
SUBTRACT LAST TIME TIME WAS PRINTED 
AND PRINT TIME {NCREASE 

GET CURRENT TIME 

AND MAKE !7 LAST TIME 

AND EX]T 


ZERO OUT @ REGISTER 
DIVIDE BY 1000 SECONDS 
PRINF a DIGIT 

PRINT A DIGIT 

PRIN? A DIGIT 

GET A DECIMAL POINT 
AND OUTPUT IT 


PRINT A DIGIT 

PRINT a DIGIT 

PRINT A DIGIT 

AND RETURN 

MULTIPLY BY 10/16 

SAVE INTEGER PART 
DELETE INTEGER PART 

AND RESTORE FRACTION IN A 
GET INTEGER PART IN Q 
GET INTEGER DIGIT IN QL 
ADD AN ASCJ! ZERO 

AND OUTPUT DIGIT 

RETURN 


JS THE RROGRAM CURRENTLY RUNNING 

YES » CANNOT TRANSFER IN A RUNNING PROGRAM 
GET ADDRESS QF TRANSFER 

NO ADDRESS GIVEN » ERROR 

PUT ADDRESS IN XR ~ 0 

GET POINTER TO TASK CONTROL BLOCK IN XR 2 4 
STORE ADDRESS IN SAVED INSTRUCTION COUNTER 


AND RESVART JOB 

1S THE PROGRAM RUNNING 

YES + CANNOT CONTINUE Aa RUNNING PROGRAM 
SET RETURN FLAG 


U1557 01 u5-26-72 17,8063 DEBIG CUMMANYS PAGE 28 


é COMMAND [NTERPRFETER 

004350 0904435 7400 O9 842 TRA FIN AND EXIT 
004351 004522 7nu0 OO 843 GRE TSxO0 GARG GET BREAKPOINT ADDRESS 
0u4352 094572 7100 Ou 844 TRA bRE4 UNCONDITIONAL BREAK IF NO ARGUMENT 
004353 00090 62/0 05 845 BRE, EAX7 Qe AL PUT ADDRESS IN XR - 7 FOR TABLE LOOK UP 
U04354 00904626 7000 Ou 846 TSXO0 BTLY SEARCH BREAKPOINT TABLE 
004355 094363 74u0 OD 847 TRA BRED TRANSFER IF NOT FOUND 
004356 004577 7000 09 348 TSX0 WRITE WRITE MBSSAGE ABOUT DUPLICATE BREAKPOINT FOUND 
UN4357 001453 One7 40 849 TALLYB BPIT,23 CR/LF/BREAKPOINT IN TABLE 
0043690 Go00000 6360 47 250 EaQ 0,7 PUT ADDRESS OF BREAKPOINT IN Q 
0043614 094567 7ovu0 00 854 TSXO ADDR ALSO TYPE ADDRESS 
604302 uo04367 7100 OO 852 TRA BRE AND GO GET NEXT BREAK ADDRESS IF ANY 
004363 0013503 7470 114 853 BRE? STX7 BTAR 1 STORE ADDRESS OF NEW BREAKPOINT 
004364 90001 0610 93 854 ADXYL 1,DU STEP TO NEXT TABLE ENTRY 
004365 0900013 $350 07 855 LCA 1,0L GET A NEGATIVE NUMBER 
004366 0013035 7550 $1 856 STA BTABr 4 STORE END) OF TABLE MARKER 
004367 004522 7000 oO B57 BRE TSX0 GARG GET NEXT BREAK aDDRESS 
004370 004435 7100 Ov 858 TRA FIN NO MORE SO EXIT 
004374 004353 7100 Ov 859 TRA BRE4 GO SERVICE NEW BREAK ADDRESS 

ENL OF BINARY CARD 0000U067 
004372 0456 234n O00 860 BRE4 SZN RETRN IS TASK HALTED 
004373 094432 6000 OO B6L 1ZE ERR YES = CANNOT HALT IT AGAIN 
004374 ug1135 7560 §y 862 STQ IN, cl SAVE END OF ARGUMENT FOR NEXT CALL 
004375 000455 2200 00 863 .DX0 DTCR GET ADDRESS OF TASK CONTROL BLOCK 
004376 090007 2270 10 864 LDX7 7,0 GET ADDRESS OF NEXT INSTRUCTION TO EXECUTE 
004377 0043553 7100 00 865 TRA BRE AND INSERT BREAKPOINT THERE 
004400 uo4522 7000 50 866 UNB TSX0 GARG GET ADDRESS OF BREAKPOINT TO REMOVE 
004401 004425 7490 OO 467 TRA UNB4 NO ARGUMENT SO REMOVE ALL OF THEM 
004402 000000 6270 05 R68 UNBy EAX7 0. AL GET BREAKPOINT ADDRESS IN XR - 7 
004403 004626 7000 00 869 TSX0 BTLU FIND BREAKPOINT JIN TARLE 
004404 094420 7100 00 870 TRA UNB3 TRANSFER If NOT IN BREAKPOINT TABLE 
004405 000000 6220 41 871 EAX2 0,1 SAVE LOCATION OF BREAKPOINT IN TABLE 
004406 0900014 0610 O8 872 ADXL 1,DU STEP OVER ENTRY 
004407 004627 7o00 Ov 873 TSXO BLU, AND SEARCH FOR END OF TABLE 
004410 000001 1610 O58 874 SBX4 1,0u GET POINTER TO LaST ENTRY IN TABLE 
004411 001505 2350 11 875 LDA BTAB,1 FEYCH LAaSY ENTRY IN BREAKPOINT TABLE 
004412 001303 7550 42 876 STA BTAR,2 STORE ON TOP OF ELEMENT TO BE REMOVED 
004413 0090001 3350 07 877 LCA 1,DL GEY END OF TABLE FLAG 
004414 001303 7550 11 878 STA BTABa4t AND STORE aT NEw END OF BREAKPOINT TARLE 
004415 004522 7000 O0 879 UNB2 TSX0 GARG GET NEXT ARGUMENT 
004416 094435 7400 OO 880 TRA FIN NO MORE + EXIT 
004417 004402 7100 00 BBL TRA UNBt MORE TO pO SO LOOP 

END OF BINARY CARD 00000068 
004429 696004577 7000 Ou B82 UNBS TSXO0 WRITE TYPE QUT ERROR MESSAGE 
004421 001466 Qod0 40 883 TALLYB 8NF 24 CRyLF/BREAKPOINT NOT FOUND 
004422 000000 6360 $7 BB4 EAQ 0,7 GET ATTEMPTED ADDRESS IN Q REGISTER 
004423 004567 7000 O00 885 TSX0 ADDR AND TYPE {fT 
004424 004445 7100 00 8B6 TRA UNB2 AND SEE IF THERE IS ANY MORE TO DO 
004425 000001 3350 07 887 UNB4 LEA 4,0L GET AN END OF TABLE FLAG 
004426 0091303 7550 OO 888 STA BTAB AND STORE IT aT THE BEGINNING OF THE TABLE 


004427 004435 7400 OO 889 TRA FIN AND EX]? 


01557 


END 


END 


G1 0526-72 17,863 DEBUG COMMANDS 

Zz COMMAND INTERPRETER 
004450 000090 2200 08 AGN EXIT LDXO Q,bU 
004431 590090 0010 00 R94 MME MSTERM 
004432 094577 7n00 OU 892 ERR TSXo WRITE 
004433 001475 0019 409 893 TALLYB ERRM,8 
004434 004435 7400 OV 894 TRA PIN 
004435 0046f6 7000 OV R95 FIN TSXO BSET 
004456 004577 700 O09 896 TSXO WRITE 
004437 001451 0003 40 897 TALLYB CRLF,3 
004440 000003 2360 07 898 LDQ 3,DL 
004444 0090000 2350 07 899 LDA O.¥UL 
004442 000457 3160 00 900 FIN, CANQ QuT 
004443 604446 6000 OV 901 FZE FIN2 
004444 000457 7550 52 992 STA OUT,SC 
004445 094442 7140 O09 903 TRA FING 
OF BINARY CARD O000u0609 
004446 000457 2350 Bu 904 FIN2 LDA QUT 
004447 000461 1750 9% 995 SBA QUTB,DU 
004450 090022 7719 OV 906 ARL 18 
004451 000461 0750 OS 907 ADA OUTR,DU 
004452 003031 7000 O09 908 TSXO $TTYh 
004453 000456 2340 Ou 9099 SZN RETRN 
004454 0094064 6000 00 910 TZE DDT 
004455 000456 4509 00 914 $7Z RETRN 
004456 090455 2200 Oy 912 LDXO0 DTcB 
004457 000007 2270 490 913 0X7 7,0 
004460 004626 7000 00 914 TSXO BTLU 
004461 004500 7100 90 945 TRA FIN3 
004462 001303 7230 411 916 LXL3 BTABysL 
004463 004521 44450 o0 91? SXL3 BINST 
004464 000000 2250 47 918 LDX3 Q.7 
004465 004521 74450 Og 949 STX3 BINST 
004466 0090000 2360 4&7 920 LDQ 0,7 
004467 000452 7560 oO 921 STQ TEMP 
004479 001447 2360 a0 922 LDQ BXED 
094471 000000 7560 47 923 STQ Q,7 
004472 000455 2200 00 924 LDX0 DTCa 
004473 000007 7470 40 925 STX7 7,0 
OF BINARY CARD 00000970 
004474 000014 2350 $0 926 LDA 12,0 
004475 000453 7550 oo 927 STA TEMP 
004476 000452 2350 Ou 928 LDA TEMP 
004477 000014 7550 49 929 STA 12,0 

004500 930 FINS QUEVE (DT¢B,1),,S5TASK 
004512 004064 71400 00 931 TRA DoT 
004513 0099000011007 
004514 932 EVEN 

004514 O000090 7550 04 933 BKST STA Q,1¢c 
004515 004516 7470 O09 934 XED #et 
004516 000453 2350 Ou 935 LDA TEMP4 
004517 004520 7470 O9 936 XED +d 
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GET SAFE TERMINATE STaTus 

TERMINATE EXECUTION 

TYPE OUT ERROR 

CR/LF /ERROR 

AND EXIT 

INSERT BREAKPOINTS IN PROGRAM 

WRITE TO TTY 

ADD CARRIAGE RETURN/LINE FEED TO OUTPUT BUFFER 
GET A CHARACTER POSITION MASK IN Q 

GET A NULL CHARACTER IN AL 

SEE IF OUTPUT POINTER IS aT CHARACTER ONE OF WORD 
TRANSFER IF YES 

ADD A NULL CHARACTER TO THE OUTPUT BUFFER 

AND TRY AGAIN 


GET OUTPUT POINTER IN a REGISTER 

SUBTRACT LOCATION OF OUTPUT BUFFER 

RIGHT JUSTIFY NUMBER OF WORDS JIN OUTPUT QBUFFER 
ADD BASE OF QUTPUT BUFFER » GET 170 CONTROL WARD 
DO TTY OUTPUT 

IS THE RETURN FLAG SET 

NO = WAIT FOR ANOTHER SPECIAL 

RESET RETURN FLAG 

GET POINTER TO TASK CONTROL BLOCK IN XR « 0 
GET DESTINATION ANDRESS IN XR « 7 

AND SEE IF I¥ IS A BREAKPOINT 

NO = CAN RETURN NORMALLY 

GET LOWER HALF OF INSTRUCTION aT BREAKPOINT 
STORE IN SPECIAL INSTRUCTION WORD 

GET UPPER HALF OF INSTRUCTION aT BREAKPOINT 
STORE IN SPECIAL INSTRUCTION WORD 

GET ACTUAL BREAKPOINT IN Q@ REGISTER 

AND SAVE IN MEMORY 

GET AN XED BKST TO RESTART PROPERLY 

STORE aA¥ BREAKPOINT LOCATION 

GET POINTER TO TaSkK CONTROL BLOCK IN XR ~- 9 
STORE S¥ARTING ADDRESS IN SAVED IC 


FETCH SAVED A REGISTER 

SAVE FOR LATER RESTORATION 

GET [MAGE OF BREAKPOINT 

STORE IN SAVED a REGISTER 

RESTART PROGRAM 

AND LET DEBUGGER WalT FOR ANOTHER SPECIAL 


RESTORE BREAKPOINT 
PRESERVE IC 
RESTORE a REGISTER 
PRESERVE IC 


1257 Ut 05-20-72 17,863 DEBUG COmMANS PAGE 30 
Z COmMANUD [NTERPRETER 


004529 O9N221 6340 54 937 LOI rtic,! RESTORE INDICATORS 
UV4521 O000N0 ONON OY 938 BINST ARG oe EXECUTE INSTRUCTION PREVIOUSLY AT BREAKPOINT 


01557 01 J5"26-72 174863 DEB'G COMMANDS PAGE 31 


Z SUBROUTINES 
939 TTLS SUBROUTINES 
END OF BINARY CaRD 0000U071 
004522 004564 45y0 00 940 GARG STZ FG RESET NEGATIVE FLAG 
004523 001135 2360 $2 941 LDG JN,SC GET NEXT INPUT CHARACTER 
004524 099015 1160 07 942 CMPO 70045,DL IS IT A CARRIAGE RETURN 
694525 094562 6nUud og 943 TZE GARGS YES = GIVE NO ARGUMENT RETURN 
094526 090055 1160 07 944 CMPQ 20055,DL IS IT A MINUS SYIGN 
004527 004533 6010 Ou 945 TNZ GARG4 NO = SKIP SETTING NEGATIVE FLAG 
0N4530 004564 0540 Og 945 ads FG SET NEGATIVE FLAG 
0045351 Gon000 2360 07 947 DQ 0,0L MAKE FIRST DIGIT LOOK LIKE A ZERO 
094532 004544 710N OD 948 TRA GARGS AND GO TO CONVERT FOLLOWING NUMBER 
094533 0090060 1760 07 949 GARG4 S8Q =0060,DL SUBTRACT DIGIT ZERO 
004534 0094522 6n40 09 950 IM] GARG NOT a DIGIT SO GET NEXT CHARACTER 
004555 Ogonyi2 1160 07 954 CMPO Lo.DL IS IT A NON-DIGIT 
094536 004522 6959 00 952 TPL GARG YES - SKIP 
004537 000010 1160 97 953 CMPO 8, DL IS If AN OCTAL DIGIT 
09045490 004432 6050 09 954 TPL ERR NO = ERROR 
004541 Up0000 2350 07 955 GARGS LDA 0.0L CLEAR A REGISTER 
004542 G00041 7360 OO 956 GARG1 aQLS 33 MOVE OCTaL DIGIT TO LEFT OF Q REGISTER 
004543 000003 7370 Ov 957 LLS 3 ADD DIGIT TO NUMBER IN a REGISTER 
004544 u01135 2300 52 958 LDQ JN,SC GET NEXT INPUT CHARACTER 
004545 000060 1760 07 959 SB 20060,DL SUBTRACT DIGIT ZERO 
004546 004552 6040 00 960 TM] GARG2 TRANSFER IF SEPARATOR 
004547 000010 1160 07 961 CMPQ 8, DL IS IY aN OCTAL DIGIT 
END OF BINARY CARD 0Q0U00072 
004550 004542 6040 00 962 IM] GARG1 YES + ACCUMULATE DIGIT 
0904554 004432 7400 O90 963 TRA ERR NO = ERROR 
004552 000060 0760 97 964 GARG2 aDQ 20060,DL RESTORE CHARACTER 
094553 000015 1160 07 965 CMPQ 20045,DL IS fT A CARRIAGE RETURN 
004554 004556 6n10 OQ 966 TNZ GARG6 NO - GO CHECK FOR NEGATIVE NUMBER 
004555 001135 7560 59 967 STQ IN,C] STORE POSSJBLE CARRIAGE RETURN FOR NEXT TIME 
004556 0094564 2340 O09 968 GARG6 SZN FG SEE IF NUMBER HAD A MINUS SIGN IN FRONT OF IT 
004557 Go0001 6000 40 969 TZE 1,0 RETURN JF NOT 
004560 0090090 5310 O60 970 NEG NEGATE NUMBER 
004561 000001 7400 40 971 TRA 1,0 AND RETURN 
004562 091135 7560 59 972 GARGS STO IN,cl STORE CR IN INPUT LINE FOR NEXT CALL TO ROUTINE 
004563 090090 71N0 40 973 TRA 0.0 NO ARGUMENT EXIT 
004564 090000 On0009 974 FG ZERO 
004565 777764 2210 03 975 WORD LDX1 e12,DU GET NUMBER OF DIGITS IN a WORD IN XR ~ 4 
004566 004579 7100 00 976 TRA LOOP AND PRINT WORD 
004567 777772 2210 03 977 ADDR LDX4 76,yNU GET NUMBER OF DIGITS IN AN ADDRESS 
004570 009000 2350 07 973 L0OP LDA 0,04 CLEAR A REGISTER 
004571 000003 7370 00 979 LLS 3 SHIFT IN FIRST OCTAL DIGIT FROM Q@ TO a REGISTER 
004572 000060 0750 67 989 ADA 20060,DL GET IN A ASCII! OCTAL DIGIT 
004573 000457 7550 $2 981 STA OuT,Se STORE IN OyTPUT BUFFER 
004574 090001 0610 98 982 ADX4 4,DU DECREMERT CHARACTER COUNTER 
004575 094570 6040 0a 983 TMI LooP TRANSFER {IF MORE TO DO 
END OF BINARY CARD 00000073 
004576 Gn0000 7100 0 984 TRA NQ MORE SQM RETURN 


0,0 
004577 090000 2350 ty 985 WRITE LDA 0,0 GET TALLY WORD SUPPLIED 


Uto5/ 


END 


CL U5-26-72 
Z 

UN46U0Q90 0gn454 
Ud46UL 099454 
VN46U2 0904604 
004603 agnant 
004604 000457 
604605 0904601 
004606 Ogo0N0 
004607 Ug20n0 
0046190 001308 
U04614 Gonono 
004612 vugn000 
004613 001503 
004614 uvononog 
004615 o0n001 
004616 004610 
004617 Og0000 
004620 0901503 
004621 Odg90000 
004622 001303 
004623 unn0n0 


OF BINARY CARD 


004624 og00n1 
004625 094620 
004626 0090000 
004627 00135N3 
004639 090000 
u04634 0901303 
004652 dg900N01 
004633 090001 
004634 094627 


17,864 


7559n Og 
2350 52 
6070 OY 
71u0 16 
7590 52 
74u90 AY 
2210 O08 
2250 05 
2350 41 
60490 10 
7220 OL 
4420 £1 
4450 Q1 
0619 93 
7144u0 40 
2210 O05 
2390 #1 
6040 40 
7220 41 
$420 O1 
00000074 
0610 O38 
7100 00 
2210 O38 
2340 11 
6040 £9 
1070 11 
6000 £90 
0610 Od 
7400 OV 


DEBUG COMMANDS 


984 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 

1700 

1901 

102 

1005 

1004 

1005 


1006 
1007 
1008 
1009 
1010 
10114 
1942 
1013 
1014 
1015 


DUBROUTINES 


WRITS 


BSOET 


BSETY 


BREM 
BREML 


BILU 
BTuyt 


STA 
LDA 
TTF 
TRA 
STA 
TRA 
LOX4 
LDXS 
LDA 
TM] 
LXL2 
SXL2 
SXL3 
ADX4 
TRA 
LDOXL 
LDA 
TM] 
LXL2 
SxXL2 


ADX4 
TRA 
LOX4 
SZN 
TMI 
CMPX7 
TZE 
ADX1 
TRA 
TTL 


WTEMP 
WTEMP,SC 
te? 

1,0 
QUT,SC 
WRITL 
0,U0U 
2#542,DU 
BTAB,L 
Q,0 

0.AU 
BTARs4 
0,AU 


0,0 
BTABel 
1,0 
1,Du 
BTLUL 
ALGOL68 
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STORE JN MEMORY 
GET NEXT CHARACTER TO OUTPUT 
TRANSFER TF THERE IS ONF 


NO MORE = RETURN 

STORE IN OUTPUT BUFFER 

ANL LOOP 

GET RELATIVE POINTER 10 START OF RREAKPOINT TABLE 
GET A DRL INSTRUCTION IN XR © 3 

GET NEX¥ ENTRY IN BREAKPOINT TABLE 

TRANSFER IF ALL DONE 

GET LOW HALF OF WORD WHERE BREAKPOINT [S GOING 
SAVE IN BREAKPOINT TARLE ENTRY 

STORE BREAKPOINT IN PROGRAM 

STEP TO NEXT ENTRY IN BREAKPOINT TARLE 

AND LOOP 

GET RELATIVE POINTER TO START OF BREAKPOINT Taale 
GET NEXT ENTRY IN BREAKPOINT TABLE 

ALL DONE SQ EXIT 

GET SAVED LOWER HaLF OF BREAKPOINT LOCATION 
RESTORE LOW HALF IN PROGRAM 


STEP TO NEXT ENTRY IN BREAKPOINT TARLE 
AND LOOP 

GET POINTER TO START OF TABLE 

IS THIS THE END OF THE TABLE 

YES = NOF FOUND 

IS THIS THE DESIRED ENTRY 

YES = FOUND 

INCREMENT POINTER 

AND LOOP 


61557 


END 


END 


04 J5~26"72 17,363 
Z 

004635 001675 2367 52 
004656 004662 6070 og 
004637 004641 7400 00 
004640 001677 2340 Oy 
004641 000000 6010 09 
004642 001673 2350 oO 
004643 001527 7550 OO 
004644 001524 2370 ov 
004645 003724 7000 Ov 
004646 004641 2200 00 
004647 0091676 2350 400 
004650 001675 7550 Oy 
004651 00222 2370 §1 
OF BINARY CARD o00u00075 
004692 O00002 1150 03 
004653 777777 6050 O09 
004654 000001 1150 OS 
004655 004635 6020 Ou 
004656 001677 7500 Oo 
004657 000010 7360 O00 
UN4660 001675 0560 O00 
004661 004635 7100 460 
004662 004635 6000 00 
004663 090177 1160 07 
004664 000091 610 10 
004665 004635 7400 60 
004666 004773 7400 00 
004667 001750 2350 OO 
004670 001751 7550 O9 
004671 001752 2210 03 
004672 001764 2220 43 
004673 004676 7400 00 
004674 001753 2360 59 
004675 001751 7560 52 
004676 094635 7n00 O00 
004677 001000 2360 497 
OF BINARY CARD 0000U076 
004700 090022 7360 00 
004701 001752 7560 09 
004702 00000011007 
004703 001300 5602 O1 
004704 Oon0n0 2370 42 
004705 Og00C0O 1110 11 
004706 00000 6n00 46 
004707 777777 7400 og 
004710 002022 2220 O38 
004711 004674 7400 O09 


ALGOL68 


PASSQ 


NCHAR 


NCHX 


NCH4 


N40 


NUSK 


NULP 
NILPS 


NJDEN 


TTLS 
WEAD 
INAIB 
LDG 
TTF 
STX0 
SZN 
™NZ 
LDA 
STA 
LDAQ 
TSx0 
LOxo 
LDA 
STA 
LDad 


CMPA 
TRC 
CMPA 
TNC 
STC2 
QLS 
ASG 
TRA 
TZE 
CMPQ 
TNZ 
TRA 
STx0 
LDA 
STA 
LDX1 
LDX2 
TRA 
LDQ 
STQ 
TSX0 
LD@ 


QLS 
STQ 


RPDA 
LDA 
CWL 
YZE 
TRA 
LDX2 
TRA 


PASSO 

A 

OFF 
IN,JSC 
NCH 
NCHX 

ECF 

en 

INSUF +BLEN~1L 
[NBUF wy 
CPRAM 
BREAD 
NCHX 

INP 

JN 
rd9TAT,! 


2,0u 
ERROR 
1,Du 
NCHAR 
EOF 

642 

JN 

NCHAR 
NCHAR 
20177,DL 


NICHR, DU 
NI¥q,DU 
NILPL 
NICH,CI 
[DENT,SE 
NCHAR 
201000,0L 


18 
NYICHR 


91,TZE 
0,2 

O,1 
0,4L 
ERROR 
NIT2,DU 
NILP 
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GET NEXT CHARACTER IN Q IF ANY 

TRANSFER IF THERE WAS ONE 

SAVE RETURN ADDRESS 

IS IT THE END OF THE FILE 

TRANSFER !F END OF FILE 

GET LAST WORD IN BUFFER 

STORE IN FRONT OF BUFFER IN CASE OF BACKUP 

GET PARAMETERS FOR READ INFO BUFFER FROM SOURCE 
READ INTO BUFFER 

RESTORE RETURN LOCATION 

GET TALLY WORD FOR NCHAR ROUTINE 

INITIALIZE INPUT TaLLY WORD TO START OF QUFFER 
GET STATUS OF OPERATION 


1S STaTUS OK 

NO = ERROR 

SEE JF STATUS IS SHORT READ 

NO = CONTINUE 

YES » SEY END OF FILE FLAG 

MULTIPLY RESIDUE BY 4 AND POSITION TO TALLY FIELD 
MAKE TALLY RUN OUT ON LAST READ CHARACTER 
AND CONTINUE 

TRANSFER IF NULL AND GET NEXT CHARACTER 

IS IT a FILL CHARACTER 

NO = SO RETURN 

YES = GET NEXT GHARACTER 

SAVE REFURN ADDRESS 

GET INITIAL JDENTIFIER TALLY WORD 

STORE IN IDENT TALLY WORD 

GET POINTER TO SAVED CHARACTER 

GET POINTER TO TABLE 4 

AND ENTER LOOP 

GET LAST CHARACTER SUPPLIED BY READ ROUTINE 
AND STORE IN IDENTIFIER 

GET NEXT CHARACTER FROM INPUT FILE IN QL 
IF END OF FILE » GET PSEUDO CHARACTER 4000 


SHIFT CHARACTER TO QU 
AND STORE FOR COMPARISON ROUTINE 


SEARCH CURRENT TABLE For THIS TYPE oF CHARACTER 
GET RANGE TO CHECK FROM TABLE 

SEE IF CHARACTER IS WITHIN RANGE 

TRANSFER TQ APPROPRIATE ROUTINE 

ILLEGAL CHARACTER 

GET POINTER TO BUILD IDENTIFIER TaBLe 

STORE CURRENT CHARACTER AND CONTINUE 


31557 


END 


END 


UL US=2O0472 


A 


004712 O01751 
004713 0092032 
UN4714 6004674 
0N4715 002044 
004716 004676 
004717 00N056 
004720 001751 
004721 U02032 
004722 004674 
004723 up2yu5e2 
004724 004674 
004725 091753 
QF BINARY CARD 
004726 0091751 
004727 002064 
004730 004676 
004731 001762 
004732 004676 
004733 6091756 
004734 004676 
004735 002072 
004736 004674 
004737 092100 
0047490 004676 
004744 0092106 
004742 004674 
004743 002120 
004744 004674 
004745 092130 
004746 004676 
004747 092136 
004750 004674 
004751 091754 
004752 091675 
004753 094757 
OF BINARY CARD 
004754 001754 
004755 001675 
004756 001675 
004757 091675 
004769 0091675 
004761 004764 
004762 001753 
004763 00917514 
004764 091759 
004765 001751 
004766 090000 
004767 001751 
004770 vo1l751 
004771 004773 


17,463 


0119 dé 
2220 08 
7400 09 
2220 O08 
7409 OV 
2360 Q7 
7500 52 
2220 08 
7100 OU 
2220 OS 
7109 00 
2360 5y 
Q000U077 
7560 59 
222 OS 
7409 00 
2220 O58 
7100 OU 
2220 05 


7100 90 
2229 OS 


7409 00 
2220 O35 
7100 00 
2220 O¢8 
7400 OO 
2220 Od 
7400 OV 
2220 039 
7100 90 
2220 038 
7400 90 
2360 O06 
0560 O00 
7400 00 
Oov0u078 
2360 00 
0560 00 
0119 $2 
0110 $2 
01410 $2 
71400 00 
2360 59 
7560 52 
2360 00 
2350 OU 
5310 oOo 
7560 OO 
7510 06 
22u9 90 


ALGOL48 


PASSQ 


NiDG4 
NIDIG 


NJDEC 


NIDC4 


NIEXP 


NIEXY 


NOP 
LDXK2 
TRA 
LOX2 
TRA 
LQ 
STFQ 
LDX2 
TRA 
LDXe2 
TRA 
LDQ 


STQ 
LDOX2 
TRA 
LOX2 
TRA 
LDXx2 
TRA 
LDX2 


TRA 
LDX2 
TRA 
LDX2 
TRA 
LDX2 
TRA 
}DX2 
TRA 
LDX2 
TRA 
LDQ 
ASQ 
TRA 


LDQ 
asQ 
NOP 
NOP 
NOP 
TRA 
LDQ 
STQ 
LDQ 
LDA 
NEG 
STQ 
STCA 
LDXo 


TDENT,SC 
NIT3,0U 
NILP 
NIT4,0U 
NILPL 
29056,DL 
IDENT,SCE 
NIT3,DU 
NILP 
NIT5,DU 
NILP 
NICH,CI 


IDENT, CI 
NtT6, pu 
NILPL 
NIT7,DU 
NIP 
NITR,DY 
NILPL 
NIT9,DU 


NIP 
NIT10,DU 
NILPL 
NIT¢4,DU 
NILP 
NI742,pU 
NILP 
NIT,3,DU 
NILPL 
NILP 
BaCK4 

JN 


NIX 
NICH,CI 
IDENT,SC 
NITAaL 
IDENT 


IDENT 
IDENT, 06 
NIEOF 


PAGF 34 


SKIP OVER PLUS OR MINUS ALREADY STORED 
GET POINTER TO RUILD NUMBER TABLE 
STORE CYRRENT CHARACTER AND CONTINUE 
GET POINTER TO FUIL! FRACTION TABLE 

DO NOT STORE DECIMAL POINT AND CONTINUE 
GET aA PERIOD 

STORE IN EDENT REING BUILT 

GET POINTER TO BUILD NUMBER TABLE 
STORE CURRENT CHARACTER AND CONTINUF 
GET POINTER TO BUILD EXPONENT TABLE 
STORE CURRENT CHARACTER AND CONTINUE 
GET CURRENT CHARACTER (4 OR ~) 


STCRE JN NUMBER BEING BUILT IF NEEDED 
GET POINTER TO EXPONENT CHECK TABLE 
CONTINUE 

GET POINTER TO LF AFTER CR CHECK TARLF 
AND CONTINUE 

GET POINTER TO LINE NUMBER SKIP TABLE 
AND CONFINWE 

GET POINTER TO PERIOD CHECK TABLE 


STORE CURRENT CHARACTER AND CONTINUE 

GET POINTER TO COMMENT SKIP TABLE 

AND CONTINWE 

GET POJNTER YO OPERATOR TABLE 

STORE CYRRENT CHARACTER AND CONTINUE 

GET POINTER TO STRING TABLE 

STORE ORENING QUOTE AND CONTINUE 

GET POINTER TO STRING END CHECK TABLE 

AND CONTINWE 

GET POINTER TO FORMAT TABLE 

STORE CURRENT CHARACTER AND CONTINUE 
PREP,RE TO BACK UP FQUR CHaRaCTER POSITIONS 
BACK UP yNPUT ROUTINE TALLY WORD 4 CHARACTERS 
AND SKIP FORWARD TwO CHARACTERS 


PREPARE TQ BACK UP FOUR CHARACTER POSITIONS 
BACKUP INPUT ROUTENE TALLY WORD 4 CHARACTERS 
SKiP FQREWARD ONE CHARACTER POSITION 

SKIP FOREWARD ONE CHARACTER POSITION 

SKIP FOREWARD ONE CHARACTER POSITION 

AND EXIY 

GET LAST CHARACTER CONSIDERED 

AND STORE IN IDENT 

GET [INITIAL TALLY IN 

GET FINAL IDENT TALLY WORD 

NEGATE FALLY COUNT FOR CORRECT OUTPUT TALLY COUNT 
STORE TALLY POINTER TO FIRST CHARACTER OF IDENT 
STORE IN CORRECT TALLY COUNT 

GET RETURN ADDRESS IN XR «= Q 


64557 


mm 
z 
t 


ENL 


U1 05"26-72 
A 
004772 000001 
U04773 090000 
004774 094777 
004775 002162 
004776 004666 
004777 Og0000 
005000 035222 
005001 Odg0000 
) OF BINARY CARD 
005002 095034 
005003 090001 
605004 035222 
005005 005663 
005006 777777 
005007 001751 
005010 777700 
005011 000000 
Co5012 0092151 
005013 092150 
005014 090000 
Q05015 090001 
005016 490000 
005017 035222 
Co5020 On0001 
Do5021 035223 
005022 002151 
005023 091751 
005024 0950930 
005025 035223 
Qo5026 0092151 
005027 0095053 
OF BINARY CARD 
Oo5030 0902151 
005051 005023 
005052 095151 
005033 095923 
005034 092154 
005035 035223 
005036 092154 
005037 001751 
005040 0092155 
005041 002154 
005042 005143 
005043 0092155 
005044 095147 
005045 035222 
005046 0d00N020 
005047 095052 
095050 002162 
005051 004776 


17,864 


7100 $0 
7400 00 
7400 00 
4500 00 
7000 O00 
7100 00 
2270 00 
2350 47 
co0nu079 
6010 00 
2350 O03 
2240 03 
7000 00 
6270 $1 
2350 00 
3750 07 
7550 $7 
2350 00 
3750 00 
2550 $7 
4500 $7 
6200 %¢7 
1600 90 
7400 $7 
2200 00 
0400 00 
2350 $2 
6070 00 
3200 00 
0400 00 
7400 00 
geagouoso 
7550 52 
6070 00 
7000 00 
7400 00 
7550 00 
2200 00 
0400 00 
2350 00 
7550 00 
2350 52 
6070 00 
0410 S52 
6070 OU 
1670 00 
1070 05 
6010 00 
0540 00 
7409 00 


ALG9L68 


1111 
1112 
11135 
1114 
1115 
1116 
1117 
1118 


1119 
1120 
11214 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 


1141 
1142 
11435 
1144 
1145 
1146 
1447 
11448 
11449 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 


PASSO 


NIEOF 
NS 


NSR 
NOX 


NOL 


NOt 


NS2 


NS3 


N34 


TRA 
TRA 
STXO 
$7Z 
TSX0 
TRA 
DX7 
LDA 


INZ 
LDA 
LOX1 
TSXxO0 
EAX7 
LOA 
ANA 
STA 
LDA 
ANA 
ORSA 
STZ 
EAXO 
SBX0O 
STXaA 
LOXxo 
ASXO 
LDA 
TTF 
LCOXxoO 
ASX0 
TRA 


STA 
TTF 
TSX0 
TRA 
STA 
LDXO 
ASXO 
LDA 
STA 
LDA 
TTF 
NOP 
TTF 
SBX7 
CMPX7 
TNZ 
AOS 
TRA 


1,0 

ee 

NSX 
LNGCT 
NID 

ee 
TSSTAB 
SC,7 


NS3 
ELEN=-1,DU 
TSSTAB, DU 
TEALOC 
vist 
IDENT 
=0777700,DL 
SC,7 
SYMSC 
NTMSK 
SC? 

DF ,?7 
131072,7 
TESTAR 

DF »7 
TSITAB 
SYMSC 
TPEnNT,SC 
NS2 
TSITAR 
SYMSC 

NS8 


SYMSC,SC 
NS1 

NS] 

NSt 
TEMPY 
TSI TAB 
TEMP4 
IDENT 


S$LONG, DU 
NS8,4 
LNGCT 

NSR 


PAGE 


AND GIVE SUCCESSFUL RETURN 

EOF RETURN AND SAVED RETURN ADDRESS 
SAVE RETURN ADDRESS 

INITTALYZE LONG COUNT 

GET NEXT IDENTIFIER OR SYMBOL 

GIVE END OF FILE RETURN 

GET ADDRESS OF RASE OF SYMBOL TABLE IN XR - 7 
GET SC POINTER TO SYMBOL 


35 


TRANSFER {Ff NOT AT THE END OF THE TABLE 
GET ELEMENT LENGTH MINUS ONE 
GET POINTER TO SYMBOL TABLE CONTROL WORD 
ALLOCATE SPACE IN SYMBOL TABLE 


GET IN XR « 


7 POINTER TO NEXT ENTRY 


GET SC POINTER TO CURRENT SYMBOL 
EXTRACT CHARACTER COUNT 

STORE [IN NEW SC POINTER IN SYMBOL TABLE 
GET CURRENT END OF SYMBOL STRING POINTER 
ZERC OUT CHARACTER COUNT FIELD 
OR TO MEMORY TO FORM NEW SYMBOL TABLE ENTRY 
CREAR OUT POINTER WORD OF TABLE ENTRY 

GET POINTER TO THIS ENTRY IN XR = Q 


MAKE POINTER 


RELATIVE 


IN TABLE 


AND STORE aS FINAL LINK FOR TRIS ENTRY 
GET LOCATION OF IDENTIFIER TABLE 
MAKE IDENTIFIER Tagle Sc POINTER apSOLUTE 
GET CHARACTER OF SyMBOL 
TRANSFER IF NOT ALL DONE 
GET MINUS LOCATION OF IDENTIFIER TARLE 
MAKE IDENTIFIER TaBlLeE Sc POINTER RELATIVE 
GO TO CHECK LONG COUNT 


STORE JN SYMBOL STRING 
TRANSFER IF NO STRING OVERFLOW 
GET MORE MEMORY FOR ITAR STRING 


AND CONTINUE 


STORE FOR COMPARE 


GET LOCATION 


OF IDENTIFIER TABLE 


MAKE SC POINTER ABSOLUTE 

GET POINTER TO CURRENT INPUT SyMBOL 
STORE FOR COMPARE | 
FETCH S¥RINGL CHARACTER 

TRANSFER IF NOT AY END OF STRING1 
CHECK STRING2 

TRANSFER IF NOT aT THE END OF STRING2 
MAKE SYMBOL TABLE POINTER RELATIVE 
WAS LAST SYMBOL READ 'LONG! 
TRANSFER fF NOT LONG 

INCREMENT NUMBER OF LONGS ENCOUNTERED 


AND GET NEXT 


SYMBOL 


01557 


END 


END 


V1 S5-26-72 


A 


U05052 035222 
0n50593 ugnong 
0050594 vu35272 
605025 Ugodgdo 
OF BINARY CARD 
006056 092162 
U05057 0095130 
005060 090071 
005064 495124 
005062 035222 
005063 000001 
005064 090001 
005065 035222 
005066 095663 
005067 777777 
005070 vun0on1 
005071 490000 
005072 035222 
005073 vupn001 
005074 092151 
005075 092150 
005076 ugnooo 
005077 On900n0 
0051090 92154 
005101 777700 
005102 0905N0 
005103 vug9n000 
OF BINARY CARD 
005104 092157 
005405 092455 
0051406 035223 
005107 092151 
005110 002154 
005111 035222 
005112 002156 
005113 005114 
005114 0092155 
005115 005133 
005116 005117 
005117 092154 
005120 0905133 
0054241 035223 
005122 002151 
005123 002156 
005124 o90000 
005125 035222 
005126 002162 
005127 095057 
005130 035222 
005151 094777 


17,863 


Y6/0 
6260 
1460 
2350 


QouUdUORL 


1550 
6000 
7200 
6010 
7200 
4400 
2350 
2210 
7000 
6200 
4500 
6210 
1610 
7410 
2350 
3750 
7550 
2350 
7550 
3750 
0750 
2550 


00000082 


2350 
7550 
2270 
0470 
0470 
16900 
7400 
6270 
2350 
6070 
6270 
2350 
6070 
$200 
0400 
2200 
6270 
0670 
0540 
7100 
1670 
2200 


OU 
17 
00 
07 


£0 


ALG9L68 


PASSO 


1159 N38,14 
1160 N28 
1161 

1162 


1163 
1164 N39 
1165 
1166 
1167 
14168 
1169 
1170 
1471 
1172 
1173 
1174 
1475 
1176 
1177 
1178 
1179 
1180 
11484 
1482 
1183 
1184 


1185 
1186 
1187 
1188 
1189 
1190 
11914 
11492 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 N3tQ 
1202 
12038 
1204 
1205 NS4i1 
1206 


ADX7 
EAX6 
SBX6 
LDA 


SSA 
TZE 
LX 0 
TNZ 
LXiL0 
SXLO 
LDA 
LOX1 
TSXO 
EAXO 
STZ 
EAXL 
SBX4 
STX4 
LDA 
ANA 
STA 
LDA 
STA 
ANA 
ADA 
ORSA 


LOA 
STA 
LDX7 
ASX7 
ASX7 
SBX0 
STX0 
EAX7 
LDA 
TTe 
EAX7 
LDA 
TTF 
LOXO 
ASXO 
LOXO 
EAX7 
ADX7 
AOS 
TRA 
SBX7 
LOX 


TESTAB 
0,7 
TESTAR 
Q,UL 


LNGCT 
NS11 

DF a7 

NSin 
TSSTAB 
DF,7 
ELEN+4,DU 
TESTAB,DU 
TSALOC 
“lat 

DFan 
151972,56 
TSSTAB 
DF. 
SYMSC 
NTMSK 
SC,9 

SC.7 
TEMPL 
20777700,DL 
#0500,DL 


S040 


LONGT 
TEMP2 
TSI TAB 
SYMSC 
TEMP, 
TSSTAB 
TEMPS 
@e1 
TEMP2,SC 
NS412 
eel 
TEMP4,SC 
NS12 
TSITAB 
SYMSC 
TEMPS 
0,0 
TESTAB 
LNGCT 
NS9 
TESTAB 
NSX 


PAGE 


MAKE SYMBOL TABLE POINTER ABSOLUTE 

SAVE POINTER TO IDENTIFIER WITHOUT LONGS 
MAKE IT RELATIVE 

GET A ZERO IN THE A REGISTER 


NEGATE COUNT OF LONGS IN MEMORY 
TRANSFER IF NO MORE LONGS TO CONSIDER 
GET LINK TO ENTRY WITH ONE MORE LONG 
TRANSFER JF THERE IS ONE 


GET CURRENT END OF SYMBOL TABLE IN XR - g 


STORE LINK IN CURRENT TABLE ENTRY 

GET ELEMENT LENGTH MINUS ONE 

GET POINTER YO SYMBOL TABLE CONTROL WORD 
ALLOCATE «a NEW ELEMENT 

PUT ADDRESS OF FIRST WORD IN XR w Q 
ZERO OUT LINK WORD IN NEW ENTRY 

GET POINTER TO THIS ENTRY IN XR = 4 
MAKE POJNTER RELATIVE 

AND STORE AS FINAL LINK FOR THIS ENTRY 
GET RELATIVE TALLY WORD TO 1Tag STRING 
SET TALLY FIELD TO ZERO 

AND STORE AS YALLY IN NEW ENTRY 

GET FALLY FROM OLD ENTRY 

AND SAVE 

GET TALLY FIELD 

ADD 5 CHARACTERS FOR (LONG ) 

AND INSERT TALLY IN NEW TABLE ENTRY 


GE~ TALLY WORD FOR 
AND STORE 

GET ADDRESS OF BASE OF !TAB 

MAKE SYMSC TALLY WORD ABSOLUTE 

MAKE OLD ENTRY TALLY WORD aBSOLUTE 

MAKE POINTER TO NEW TABLE ENTRY RELATIVE 
AN) SAVE 

GET LOOP ADDRESS IN XR e 7 

GET NEXT CHARACTER FROM (LONG ) STRING 
“RANSFER ¥Q STORE CHARACTER 

GET LOOR ADDRESS IN XR - 7 

GET NEXT GHARACTER FROM OLD TABLE ENTRY 
TRANSFER 0 STORE CHARACTER 

GET MINUS BASE OF ITAB TABLE 

AND MAKE SYMSC TALLY WORD RELATIVE 
RECOVER RELATIVE POINTER TO NEW ENTRY 
GET IN XR » 7 POINTER TO NEw TABLE ENTRY 
MAXE {7 aBSOLUTE 

DECREMENT NUMBER OF LONGS TO CONSIDER 
AND 1008 

MAKE SYMBOL TABLE POINTER RELATIVE 

GET RETURN ADDRESS 


(LONG ) 
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1557 U1 V5"26-72 17,468 ALGIL68 PAGE 37 
A PASSO 

ENL UF BINARY CARD 00N0U083 
605152 090091 7109 19 1207 TRA 1,0 AND RETURN 
095133 vun2e154 7550 52 1208 NS12 STA SY¥mMSC,SC STORE CHARACTER IN STRING FOR NEW ENTRY 
005154 Gongn0 6n7n 17 1209 LIF 0,7 RETURN IF NO STRING OVERFLOW 
005135 u35223 $2u0 00 1210 LOXO TSITAR GET MINUS BASE OF ITAB TABLE 
0u5156 002154 0407 OO 1211 ASXN TEMP MAKE OLB ENTRY TALLY WORD RELATIVE 
005157 005151 7000 Ou 1212 TSX NSI GET MORE MEMORY FOR ITAR STRING 
005140 635223 2200 OU 1213 LOXoO TEILTAR GET BASE OF [TAR TABLE 
005141 002154 0400 Oy 1214 ASXO TEMP MAKE OLB ENTRY TALLY WORD ABSOLUTE 
005142 OoOgngnoo 7100 17 1215 TRA 0,7 AND RETURN 
005443 0092155 1150 52 1216 NS5 CMPA TEMP?,SC COMPARE WITH CHARACTER FROM STRINGO 
005144 005146 6070 OO 1217 TTF NS6 TRANSFER IF NOT AT THE END OF STRING2 
U05145 005147 7100 Oo 1218 TRA NS7 AT END OF STRING2 SO NOT EQUAL 
005146 u05041 6000 OO 1219 N36 TZE NS4 TRANSFER IF CORRESPONDING CHARACTERS ARE FQUAL 
005147 Gonon2 9670 Os 1220 NS7 ADX7 ELEN, DU STEP TO NEXT SYMBOL TABLE ENTRY 
005150 095001 7100 OO 1221 TRA NSi AND LOOP 
0951541 605163 7400 OU 1222 NsI STXO0 NSIX SAVE RETURN 
005152 035223 $5207 OY 1223 LCXo TELTAR GET MINUS BASE OF [TAR TABLE 
005153 002151 0400 00 1224 ASX0 SYMSC MAKE [TAB TABLE TALLY WORD RELATIVE 
005154 dog0009 2359 OS 1225 LDA 0,0 ASK FOR ONE ADDITIONAL WORD FOR ITaR 
005455 035223 2210 06 1226 LDX1 TSI TAB,DU GET POINTER TO {Tap CONTROL WORD 
005156 005663 7n00 OO 1227 TSX0 TSALOC AND ALLOCATE SOME MEMORY 
005157 O004NQ 2350 Q7 1228 DA 20490,DL GET TALLY OF 4 CHARACTERS 

END OF BINARY CARD 00000084 
005160 002151 0550 On 1229 ASA SYMSC AND ADD TO NUMBER OF CHARACTERS IN SYMSC 
005161 035223 2200 O60 1230 LDXo TSITAE GET BASE OF ITAB TABLE 
005162 092154 0400 Oy 1231 ASXO SYMSC MAKE ITaB TABLE TALLY WORD ABSOLUTE 
005163 Op00N9 7400 oY 1232 NSIX TRA ae AND RETURN 
005164 005206 74090 OD 1233 PEEK STX0 PEEKX SAVE REFURN 
005165 002153 7260 90 1234 PEEKy (LXL6 QEEKF GET LaS¥ SYMBOL WITHOUT LONGS READ 
005166 00902153 2270 00 1235 .DX7 QEEKF GET LAST SYMBOL READ 
005167 005174 6n10 OO 12356 TNZ PEEK2 TRANSFER IF THERE IS ONG 
005179 004774 7000 OO 1237 TSX0 NS READ «A SYMBOL 
095171 400000 2270 03 1238 LDX7 20490000,DU GET END OF FILE FLAG 
¥05172 602153 4460 00 1239 SXi6 QEEKF STORE AS LAST SYMBOL WITHOUT LONGS READ 
005173 002153 7470 00 1240 STX7 QEEKF STORE AS LAST SYMBOL READ 
005174 002152 7260 ov 1241 PEEK2 LXL6 PEEKF GET NEXT TO LAST SYMBOL WITHOUT LONGS REAN 
0051475 002152 2270 00 1242 LDX7 PEEKF GET NEXT TQ LAST SYMBOL READ 
005176 005206 6010 OO 1243 ¥NZ PEEKX TRANSFER IF JT EXISTS 
005177 002153 7260 OO 1244 LXL6 QEEKF MOVE QEEKF 
005200 002152 4460 OV 1245 SXL6 PEEKF TO PEEKF 
005201 002153 2270 Og 1246 L.DX7 QEEKF MOVE QEEKF 
005202 002152 7470 00 1247 STX7 PEEKF TO PEEKF 
005203 0095206 6040 O90 1248 TM] PEEKX EX]T IF END OF FILE 
005204 002153 45y0 O90 1249 STZ QEEKF ERASE SYMBOL IN QEEKF 
005205 005165 7100 00 1250 TRA PEEK1L AND TRY AGAIN 

END OF BINARY CARD o0u0U085 
005206 000000 6040 Oy 1251 PEEKX TM] ee GIVE ENf OF FILE RETURN IF END OF FILE FLaG 
005207 005206 2200 00 1252 LDXO PEEKX GET RETURN ADDRESS 
Oo0&210 000091 7100 40 1253 TRA 1,0 AND GIVE NORMAL RETURN 


A PASSO 
1254 HF AD P 
005211 035235 74yNn 56 1255 MUDE STXG ASSTACK, ID SAVE RETURN 
pezere DO7tte tno 1256 XED 1$SOVF CHECK FOR STACK OVERFLOW 
Vu5213 010630 7000 OV 1257 MUME1 TSXO ASXFER MAKE MODE UNIQUF AND ABSOLUTE 
005214 635216 1670 OY 1258 SBX7 TEMODE MAKE MODE POINTER RELATIVE 
005215 005255 74/0 Ou 1259 STX?7 MOD AND STORE 
005216 035222 2220 ov 1269 LDX2 TESTAB GET POINTER YO START OF SYMBOL TARLE 
095217 000001 22sn 12 1261 MUDE2 LDXS ASDF ,2 GET POINTER TO DEFINITION CHAIN FOR THIS SYMBOL 
005220 095225 6nd OU 1262 MUDE3 FPL MODE4 TRANSFER IF ANY DEFINITIONS 
605221 000002 0620 OS 1263 ADX2 ASELEN, DU STEP POINTER FO NEXT SYMBOL 
Qa5222 00N000 234N t2 1264 SZN 0,2 SEE IF ANY MORE ENTRIES IN TABLE 
005223 0905217 6010 00 1265 TNZ MODB2 LOOP IF MORE ENTRIES IN SYMBOL TARLE 
005224 095245 7100 00 1266 TRA MODE7 TRANSFER IF MODE HAS NO SYMBOL 
005225 035220 0630 00 1267 MUDE4 aDXx3 TSDEF MAKE DEFINITION POINTER aBSOLUTE 
005226 0090001 2240 43 1268 LDX4 1,3 GET TYPE OF DEFINITION IN XR & 4 
005227 006412 1040 Os 1269 CMPX4 DSMODE,DBU SEE IF THIS IS A MODE DEFINITION 
005239 095234 6n10 Ou 1270 TNZ MODE4, TRANSFER {F NOT A MODE DEFINITION 
005251 090002 2240 13 12714 LOX4 2,3 GET MODE DEFINEN IN XR - 4 
005232 005255 1040 OO 1272 CMPX4 MOD SEE IF THIS JS THE MODE WE ARE LOOKING FOR 
005253 005236 6000 OV 1275 TZE MODES TRANSFER IF YES - MODE DEFINITION IS FOUND 
END OF BINARY CARD 0000u086 
005254 099000 2250 18 1274 MUDE4, LDX3 0.3 GEY POINTER TO NEXT DEFINITION IN CHAIN 
005235 005220 71400 90 1275 TRA MODE3 AND TRANSFER TO KEEP SEARCHING 
005236 090000 2350 12 1276 MUDES LDA ASSC,2 GET TALLY WORD FuR SYMBOL 
005237 005243 7550 Og 1277 STA MODE6 AND STORE FOR PRINT ROUTINE 
005240 035223 2200 00 1278 LDXo TSITAB GET ADDRESS OF BASE OF IDENTIFIFR TABLE 
005241 095243 0400 00 1279 ASX0 MODE6 AND MAKE FALLY WORD aBSOLUTE 
005242 095464 7000 Og 1280 TSX0 PRINT PRINT NAME OF MODE 
005243 o900N0 DonnUD 1281 MUDE6 ZERO 
005244 035235 7100 55 1282 TRA ASSTACK,DIC AND RETURN FO CALLER 
005245 095255 2270 oo 1283 MODE7 {DX7 MOD GET POINTER TO MODE IN XR & 7 
005246 035216 0670 00 1284 ADX7 TSMODE MAKE MODE POINTER ABSOLUTE 
005247 dgf000 2210 47 1285 LDX4 0,7 GET TYPE OF MODE IN XR ~ 4 
005250 005256 2220 0% 1286 LDX2 MT, DU GET POINTER TO TRANSFER TABLE IN XR & 2 
005251 o2n3n0 5202 01 1267 RPT MTEMT,»4,7ZE SEARCH TABLE 
005252 00909000 1010 12 1268 CMPX4 0,2 FOR MODE 
005253 777777 2350 412 1269 LDA "142 GET MATCHING ENTRY IN A 
005254 0090000 7100 45 1290 TRA OAL AND TRANSFER TO APPROPRIATE ROUTINE 
005255 000090 000000 1291 MOD ZERO 
005256 016762 005395 1292 MT ZERO MSREF, REF 
005257 017004 0093357 1293 ZERO MSPROC, PROC 
005260 016757 0nd364 1294 ZERO MSSTRCT,STRCT 
005261 016754 005272 4295 ZERO MSPRIM,PRIM 
END OF BINARY CARD 090000087 
005262 016770 0053128 1296 ZERO MSROW, ROW 
005263 016776 009517 1297 ZERO MSROWE, ROWE 
005264 017007 005426 1298 ZERO MBSUNTON: UNJTON 
005265 0000090 005266 1299 ZERO »MERR 
105266 1300 MTE EQU * 


005266 005464 7000 OV 1301 MERR TSX0 PRINT PRINT AN ASTERISK FOR AN INVALID MONE 


01557 


END 


END 


04 05826072 


005267 
095270 
0052714 
005272 
005273 
005274 
005275 
005276 
005277 
005300 
005301 
005302 
005303 
005304 
005305 
005306 
005307 


17,863 


P 


005271 O0u2 44 
U35235 7100 55 
052040040044 

vugnodg 2369 17 
009077 3769 O7 
009012 5060 07 
0909033 7350 OO 
000077 7770 60 
U6N060 U750 OS 
005304 7550 Oy 
005464 7000 O90 
005304 O003 40 
035235 7400 55 
Oo00%0 OOONGD 

005464 7000 Oy 
005311 0005 40 
000001 2270 7 


OF BINARY CARD (0Y00088 


005310 
005311 
G05312 
005313 
005314 
005315 
005316 
005317 
005320 
005321 
005322 
005323 
005324 
005325 
005326 
005327 
005350 
005351 
005352 
005333 
005354 
005355 


005213 7100 00 
122105106040 
005325 7900 OO 
005464 7900 O00 
005464 Gou2 49 
00n001 2270 $7 
005213 7400 9 
0905325 7900 OO 
005464 7fg0 O90 
005336 Qnd2 40 
005334 4590 O00 
000001 2270 47 
005213 74190 09 
005334 2340 oO 
00000 6610 40 
005333 7400 499 
005464 7900 490 
0905335 Qan2 40 
005334 7590 00 
0900000 7190 OO 
000000 000000 
133040040040 


OF BINARY CARD 00000089 


005336 
005337 
005340 
005344 
005342 
005343 
005344 
005345 
005346 


135040040040 

777777 2260 47 
0900001 6250 4$7 
G00002 1660 Q5 
777777 6040 00 
005352 6010 00 
005464 7900 00 
605362 0005 490 
0905464 7900 00 


ALGOL68 
) 


1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 


1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 


1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 


ASSO 


MERRT 
PRIM 


PRIMT 
ReF 


REF y 
ROW 


ROWE 


ROW] 


ROW] X 
ROWF 
suB 


BUS 
PROC 


TALLYB 
TRA 
YASCI 
Lpa 
ANQ 
DIV 
ALS 
LER 
ADA 
STA 
TSXO 
TALLYB 
TRA 
ZERO 
TSXO 
TALLYB 
LDx7 


TRA 
Uasc] 
TSXo 
TSX0 
TALLYB 
LDX7 
TRA 
TSX0 
TSXO 
TALLYB 
STZ 
LDX7 
TRA 
SZN 
INZ 
STXO 
TSX0 
TALLYB 
STc2 
TRA 
ZERO 
UASC] 


YASC] 
LDX6 
EAX5 
SBX6 
TM] 
TNZ 
TSxo 
TALLYB 
TSX0 


MERRT,2 
AtSTACK, DIC 
1,# 

0,7 

077,04 
19,DcL 

56-9 

72°9 
70040066,DU 
PRIMT 

PRINT 
PRIMT,3 
AGSTACK,DIC 


PRINT 
REF T,5 
1,7 


MODEL 
1, REF 
ROW! 
PRINT 
COMMA,2 
1,7 
MODEL 
ROW! 
PRINT 
BUS,2 
ROWF 
1,7 
MODE1 
ROWF 
0,0 
ROWIX 
PRINT 
S$UB,2 
ROWF 


+n 
iui 


1,] 
74,7 
1,7 
2,D0uU 
ERROR 
PROCL 
PRINT 
PROCT,5 
PRINT 


AND RETURN TO CALLER 


PAGE 


GET NUMBER OF PRIMITIVE MODE JN O 
MASK OUT ALL BUT PRIMITIVE NUMBER 


CONVERT TO TWO NECIMAL DIGITS 


MOVE UNITS DIGIT NEXT TO FENS DIGIT 
MOVE TWO DIGIT NUMBER TO LEFT OF a REGISTER 


ADD ASCE ZEROS 
AND STORE NUMBER 


PRINT PRIMITIVE TYPE 


AND RETURN TO CALLER 


PRINT tRer » 


GET REFERENCED MODE IN xR = 7 


AND PRINT [7 


PRINT eft JF FIRS¥ ROW 


PRINT ',! 


GET DEROWED MODE 


AND PRINT [fT 


IN XR « 7 


PRINT tf!) JF FIRST ROW 


PRINT fy 


RESET ROW FLAG 


GET DEROWED MODE IN XR = 7 


AND PRINT If 


CHECK JF ALREADY IN ROW MODE 


RETURN {F SO 
SAVE RETURN 
PRINT te 


SET ROW FLAG 
AND RETURN 


39 


GET NUMBER OF PARAMETERS PLUS TWO IN XR = 6 


GET POJNTER TO FIRST ARGUMENT IN XR « 5 


GET NUMBER OF PARAMETERS IN xR & 6 


MUST BE aT LEAST ZERO OR ERROR 


TRANSFER IF ANY ARGUMENTS 


PRINT tPROC! 


PRINT A SPACE 


45957 


END 


END 


U1 ud5"26-72 17,803 
p 
YU05347 005462 On02 4y 
UN5350 Gyndng 2270 5 
005354 095213 71409 OO 
005352 005464 700 OD 
U05353 005362 O0N6 4y 
005354 035235 620N 56 
005355 005742 71/70 ou 
005356 vg0000 75un 40 
005357 0905433 7100 oN 
U05369 0000014 2270 15 
0053614 005213 7100 O0 
005362 120122117108 
005363 0500490040040 
QF BINARY CARD Qoucnuoyo 
005364 095464 7000 Ou 
005365 vuo95424 O010 40 
005366 777777 2260 47 
005367 090001 6259 47 
005370 000001 1660 QOS 
005371 777777 6000 OO 
005372 OQ00000 2270 to 
005373 035216 1650 oy 
005374 035235 7450 56 
005375 095742 7170 OU 
005376 035235 7460 56 
005377 005742 7470 00 
005400 005211 7000 Ou 
005401 035235 2260 54 
005402 035235 2257 54 
005403 035216 0650 00 
005404 005464 7000 Oo 
005405 005462 Qn02 40 
005406 000000 7200 £5 
005407 035222 0600 00 
005410 000000 2350 9 
005411 00905415 7550 oo 
OF BINARY CARD Qoooon91 
005412 635223 2200 oy 
005413 005445 0490 00 
005414 005464 700 Oo 
005415 000000 OngQ0Nu0 
005416 000001 1660 OS 
005417 005454 6009 60 
005420 000001 0650 08 
005421 095464 7900 00 
005422 005461 0003 40 
005423 005372 7400 O09 
005424 123124122125 
005425 103124050040 
005426 005464 7900 QO 


ALGOL68 


PASSy 


1350 
1351 
1352 
4353 PROC 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 PROCT 


1362 STRCT 
1363 
1364 
1365 
1366 
1367 
1368 STRy 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1360 
13681 
1382 
1383 


1384 
1385 
1386 
1387 STR2 
4388 
1389 
1390 
1394 
1392 
4393 
1394 STRT 


1395 UNION 


TALLYB 
LOX7 
TRA 
TSXO 
TALLYB 
EAXG 
XED 
STc2 
TRA 
LDX7 
TRA 
UASCI 


TSX0 
TALL YB 
LOX6 
bAX5 
SBX6 
TZE 
LDX7 
SBX5 
S7Xx5 
XED 
STX6 
XED 
TSXx0 
LDX6 
LOXx5 
ADX5 
TSXO 
TALLY8 
LX. 0 
ADXO 
LDA 
STA 


LOx0 
ASXO 
TSX0 
ZERO 
SBX6 
YZE 
ADX5 
TSX0 
TALLYB 
TRA 
UASC] 


TSX0 


SPACE,2 
015 
MODF1 
PRINT 
PROCT,6 
ASSTACK, 1D 
TSSOVF 
0,0 

UNL 

1,5 
MODEL 
2,PROC( 


PRINT 
STRT,8& 
71,7 

1,7 

1,DuU 
SERROR 

0,5 

TEMODE 
ASSTACK,ID 
TSSOVF 
ASSYACK, 1D 
TESOVF 
MODE 
ASSTACK,DI 
ASSTACK,DI 
TSMODE 
PRINT 
SPACE,2 
Q:5 

TESTAB 

0.0 

STRo 


TEI TAB 
STfRo 
PRINT 


1, DU 

UNS 

1,Du 
PRINT 
COMMA,3 
STR 
2,9TRUCT( 


PRINT 
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GET POINTER TO RESULT MODE 
AND PRINT IT 
PRINT *PROCC! 


GET POINTER TO NEXT WORD IN CONTROL STACK 
CHECK FOR STACK OVERFLOW 

SAVE RETURN 

AND GO PRINT OUT PARAMETER MODES 

GET MODE OF RESULT 

ANU PRINT JT 


PRINT 'STRUCTC! 

GET NUMBER OF FLELDS PLUS ONE IN XR © 6 
GET POINTER TO FIRST FIELD IN XR ~ 5 
GET NUMBER OF FIELDS IN XR & 6 

ERROR - MUST BE AT LEAST ONE FIELD 
GET MODE OF FIRST FIELD IN XR ~ 7 
MAKE POINTER RELATIVE 

SAVE FIELD POINTER 

CHECK FOR STACK OVERFLOW 

SAVE NUMBER OF REMAINING FIELDS 
CHECK FOR STACK QVERFLOW 

PRINT MODE OF FIELD 

RESTORE NUMBER OF REMAINING FIELDS 
RESTORE FIELD POINTER 

MAKE POINTER ABSOLUTE 

PRINT aA SPACE 


GET TAG IN XR + 0 

MAKE Ta@ POINTER aBSOLUTE 
GE™ TALLY WORD FOR TAG IN A 
AND STORE FOR PRINT ROUTINE 


GET BASE OF J[DENTIFIER TABLE IN XR ~ 9 
AND MAKE TALLY WORD ARSOLUTE 
PRINT TAG 


DECREMENY NUMBER OF REMAINING FIELDS 
TRANSFER {IF NONE LEFT - GO PRINT ')? 
MAKE XR » 5 POINT TO NEXT FIELD 
PRINT t, # 


AND .,008 


PRINT 'UNTON(! 


04957 


END 


U1 C65"26~-72 17,363 
Pp 

005427 005457 0007 40 
005459 777777 2260 17 
005431 000001 6250 147 
005432 090001 1660 O¢ 
005433 777777 6000 oO 
005434 0090000 2270 tb 
005455 035216 1650 00 
005436 035235 7450 56 
005437 005742 7470 oO 

END OF BINARY CARD Q000UQ92 
005440 035235 7460 56 
005441 005742 7470 Ou 
005442 005211 7000 00 
005443 035235 2260 54 
005444 035235 2250 54 
005445 035216 90650 09 
005446 000001 1660 O83 
005447 095454 60u0 00 
005450 00900001 9650 93 
005451 005464 7000 00 
005452 005461 Q003 40 
005453 005434 7100 O00 
005454 005464 7900 00 
005455 005463 0002 40 
005456 035235 7100 55 
005457 425116111117 
005460 116050040040 
0054614 054040040040 
005462 040040040040 
005463 051040040040 
005464 090000 2350 40 
005465 095473 7550 00 
OF BINARY CARD 0000u093 
005466 005473 2350 52 
005467 005471 6070 00 
005470 000001 7400 40 
005471 006607 7550 52 
005472 005466 7400 00 
005473 090000 000000 
005474 006603 7400 00 
005475 006610 2350 60 
005476 006607 7550 Ooo 
005477 095211 7000 00 
005500 006571 7100 00 
005501 0090001 2210 OS 
005502 005532 7410 00 
005503 006610 2350 00 
005504 096607 7550 oV 
005505 005532 2350 00 
005506 090006 2209 038 


ALGOL68 


1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 


1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 


14214 
1422 
1423 
1424 
1425 


1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 


PASSO 


UNL 
UN2 


UNS 


UNT 
COMMA 
SPACE 


RPAR 
PRINT 


PRI4 


PRI2 


PRIT 
PMODE 


PMTBL 
PA 


TALLYB 
LDX6 
EAXS 
SBX6 
TZE 
LDX7 
SBX5 
STX5 
XED 


STX6 
XED 
1SX0 
LDX6 
LDX5 
ADX5 
SBX6 
TZE 
ADX5 
TSXO 
TALLYB 
TRA 
TSXO 
TALLYB 
TRA 
UASC] 


UYASC] 
Yasc} 
UASC] 
LDA 
STA 


LDA 
TTF 
TRA 
STA 
TRA 
ZERO 
STX0 
LDA 
STA 
TSX0 
TRA 
LDX4 
STX4 
LDA 
STA 
LDA 
LDXO 


UNT,7 

71,7 

1,7 

1,Du 
SERROR 

0,> 

TSMODE 
ASSTFACK, 1D 
TESOVF 


ASSTACK, ID 
TSSOVE 
MODE 
ASSTACK,DI 
ASSTACK,DI 
TSMODE 
1,0uU 

UN3 

1,0u 

PRINT 
COMMA,3 
UN2 

PRINT 
RPAR,2 
ASSTACK,DIC 
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GET NUMSER OF MODES IN UNION PLUS ONE 
GET POINTER TO FIRST MODE IN XR & 5 
GET NUMBER OF MODES IN XR = 6 

ERROR = MUST BE AT LEAST ONE MODE 

GET NEXT MODE IN XR = 7 

MAKE POINTER RELATIVE 

SAVE MODE POINTER 

CHECK FOR STACK OVERFLOW 


SAVE NUMBER OF REMAINING MODES 
CHECK FOR STACK QVERFLOW 

PRINT OUY MODE 

RESTORE NUMBER fF REMAINING MODES 
RESTORE MODE POINTER 

MAKE POINTER ABSOLUTE 

DECREMENT NUMBER OF REMAINING MODES 
TRANSFER {F NO MORE MODES TO PRINT 
STEP MOME POINTER TO NEXT MODE 
PRINT ty, ! 


AND GO PRINT NEXT MODE 
PRINT tye 


AND RETURN TO CALLER 


2,UNTONE 


PRIT,SC 
PRI2 

1,0 
13XX2,S€ 
PRI 


LSXRET 
LEXXT 
1EXX2 
MODE 
LSXXL3 
1,DU 

7 
LEXxXT 
LEXX2 
T 


6,DU 


GET TALLY WORD OF STRING 
AND STORE IN PRINT TALLY WORD 


GET NEXT CHARACTER OF STRING 

TRANSFER IF THERE IS ANOTHER CHARACTER 
RETURN TO CALLER 

STORE CHARACTER IN OUTPUT BUFFER 

AND L,00P 


SAVE RETURN 

GET INITIAL PRINT ROUTINE TALLY WORD 

AND INITIALIZE OUTPUT TALLY WORD 
ASSEMBLE MODE IN OUTPUT BUFFER 

AND PRINT IT 

GET RELATIVE POINTER TO FIRST ENTRY IN MODE TABLE 
STORE POINTER TO NEXT MODE TO BE PRINTED 
GET INITIAL OUTPUT TALLY WORD IN A 

AND INITIALIZE WORKING TALLY WORD 

GET NUMBER OF MODE IN AU 

GET NUMBER OF OCTAL DIGITS TO CONVERT 


Liv5/ 


END 


END 


U1 U5 20872 17,868 
p 

UN55U7 OUgNdNS 2360 07 
005519 Uugnons 77/79 OV 
005511 096607 756n §e 
005512 Uon0001 14600 OS 
005513 0095597 6010 Og 
OF BINARY CARD 00000094 
005514 vUagn04o 2350 07 
605515 096697 7550 52 
005516 095532 227 O00 
005517 0095211 7000 Ou 
005529 0906603 7500 OO 
005521 096574 7100 no 
005522 095532 2210 00 
005523 035216 610 OO 
005524 777777 9610 £1 
005525 090000 2340 11 
005526 095653 6000 O00 
005527 000001 0610 OS 
005539 035216 1610 09 
005534 095502 7400 Ou 
005532 0090000 On00U0 
005533 095554 7400 00 
005534 095562 7410 60 
005535 035222 2210 00 
005536 0090001 6220 $1 
005557 0090000 2220 2 
005540 0095554 6040 00 
005544 095562 1920 OD 
OF BINARY CARD 90000095 
0u5542 095552 6010 00 
005543 090000 2350 41 
005544 0095559 7550 oOo 
005545 035223 2200 00 
005546 095559 0400 QO 
005547 005464 7000 00 
005550 vo0000 goon 49 
005551 Qot0d00 7100 OO 
005552 035220 0620 00 
005553 0095537 7100 00 
005554 od90002 9610 03 
005555 090000 2340 141 
005556 095536 6010 09 
005557 005464 7900 09 
005560 005563 0003 40 
005561 0095551 7400 90 
005562 0090000 000000 
005563 056956040040 
005564 035224 2350 09 
005565 000001 0750 07 
005566 777777 3750 07 


A-GOL58 
p 


1443 
1444 
1445 
1446 
1447 


1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 


14706 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1484 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 


A3SQ 


Pe 


DeF3 
DeF Xx 
DEF 4 


DEFS 


DEFT 
DEFE 
PCTBL 


LOW 
LLR 
STQ 
SBXO 
TNZ 


LDA 
STA 
LDX7 
TSX0 
STC2 
TRA 
LDX1 
ADX1 
ADX4 
SZN 
TZE 
ADX1 
SBX4 
TRA 
ZERO 
STX0 
STX4 
LDX4 
EAX2 
LDX2 
TMI 
CMPXa 


TNZ 
LDA 
STA 
LDX0 
ASXO 
YSXo 
TALL YB 
TRA 
ADX2 
TRA 
ADX4 
SZN 
INZ 
TSXo0 
TALL YB 
TRA 
ZERO 
UASC] 
LDA 
ADA 
ANA 


6,UL 

3 
L#XXK2,SC 
1,00 

P2 


=0040,DL 
1L#XX2,S€ 
T 

MODE 
LEXRET 
LEXXLS 

T 


TEMODE 
Lat 
Vel 
STOP 
1,DuU 
TSMODE 
P¢ 


DEF x 
DEFT 
TSSTAB 
ASDF ad 
Q,2 
DEFS5 
DEFT 


DEF 4 
ASSC)1 
DEF3 
TSI TAB 
DEF3 
PRINT 
+ 

ee 
TSDEF 
DEFo 
ASELEN, BU 
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GET ASCII. DIGIT ZERO SHIFTED RIGHT 

GET NEXT ASCII DIGIT IN QL 

STORE DIGIT IN OUTPUT BUFFER 

DECREMENT NUMBER OF DIGITS LEFT TO CONVERT 
TRANSFER IF THERE aRt MORE DIGITS TO CONVERT 


GET AN ASCIT SPACE 

STORE A SPACE IN THE DUTPUT BUFFER 

GET POINTER TO MODE TaBlLe ENTRY TO RE PRINTED 
GO PRINT tT 

SAVE REFYRN 

PRINT LINE 

GET POINTER TO MODE JUST PRINTEN 

MAKE POINTER aBSOLUTE 

STEP TO NEXT ENTRY IN MODE TABLE 

SEE JF THERE ARE ANY MORE ENTRIES IN TABLE 
NO MORE = HALT PROGRAM 

STEP OVER LINK WORD IN TABLE 

MAKE MODE TABLE POINTER RELATIVE 

AND GO PRINT NEXT MODE 


SAVE RETURN 

SAVE POINTER TO DEF TABLE ENTRY 

GET POJNTER TO START OF SYMBOL TABLE 

GET POINTER TO DEFINITION CHAIN IN xR = 2 
GET POINTER TO NEXT DEFINITION IN CHAIN 
TRANSFER fF THERE ARE NO MORE 

SEE JF ff JIS THE ENTRY WE ARE LOOKING FOR 


TRANSFER IF NOT - KEEP LOOKING 

GET FALLY WORD TO SYMBOL 

AND STORE FOR PRINTING 

GET POINTER TO RASE OF IDENTIFIER TABLE 
AND MAKE FALLY WORD ABSOLUTE 

PRINT OUT SYMBOL 


AND RETURN 

MAKE DEF TABLE ENTRY POINTER ABSOLUTE 

AND GO CONTINUE DOWN DEFINITION CHAIN 

STEP TO NEXT ENTRY IN SYMBOL TABLE 

SEE JF AT THE END OF THE FABLE 

TRANSFER IF NOT aT END AND CONTINUE LOOKING 
PRINT OUT ERROR SYMBOL 


AND EXIT 
GET DESCRIPTOR TO CODE TABLE 


ADJUST TALLY RUN OUT 
GET LENGYH OF CODE TARLE IN AL 


04557 


END 


END 


P 
005567 09n006 
OF BINARY CARD 
005570 005652 
U05574 095652 
005572 005574 
005573 Up5653 
005574 035224 
005575 0gn000 
005576 016476 
005577 777777 
005600 017037 
005601 777777 
005602 096610 
005603 006607 
005604 090000 
005605 096607 
005606 006607 
005607 090001 
005610 0096607 
095611 090002 
005612 096607 
005613 090000 
005614 090004 
005615 777777 


OF BINARY CARD 


005616 095616 
09056147 005625 
005629 095635 
005621 005640 
005622 006603 
005623 006571 
005624 005571 
005625 090000 
005626 000006 
005627 000006 
0056590 090003 
005634 096607 
005632 090001 
005633 0905627 
005634 095622 
005635 090000 
005636 0095211 
005657 095622 
005649 090090 
005641 095645 
005642 095533 
005643 005464 
OF BINARY CARD 
005644 095462 
005645 0909000 


17,863 


7350 00 
000009096 
7590 00 
6210 56 
6070 OQ 
7100 OO 
0610 Og 
2350 11 
1150 QOS 
6040 00 
1150 O¢ 
6050 09 
2360 Og 
7560 OU 
2360 97 
7560 52 
7560 $2 
2360 O14 
7560 56 
2360 O14 
7560 56 
7200 O41 
1000 053 
60350 00 
00000097 
7400 $0 
7400 QO 
7100 00 
7400 90 
7500 O90 
7100 O00 
7400 00 
6360 Q5 
2220 05 
2350 Q7 
7370 OO 
7550 52 
1620 93 
6010 00 
7400 90 
6270 95 
7000 00 
7400 00 
6210 95 
7410 00 
7000 99 
7000 OO 
00000098 
0004 40 
2219 O68 


ALGOL68 


PASSO 
1491 


1492 
1493 PCTL 
1494 
1495 
1496 PCT, 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
15909 
1510 
1514 
1512 
1513 


1514 
1515 
1516 
1517 
15148 PCYE 
1519 
1520 
1324 OcrT 
1522 
1523 OCT, 
1524 
1525 
1526 
1527 
1528 
1529 CMOD 
1530 
15314 
1532 CUEF 
1533 
1334 
1535 


1536 


1537 CUEF4 


CMPA 
TPL 
LDQ 
STQ 
LDQ 
STO 
STO 
LDQ 
sTQ 
LDQ 
STO 
LxLo 
CMPXO 
TRC 


TRA 
TRA 
TRA 
TRA 
STC2 
TRA 
TRA 
EAQ 
|. DXx2 
LDA 
LLS 
STA 
SBX2 
TNZ 
TRA 
EAX?7 
TSX0 
TRA 
EAX4 
STX4 
TSXO 
TSXO 


TALLYB 
LBX4 


6 


CODEP 
CODEP,ID 
PCT4 

STOP 
TSCODE 
Ori 
OSOFBL,DU 
$ERROR 


OSOTBLE,DU 


$ERROR 
LEXXT 
1LEXxK2 
0,D0L 
13XX2,SC 
1EXxX2,SE 
1,AU 
1SXx2, 10 
2,AU 
1EXX2, 1B 
Q,AU 
4,Du 
SERROR 


#,0 
OCT 
CMON 
CDEF 
ISXRET 
LTSXXxL3 
PCTL 
Q,AL 
6,Du 
6,DL 


3 
1$XxX2,8C 
1,0U 
OCT, 
PCTE 
QO, AL 
MODE 
PCTE 
0, AL 
CDEFL 
DEF 
PRINT 


SPACE, 4 
#e#,DU 
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GET IN TALLY FIELD 


AND STORE 

GET RELATIVE POINTER TO NEXT CODE WORD 
TRANSFER IF NOT AT END OF TABLE 

ALL DONE ~ HALT 

MAKE CODE TABLE POINTER ABSOLUTE 

GET CODE wORD IN A REGISTER 

SEE [F CONE [S BEFORE TABLE 

COMPILER ERROR - COpE IS ILLEGAL 

SEE IF BEYQND END OF TABLE 

COMPILER ERROR ~- CODE JS {fLLEGAL 

GET INITIAL TALLY WORD FOR PRINT ROUTINE 
AND INIFIALIZE PRINT ROUTINE 

GET a NULL CHARACTER IN QL 

ADD NULLS YO FILL OUT WORD 

ADD NULLS TO FILL OUT WORD 

GET FIRST WORD OF ASCII 

AND STORE IN PRINY BUFFER 

GET SECOND WORD OF ASCII 

AND STORE JN PRINT BUFFER 

GET TYPE OF ARGUMENT FOR CODE IN XR ~ Qg 
SEE IF FYPE [S IN RANGE 

NO = COMPILER ERROR 


GO TO APPROPRIATE PRINT ROUTINE 
OCTAL ARGUMENT 

MODE ARGUMENT 

SYMBOL ARGUMENT 

SAVE RETURN 

AND PRINT BUFFER 

AND LOOR ® 

GET NUMBER TO CONVERT IN QU 
CONVERT 6 DIGITS 

GET ASCI! ZERO SHIFTED RIGHT 3 PLACES 
GET DIGIT IN AL 

STORE DIGIT IN OUTPUT BUFFER 
DECREMENT NUMBER OF DIGITS LEFT To CONVERT 
TRANSFER IF MORE DIGITS TO CONVERT 
AND EXI¥ 

GET MODE IN XR = 7 

AND PRINT j7 

AND EX] 

GET DEF TABLE POINTER IN XR ~ 1 
AND SAVE 

PRINT SYMBOL 

PRINT A SPACE 


GET DEF TABLE POINTER IN XR - 1 


£1957 


END 


U1 05-26-72 17,865 


U05646 
005647 
005650 
005651 
005652 
005693 
005654 
005655 
005656 
005657 
0905669 
005661 
005662 


005663 
005664 
005665 
005666 
005667 
005670 
005674 


i) 


U35220 0619 AY 
gnnoo2 2270 11 
Co52t1 7000 OO 
095622 7409 oO 
000000 oo000UuN 
009221 5540 51 
000220 7550 $1 
002623 7000 O09 
005660 0014 40 
u02270 7100 00 
015012012122 
4051011041351 
045012012012 


006010 7550 oo 
006031 7550 oo 
Q00000 7220 411 
006031 0620 00 
0000014 0620 903 
009000 4420 41 
000000 0620 41 


OF BINARY CARD 000008999 


005672 
005673 
005674 
005675 
005676 
005677 
005700 
005704 
005702 
005703 
005704 
005705 
005706 
005707 
605710 
005711 


000001 1620 $1 
005731 6040 00 
000145 9620 03 
005677 7420 00 
035233 2250 00 
000000 6240 43 
005701 5500 00 
000000 2360 03 
009011 7360 00 
000000 6250 02 
005705 7450 a0 
000000 1040 08 
005713 6020 00 
000001 6250 44 
500006 Oni0 OO 
000000 6250 $5 


AUGNL68 


1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 


4549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
15614 
1562 
1563 
1564 
1565 
1566 
1567 
1568 


1569 
1570 
1574 
1372 
1573 
4574 
1575 
1376 
1377 
1578 
1579 
1580 
15861 
4582 
1588 
1584 


PADSO 


CUDEP 
STOP 


STOPM 


e*eee we © ee & & 


ALOC 


ASNC 
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ADX1 TSDFF MAKE POINTER ABSOLUTE 

LDX7 Za1 GET MODE OF DEFINITION IN XR = 7 

TSXO MODF AND PRINT IT 

TRA PCTE AND EXIT 

ZERO 

STC4 1S1Cy! SAVE {C 

SREG »SREG,] SAVE REGISTERS 

TSXO $TTB BUFFER OUTPUT MESSAGE 

TALLYB STOPM,1i4+¢1 

TRA 1SEXIT AND DISCONTINUE PROCESS 

oct 015012012122 ,105101104131 1045012012012 

THE TABLE ALLOCATION ROUTINE ALLOCATES DYNAMIC SPACE 

FOR THE SEVERAL TABLES REQUIRED DURING COMPILATION, 

THE CALLING SEQUENCE IS A TSXO WITH THE A REGISTER 

CONTAINING THE LENGTH,DU OF THE NEW TABLE ENTRY 

REQUESTED AND XR # 1 CONTAINING A POINTER TO THE 

TABLE CONTROL WORD OF THE APPROPRIATE TABLE, THE 

SOUBROUTINE RETURNS JIN XR e& 4 A POINTER TO THE 

NEWLY CREATED TABLE =NTRY, THE FORMAT OF A TABLE 

CONTROL WORD 1S UPPER HALF IS ABSOLUTE LOCATION 

AND LOWER HaLF IS THE CURRENT LENGTH OF THE TABLE, 

HEAD T 

SREG REG SAVE REGISTERS 

STA TEMP SAVE LENGTH REQUESTED 

LXL2 Ort GET CURRENT LENGTH OF TABLE 

ADX2 TEMP ADD REQUESTED LENGTH TO GET NEW LENGTH 
ADX2 1,DuU ADD ONE FOR LINK/LENGTH WORD 

$XL2 0,1 SAVE NEW LENGTH OF TABLE 

ADX2 O,1 ADD CURRENT LOCATION OF TABLE 

SBX2 1.1 SUBTRACT LOCATION OF ADJACIENTF TABLE 
TM] Al,0C4 TRANSFER {fF NO TABLE MOVING HAS TO RE DONE 
ADX2 14100,DU ADD ONE PLUS EXTRA SPACE TO BE ALLOCATED 
STX2 AING SAVE ADDITIONAL LENGTH NEEDED 

LDX3 TSEND GET ADDRESS OF END OF TaBLES 

EAX4 +H 53 GET ADDRESS OF NEW END OF TABLE IN XR © 4 
SBAR et STORE CYRRENT LENGTH OF CORE 

LDQ aa, DU AND PUT ITF IN Q 

QLS 9 GET LENGTH IN Qu 

EAX5 0, Qu PUT IN XR » 5 FOR HALFWORD OPERATION 
STX5 at AND STORE FOR COMPARE 

CMPX4 #e,DU JS THERE ENOUGH CORE 

TNC ALOc4 TRANSFER JF OK 

EAX5 1.4 GET LENGTH OF CORE NEEDED IN XR = 5 
MME MSMREQ AND TRY TO GET MORE CORE 


EAX5 0,5 DID WE GET IT 


C1557 U4 
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17,8638 ALGOL68 
T PASSO 
005712 777777 6010 00 1585 INZ $SERROR NO » ERROR 
005713 000001 1040 11 1586 ALOCL CMPX4 1,1 JS THERE ANY MORE TO MOVE 
005714 005722 6000 00 1587 TZE ALOc2 TRANSFER IF DONE MOVING 
005715 0090000 2360 43 1588 LDQ 0,3 FETCH FROM OLD TABLE LOCATION 
005716 000000 7560 44 1589 STQ 0.4 STORE IN NEW TABLE LOCATION 
005717 000001 1650 03 1590 SBX3 1, DU DECREMENT SOURCE POINTER 
END OF BINARY CARD QoooduL00 
005720 090001 1640 93 1594 SBX4 1,DuU DECREMENT DESTINATION POINTER 
005721 005713 7100 00 1592 TRA ALOCL AND FRY ¥O MOVE SOME MORE 
005722 005677 2250 00 1593 ALOC2 {LDX3 AING GET DISPLACEMENT IN XR - 3 
005723 000001 6240 11 1594 EAX4 1,1 GET POINTER TO CONTROL WORD OF FIRST MOVED TARLE 
005724 upn0n0 04350 44 1595 ALOcS aSx3 0,4 MODIFY DESCRIPTOR TO POINT TO NEW TABLE LOCATION 
008725 000001 0640 OS 1596 ADX4 1,DU STEP TO NEXT DESCRIPTOR 
005726 035233 1040 93 1597 CMPX4 TEND, DU ARE WE BONE JNCREMENTING DESCRIPTORS 
005727 005724 6040 00 1598 TM] ALOC3 TRANSFER IF MORE TO DO 
005739 005724 6090 OV 4599 TZE AL OCS TRANSFER {IF MORE TO DO 
005734 Oon000 7220 11 1600 ALOC4 LXL2 Ol GET LENGTH OF TABLE 
005752 00900000 9620 4&1 1601 ADX2 0,1 ADD CURRENT LOCATION 
005733 d00000 4500 42 16u2 STZ 0:2 ZERO OUT LINK WORD OF FOLLOWING ENTRY 
005734 006031 1620 00 1$03 $BX2 TEMP SUBTRACT LENGTH OF NEW ELEMENT FOR ITS LocaTION 
005735 777777 7550 12 1604 STA 4142 STORE LENGTH OF NEW ENTRY IN PRECEENING WORD 
005736 096010 4420 00 1605 SXi.2 REG PUT LOCATION OF NEW ELEMENT IN XR w ¢ 
0057357 0060140 0750 O00 16048 LREG REG RESTORE REGISTERS 
005749 000000 7100 £0 1607 TRA 0,0 AND RETURN 
005741 009000011007 
005742 1608 EVEN 
005742 Go0001 6070 94 1609 SOVF TTF 1,Ic CONTINUE IF THERE {1S NO STACK OVERFLOW 
005743 005744 7470 O09 1610 XED el CONTINUE XED CHAIN 
005744 006030 5540 40 1611 STC1 OVFIC SAVE RETURN ADDRESS 
005745 005746 7400 O00 1612 TRA #41 AND BREAK XED 
END OF BINARY CARD 00000101 
005746 096020 7530 40 1413 SREG OVFR SAVE REGISTERS 
005747 000100 2350 97 1614 LDA £0100,DL GET a ONE IN THE FALLY FIELD 
005750 035235 0550 09 1645 ASA ASSTACK AND ANTICIPATE INCREASE IN STACK LENGTH 
005751 035215 2210 03 1616 LBX4 TSSTACK.DU GET POINTER TO CONTROL STACK CONTROL WORD 
005752 005765 7100 OU 1647 TRA OVF AND INCREASE LENGTH OF CONTROL STack 
005753 000000011007 
005754 1618 EVEN 
005754 000001 6070 04 1619 WOVE TTF 1,I¢c CONTINUE IF THERE IS NO STACK OVERFLOW 
005755 005756 7170 00 1620 XED eo. CONTINUE XED CHAIN 
005756 006030 5540 00 1621 STC4 OVFIC SAVE RETURN ADDRESS 
005757 005760 7100 90 1622 TRA #et AND BREAK XED 
005760 006020 7550 00 1623 SREG OVFR SAVE REGISTERS 
005761 000100 2350 907 1624 LDA #0100,DL GET A ONE JN THE TALLY FIELD 
005762 035234 9550 00 1625 ASA ASWORK AND ANTICIPATE INCREASE IN STACK LENGTH 
005763 035214 2210 03 1626 LDOX1 TEWORK, DU GET POINTER TO WORKING STACK CONTROL WORD 
005764 005765 7400 O00 1627 TRA OVF AND INCREASE LENGTH OF WORKING STack 
005765 035214 3200 O00 1628 OVF LCXO TSWORK GET MINUS BASE OF WORKING STACK 
005766 035234 Y4U0 00 1629 ASXO ASWORK AND MAKE WORKING STACK POINTER RELATIVE 
005767 035215 3200 00 1630 LCX0 TESTACK GET MINUS BASE OF CONTROL STACK 
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T PASSO 
VOE779 U35235 0400 Ou 1631 ASXO ASSTACK AND MAKE CONTROL STACK POINTER RELATIVE 
UO5771 U90000 6359 OU 1632 EAA 0 GET NUMBER OF WORDS TO REQUEST (-1) 
005772 0905663 7009 OO 1433 TSXO TSALOC AND ALLOCATE ONE LINK WORD 
005773 035214 2200 O09 1634 LDXo TSWORK GET BASE OF WORKING STACK 
END UF BINARY CARD 000001402 
005774 035234 0400 Oo 16355 ASXO AFWORK AND MAKE WORKING STACK POENTER ABSOLUTE 
005775 035215 2200 oo 1636 LDXO TSSTACK GET BASE OF CONTROL STACK 
005776 035235 0400 00 1637 ASXO ASSTACK AND MAKE CONTROL STACK POINTER ABSOLUTE 
005777 00906020 07350 00 1438 LREG OVFR RESTORE REGISTERS 
006000 096030 6300 00 1639 RET OVF IC AND RETURN 
006001 000007710004 
006u10 1640 EIGHT 
Oo6d010 vonagnannngodg 1644 REG OCT 0+0,0+0+0700,0 


006011 Odn00000000000 
006042 000000000000 
006013 dn000000000U 
006014 dp000000000y 
006015 vunpoonongAUDY 
006016 dgndo0on00N00 
006017 donooo0000NU 
006020 d90000008000 1642 OVFR OCT 010+010+07090,0 
006021 Odg000000000N 
006022 d000ND0000000 
006023 000000000000 
006024 Og000000000N 
006025 00000000000u 
006026 00N000000000 
END OF BINARY CARD Q0000103 
006027 Op000000000N 


006050 000000 gou000 14643 OVFIC ZERO 
006054 090000 OouoDd 1644 TeMP ZERO 
1645 HEAD A 
006052 009000 O0UN00 1646 INIT ZERO PAUSE FOR PATCHES 
006033 000093 6360 ov 1647 EAQ 3 FILE REFERENCE NUMBER 
006054 090000 2350 97 1648 LDA 0,DL DESIRED POINTER SETTING 
006035 093767 7nQ0 00 1649 TSXQ $SETP AND RESET POINTER IN SOURCE FILE 
006056 001677 45090 O0 1650 STZ EOF RESEF END OF FILE FLAG 
006057 001674 2350 Ov 1651 LDA IN] GET INIFLIAL INPUT TALLY 
006040 001675 7550 09 1652 STA IN AND INIFIALIZE INPUT ROUTINE 
006041 039407 6350 00 1653 EAA LEPROG+4 GET POINTER TO !#PROG! SYNTAX 
006042 006207 7100 00 1654 TRA OKs4 AND START 
006943 1655 BSS 100 PATCH SPACE 
1656 # THE FOLLOWING ROUTINE EVALUATES THE SYNTAX OF PaSS I AND PaSS IT] 
1657 « 
1658 # 
1659 HEAD A 
1660 CRSM OFF 
006207 006411 7550 O09 1664 STA Ss SAVE POINTER TO CURRENT ALTERNATIVE IN S 
006210 006411 2350 56 1662 OK LDA S,1pD GET NEX¥ THING TO MATCH IN ALTERNATIVE 


006211 006367 6040 00 1663 TM] TRACE IF MINUS » TRANSFER TO ACTION 


0155? 


END 


04 U5-26e72 17,863 
A 

006212 006411 2360 00 
006213 035235 7560 56 
096214 005742 7170 Og 
006215 006297 7400 Oy 
006216 006411 2350 00 
006217 777700 3150 07 
OF BINARY CARD 00000104 
O06220 006233 6010 OD 
006221 777776 2350 O41 
On6222 006207 7100 00 
006223 035235 2350 54 
006224 00906411 7550 09 
006225 006216 7109 O09 
006226 035235 2350 54 
006227 006411 7550 Og 
0906230 096207 7400 90 
006251 Onn000 2350 95 
006232 006562 7900 00 
006233 006257 2350 Og 
006234 096562 7000 O90 
006235 0096436 2200 00 
006236 035222 0600 90 
006257 O0N000 2350 £9 
006240 06554 7000 40 
006241 006267 2350 a9 
006242 006562 7000 00 
006243 000024 3350 97 
006244 006256 7550 00 
006245 0095164 7900 OO 
OF BINARY CARD 000001405 
006246 0096255 7400 00 
006247 0092152 45090 00 
006250 035222 0670 900 
006251 00000 2350 &7 
006252 096554 7900 00 
006253 006256 0540 OO 
006254 006245 6940 ag 
006255 095653 7400 40 
006256 00000 on0000 
006257 0096260 0035 49 
006260 101116040101 
006264 1093103105120 
006262 124101102114 
006263 105040116105 
006264 130124040123 
006265 1314115102117 
006266 114040111128 
006267 096270 0021 40 
006270 116105150124 
006271 0401231351115 


ALGNIL 68 


1664 
1665 
1666 
1667 
1668 
1569 


1670 
16714 
1472 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1694 


1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 


1703 
1704 


PASSO 


NOMAT 


FAIL 


END 


ERR 


ERRS 


ERRF 


ERRY 


ERR2 
ERRC 
ERRS1 


ERRS2 


LDQ 
STQ 
XED 
TRA 
LDA 
CANA 


TNZ 
LDA 
TRA 
LDA 
STA 
TRA 
LDA 
STA 
TRA 
DA 
TSX0 
LDA 
TSXo 
LDX0 
ADXO 
LDA 
TSxo0 
LDA 
TSX0 
LCA 
STA 
TSXO 


TRA 
STZ 
ADX7 
LDA 
TSXO0 
AOS 
TM] 
TRA 
ZERO 
TALLYB 
UASC] 


TALLYB 
UASC] 


S 

STACK, ID 
TSSOVE 

OK=4 

) 
20777700,DL 


ERRS 

wy AU 

OK oq 
STACK,D! 
S 


NOMaT 
STacK,D! 
S 


QK eq 
0eAL 
LEXXX 
ERRS1 
LEXxXX 
MATT 
TESTARB 
SC.n 
18XxS 
ERRS?2 
LEXXX 
20,0L 
ERRE 
ASPEEK 


ERR? 


ADPEEKF 
TSSTAB 


ERRq 
PSSTOP 


@o1, 2844 
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GET CURRENT PLACE IN ALTERNATIVE 
SAVE IN STACK 

CHECK FOR STACK OVERFLOW 

AND CONTINUE 

GET PLACE IN ALTERNATIVE OF FAILURE 
SEE JF AY BEGINNING OF ALTERNATIVE 


SYNTACTIC ERROR » GO PRINT ERROR MESSAGE 
GET POJNYTER TO NEXT ALTERNATIVE 

AND TRY NEXT ALTERNATIVE 

REPORT FAILURE TO NEXT HIGHER LEVEL 

SAVE PLACE OF REPORTED FAILURE 

AND TRY at HIGHER LEVEL 

GET PLACE IN HIGHER LEVEL TO REPORT SUCCESS 
SAVE AS CURRENT LOCATION IN SYNTAX 

AND CONTINWE 

GET PARAMETER FOR ERROR ROUTINE 

PRIN ERROR MESSAGE 

GET TALLY WORD OF MESSAGE 

AND PRINT {UT 

GET LAST MATCH ATTEMPTED 

MAKE POINTER ABSOLUTE 

GET STRING POINTER TO SYMBOL 

AND PRINT [T 

GET FALLY WORD OF SECONN PART OF MESSAGE 
AND PRINT JT 

GET a COUNT OF TWENTY 

AND STORE 

GET NEXY fNPUT SYMBOL 


NO MORE SO STOP 

ACCEPT SYMBOL 

MAKE SYMBOL POINTER ABSOLUTE 

GET TALLY WORD OF SYMBOL 

AND PRINT IT OUT 

DECREMENT COUNT 

AND OO TEN TIMES 

HALT AFTER PRINTING ERROR MESSAGE 


7,AN ACCEPTABLE NEXT SYMBOL IS 


el, 1604 


4,NEXT SYMBOLS ARE 


U1957 UL 05-26-72 17,863 ALGOL68 PAGE 
A PASSO 


UV06272 102117114125 
006273 047101122105 
END OF BINARY CARD 0009uU%05 
006274 006275 0041 44 1705 ERY TALLYB #44,32e4 
006275 111114114105 1706 UASCI 7,I1LLEGAL SUBSCRIPT CONSTRUCTION 
006276 1071011140409 
006277 123125102128 
006300 10312211112) 
006301 12404010311/ 
006302 116123124122 
0N6303 125103124111 4 
U06304 117116015012 1707 OCT 117116015012 


U06305 096306 0017 40 1708 ERK2 TALLYB 41,1404 
006306 111114114105 1709 UASC] S,ILLEGAL MODE 


006307 1097101114040 
006310 115117104105 


006311 015012000000 1710 OCT 0145012000000 
006312 096313 0040 4y 1711 ERS TALLYB ##1,34¢et 
006313 111114114105 1712 UASC] 7, ILLEGAL OPERATION DECLARATION 


006314 10719111404 
006315 1417120105122 
00¢316 101124111117 
006317 116040104105 
006329 103114101122 
V06324 101124111117 
END OF BINARY CARD 90000107 


006322 116015012000 17153 ocT 116015012000 
006323 0096324 9033 49 1714 ER4 TALLYB #441, 2644 
006324 1411114114109 17145 YASC] 6, ILLEGAL MOJE DECLARATION 


006325 107101114040 
006326 1415117104105 
006327 040104105108 
006330 114171122101 
006334 124111117116 


006332 045012000000 1716 OCT 015012000000 
006353 0096334 on40 409 1747 ERS TALLYB 44,3444 
006334 111114114105 1718 UASC] 7, ILLEGAL STRUCTURE DECLARATION 


006355 197101114040 
006336 1231241422129 
006337 103124125122 
006340 105040104105 
006341 103114101122 
006342 4011241411117 


006343 1160915012000 17149 OcT 116915042000 
006344 0096345 9034 409 1720 ER6 TALLYB 41,2704 
006345 1111141141052 1721 UASCI 6, ILLEGAL UNION DECLARATION 


006346 1071011140409 

006347 125116111117 
END OF BINARY CARD 00000408 

006350 116040104105 


U1,557 


ENL 


014 U5-26~-72 17,3638 ALGOL68 
A PASSO 


006351 103114101122 
096352 101124111117 


006353 116015n12000 1722 
006354 096355 gn20 4g 14723 ER? 
006355 111114114109 1724 


006356 10710111404U 
006357 1064111105114 


006369 104015012090 1725 
006364 006362 0024 49 1726 ERB 
006362 111114114105 1727 


006363 107101114040 
006364 111196040103 
006365 114101125128 


006366 1050150120900 1728 
006367 006377 2210 03 1729 TRACE 
006370 490000 6220 O4 1730 
0063714 024300 5202 41 1731 
G06372 000000 1020 41 1732 
006373 0096375 6n00 60 1733 
006374 006540 0110 OO 1734 
006375 490000 7n00 O14 1735 TRaC4 
OF BINARY CARD 90000409 
006376 096210 7100 Odo 1736 
006377 006226 o00000 1737 TRACT 
006400 006223 ono000 1738 
006404 0096417 QnQ0U00 1739 
006402 06537 000009 1740 
006403 007215 gon009 1741 
006404 Od0N0hO On0nu0 1742 
006405 000000 000000 1743 
006406 009000 onv009 1744 
006407 000000 On0009 1745 
006410 000000 oo00008 1746 
006411 0090000 Q00000 1747 § 

1748 «# 

1749 « 

1750 « 

17514 SYNTAX 

1752 SETE 

1753 

1754 

1755 

1756 

1757 SETE 

1758 

1759 SET 

1760 SETC 

1761 SETT 

1762 

1763 


OCT 
TALLYB 
UASC] 


OCT 
TALLYB 
YASC] 


OcT 
LOX4 
EAX2 
RPT 
CMPX2 
TZE 
NOP 
TSX0 


TRA 

ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 


MACRO 
SET 
JFe 
IFE 
TaLLy 
ZERO 
SET 
}NE 
SET 
SET 
SET 
St 

Si 


PAGE 


1160915912000 
eL,1544 
S,iILLEGAL FIELD 


104015012000 
#o1,19e1 
4,ILLEGAL IF CLAUSE 


105015012000 

TRACT, DU GET POINTER TO INHIBIT TRACE TABLE 
131072,AU GET ADDRESS OF NEXT ACTION IN xR ~ 9 
10,1,TZE SEE [F ACTION IS IN TABLE 

0,1 COMPARE NEXT ACTION WITH TABLE 

TRACL TRANSFER IF ACTYON IS IN TABLE 

L3XY¥Z PRINT OUT TRACE 

134072,auU AND TRANSFER TO aCTION 


ASOK CONTINUE TO ANALYZE SYNTAX 
END 

FAIL 

MATCH 

LSEMPTY 

ASIDENT 


SETE4 
SETE,0,25 
M#it,tt,3 
etent 

ASFAIL #4131072 
1 

(4#49,°1,49 


49 
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A PASSU 
1764 Si (#3) 
1765 Si (#4) 
1766 [FE SETT,9 
1767 JNE SET, 044 
1768 fERROR #4 
1769 'ERROR #2 
1770 1ERROR #3 
1771 'ERROR #4 
1772 TALLY #e#SETC+#3,14 
1773 SETT SET 1 
1774 $2 (#1) 
1775 $2 (#2) 
1776 $2 (#3) 
1777 $2 (#4) 
1778 ZERO ASEND*e131072 
1779 SYNTAX (€#02), 
1780 ETC (#03), 
1781 ETC (#04), 
1782 ETC (#05), 
1783 ETC (#06), 
1784 ETC (#07), 
1785 ETC (#08), 
1786 ETC (#09), 
1787 ETC (#10), 
4788 ETC (#14)5 
1789 ETC (#12), 
1790 ETC (#13), 
1794 ETC (#14), 
1792 ETC (#15), 
1793 ETC (#16), 
1794 ETC (#17), 
1795 ETC (#18), 
1796 ETC (#19), 
1797 ETC (#20), 
1798 ETC (#24), 
1799 ETC (#22), 
1900 ETC (#23), 
1804 ETC (#24), 
1802 ETC (#25), 
1803 ETC (#26), 
1804 ETC (#27), 
1805 ETC (#28), 
1806 ETC (#29), 
1807 ETc (#30) 
1808 ENDM SYNTAX 
1809 S1 MACRO 
1810 INE SETF,0,42 
1814 SETT SET 0 
1812 I DRP #4 


1813 IFe 'eit,tat 


04557 


END 


04 OSe26072 
A 

006412 Oop0000 
006413 Odn0000 
606414 ugnodo 
006415 Op9n0000 
006416 090000 
006417 000000 
006420 006436 
006421 035222 
006422 000000 
006423 096554 
OF BINARY CARD 
006424 005164 
006425 096216 
006426 096436 
006427 096216 
006430 002152 
0064351 Uonodo 
006452 635222 
006433 O0N000 
006434 u96554 


17,868 


go0000 
000000 
000000 
0800090 
dounce 


6200 
7400 
0600 
2350 
0110 


009000410 


7000 
740 
1070 
6010 
4500 
6200 
Vega 
2350 
0110 


he) 
00 
00 
10 
00 


00 
00 
00 
00 
00 
17 
00 
£0 
00 


ALGOL6 


1814 
1915 
1216 
1847 
1818 
1849 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1851 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1B42 
1848 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 


1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 


8 
PASSO 
SefT 


Set 


SETC 


SET 


32 


SETT 


SETT 


SET 


SET 


SETE 


MODE 
OP 
PRIOR 
TDENT 
DENQOT 


MATCH 


SET 
[NE 
INE 
SET 
IFE 
SET 
IFG 
SET 
[DRP 
ENDM 
MACRO 
INE 
SET 
JDRP 
IFe 
SET 
JNE 
INE 
ZERO 
SET 
1FE 
1FG 
SET 
IFL 
TALLY 
}DRP 
SET 
ENDM 
HEAD 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
HEAD 
EAXO 
STXO 
ADXO 
LDA 
NOP 


TSXO 
TRA 
CMPX7 
TNZ 
$¥Z 
EAXO 
ADXO 
LBA 
NOP 


i 

PHL, 'et,6 
SET,0.2 

0 

152,35 

SETG+1 
'#19,'180000) 
1 


S4 


SETT,0,15 
0 

#4 

tapi ial 

i 
t#19,'#',8 
SET,0,3 
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LSIN72¢RELZERSSET, #1 


0 

1,:2.4 
'#1','150000! 
#4e#RELZER 
'#1t,'180000! 
#14404 


SETE+¢¢ 
$2 
D 


A 

0, AL 
MATT 
TSSTAB 
SC, 0 


1$XxS 


PEEK 
NOMaT 
MATT 
NOMAT 
PEEKF 
0,7 
TESTAR 
SC,9 
1SXxS 


GET REQUIRED SYMBOL IN XR = g 

SAVE FOR COMPARE 

MAKE [{T aBSOLUTE 

GET TaLLY FOR SYMBOL aTTEMPTING TO MaTCH WITH 
PRINT 


PEEK AT NEXT INPUT SYMBOL 

NO MORE |NPUT SYMBOLS SO FAILURE 

SEE JF REQUIRED INPUT SYMBOL 

NO » GIVE BAD RETURN 

ACCEPT JNPUT SYMBOL 

GET POJNTER IN XR - Q 

MAKE POINTER ABSOLUTE 

GET YALLY FOR SYMBOL SUCCESSFULLY MATCHED 
AND PRINY IT OUT 


U1957 


END 


END 


UL J5=26=72 17,803 
A 
b064355 uQ96210 7100 00 
064536 vonora anunyd 
006457 606461 4509 OO 
006440 096457 7419 00 
006441 090000 2210 41 
006442 donN090 60490 £0 
006443 035229 0610 00 
006444 000000 7220 11 
006445 096460 1020 00 
006446 006451 6020 00 
006447 0090001 6000 10 
006450 006440 741u00 OD 
006451 006460 2360 00 
OF BINARY CARD Q0Q90uN411 
006452 035221 0760 09 
006453 agn0n2 2250 02 
006454 096460 7430 00 
006455 006461 0540 09 
006456 696445 7400 ov 
006457 00900000 vououn 
006460 000000 Oon0N00 
006464 O000N0 200000 
006462 006467 7400 00 
006463 096464 72yn OY 
006464 4909000 2350 O83 
006465 090000 7710 40 
006466 777777 6000 00 
006467 O900N0 7100 90 
006470 096510 7400 00 
006471 OQ000N0 2219 Q5 
006472 000000 2220 93 
006473 010690 5692 QO1 
006474 090003 7360 41 
006475 0906511 5050 12 
006476 006515 7560 60 
006477 cCon090 4110 O35 
OF BINARY CARD 0000u0%12 
0606500 090044 7370 00 
006501 000090 5750 00 
006502 490000 2350 93 
006503 756000 4350 93 
006504 096516 3750 ov 
006505 090000 5319 00 
006506 096517 0750 00 
006507 v96515 0750 OO 
006510 000090 7109 O80 
006511 90900001750u 
006512 000000014400 
006513 000000012000 
006514 090090010000 


ALGOL68 


1°63 
1864 
1°65 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
18753 
1874 
1875 


1876 
1877 
1878 
1879 
1880 
1881 
1862 
1883 
1884 
1365 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 


1898 
1899 
1900 
1904 
1902 
1905 
1904 
1905 
1906 
1907 


PASSO 


MATT 
10 
TLUQ 


TLUY 


TLUQ 


LAST 
LEVEL 
Du 
BLL 


GLLX 
BCD 


BCDX 
BCDT 


TRA 
ZERO 
STZ 
STX4 
LOX4 
TM] 
ADX14 
LX 2 
CMPX2 
TNC 
TZE 
TRA 
DQ 


ADQ 
LDX3 
STX3 
aos 
TRA 
ZERO 
ZERO 
ZERO 
STXO 
L XL 0 
LDA 
ARL, 
a4 
TRA 
STXO 
LDX4 
LDX2 
RPDB 
QLS 
BCD 
STfQ 
LDE 


LiLS 
FNO 
LDA 
UFA 
ANA 
NEG 
ADA 
ADA 
TRA 
DEC 


ASOK 


DLL 
LAST 
QO,1 
0,0 
TEDEF 
0,1 
LEVEL 
TLUA 
1,0 
TLYO 
LEVEL 


TSPROG 
2,Qu 
LEVEL 
DLL 
TLUa 


GLLX 

DLL 
#0490000,DU 
0,0 


ty 
$SERROR 
ae 
BCUX 
0,DU 
0,00 
4314 
Set 
BCDFP 
Q,Du 


36 


=04n0006,D0U 
°9825,DuU 
SUPC 


ASCZ 
BCDTP 


oa 
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YES = GIVF OK RFTURN 


INITIALYTZE DELTA LL 

SAVE LOCATION OF PRECFEDING POINTER 

GET RELATIVE POINTER TO TABLE ENTRY 

WO MORE ENTRIES »~ FAIL RETURN 

MAKE TABLE ENTRy POINTER aBSOLUTE 

GET LEVEL QF TARLE ENTRY IN xR = 2 

COMPARE WITH LEVEL CURRENTLY BEING SEARCHED 


TRANSFER fF MIGHT BE CORRECT SURROUNDING LEVEL 


TRANSFER IF ENTRY OF PROPER LEVEL FOUND 
TRANSFER YF MUST SKIP TO NEXT ENTRY 
GET LEVEL CURRENTLY BEING SEARCHED FOR 


MAKE INTO ABSOLUTE POINTER TO PROG TARLE 
GET SURROUNDING LEVEL IN XR ~- 3 

AND MAKE IY NEW SEARCH LEVEL 

INCREMENT NUMBER OF RANGES EXITED 

AND CHECK CURRENT ENTRY AGAINST NEW LEVEL 


SAVE RETURN 

GET DELTA LL IN xR © 0 

GET SIGN RIY SET IN A 

SHIFT RigHT NUMBER OF LFVELS OUT 

ERROR BECAUSE TOO DEEPLY NESTED CONSTRUCTION 
AND RETURN 

SAVE RETURN 

INITIALIZE XR =» 14 FOR REPEAT 

INITIALEZE XR = 2 FOR REPEAT 

CONVERT FOUR DIGITS 

INSERT 3 RIFTS IN @ FOR 9 BIT CHARACTERS 
CONVERT ANOTHER DIGIT 

AND SAVE ANSWER 

INITIALIZE & REGISTER 


MOVE NUMBER INTO a REGISTER AND CLEAR Q 
SEARCH FOR LEADING SIGNIFICANT DIGIT 
GET a SIGN BIF IN A 

PROPAGATE SIGN ACROSS LEADING ZEROS 

GET PROPER NUMBFR TC SUPRESS ZEROS 

MUST SUBTRACT IT FROM ZERO 

ADD 4 aScIi ZEROS 

ADD CONVERTED NUMBER 

RETURN 


80001646015120,4096 
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A PASSY 
006515 dOu00ND DOOD 1908 BLBTP ZERO 
006516 020020020020 1909 SUPC  QCT 020n20020020 
096517 06006006006uU 1910 ASCZ OCT 060n60060060 
19112 HEA!) 1 
006520 00000 On00u0 1912 IUNT ZERO 
006521 000090 On0000 1913 FMODE ZERO 
006522 O0000ND OnOnVd 1914 PLPOS ZERO 
006523 000000 on00000 1915 MK ZERO 
006524 000000 900000 1916 ETH ZERO 
006525 000000 o00000 1917 FLX ZERO 
END OF BINARY CARD 00090413 
006526 000000 oon0Uun 1918 FIX ZERO 
006527 000000 Qonnud 1919 BUXR ZERO 
006550 O00000 O000u0 1929 BARR ZERO 
006531 000000 Qou0un 1921 CLOR ZERO 
006552 000090 On00u8 1922 CumaC ZERO 
006533 000000 Oo00uUd 1923 CLNC ZERO 
006534 O0N0N0 Oo0000 1924 SEM]C ZERO 
006535 090000 Qn0000 1925 LEVEL ZERO 
0065536 uon000 Onnou0 1926 CURR ZERO 
006537 096210 7100 og 1927 EMPTY TRA ASOK DO NOTHING BUT @]VE OK RETURN 
006549 006603 7400 O90 1929 XYZ STXO KRET SAVE RETURN 
006541 006612 7570 00 1929 STAO XAQ SAVE aQ REGISTER 
006542 006640 2350 00 1930 DA XXT GET INITIALIZED OUTPUT TALLY WORD 
006543 096607 7550 og 1931 STA XX2 AND STORE 
006544 096642 2350 00 1932 LDA XaQ RESTORE a REGISTER 
006545 000014 2200 OS 1933 LDX0 12,0U GET NUMBER OF DIGITS TO CONVERT IN XR =~ 
006546 000006 2360 07 1934 XY21 DQ 6.0L GET ASCII DIGIT ZERO SHIFTED RIGHT 
006547 0090003 7770 ON 1935 LLR 3 GET NEX¥ OCTAL DIGIT IN QL 
006550 006607 7560 52 1936 STQ XX2,SC AND STORE IN OUTPUT BUFFER 
006551 000001 1609 03 1937 SBX0 1,90 DECREMENT NUMBER OF DIGITS LEFT TO CONVERT 
006552 006546 60109 O00 1938 ™NZ XY 24 TRANSFER IF MORE To DO 
006553 006571 7100 00 1939 TRA XXL3 ALL DONE SO PRINT NUMBER 
END OF BINARY CARD goQ0u414 
006554 096603 7400 00 1940 XXS STXO XREP SAVE RETURN 
006555 096612 7570 00 19414 STAQ XAQ SAVE AQ REGISTER 
006556 0096606 7550 069 1942 STA XX41 STORE SC TALLY WORD 
006557 035223 2200 00 1943 LDXO TSITAB GEY RELOCATION FOR TALLY WORD 
006560 006606 0400 00 1944 ASXO XX4 MAKE TALLY WORD ABSOLUTE 
006561 006565 7100 Ou 1945 TRA XX GO TO PRINT ROUTINE 
006562 006603 7400 90 1946 XXX STXO XRET SAVE RETURN 
006563 006612 7570 00 1947 STAQ XAQ SAVE aQ REGISTER 
006564 006606 7550 09 1948 STA XX4 STORE SC TALLY wORD 
006565 0096610 2350 0 1949 XXL LDA XXT GET INITIALIZED OUTPUT FALLY WORD 
006566 006697 7550 O09 1950 STA XX2 AND STORE 
006567 006606 2350 $2 1954 XXL2 LDA XX1,5C GET NEXT CHARACTER YO QUTPUT 
006570 006604 6070 OO 1952 TTF XXL4 TRANSFER IF THERE [S ONE 
U06571 00667 2350 OV 1953 XXL3 i, DA XX2 GET FINAL FALLY WORD 
0N6572 006614 1750 QO 1954 SBA XBUF,DU SUBTRACT INITIAL vALUE OF ADDRESS OF TALLY wORD 


006573 000002 7350 OU 4955 RS 2 MOVE CHARACTER POSITION TO Q 


bpo57 


EN 


UL U5"26472 17,363 
1 
Gue574 009020 7319 OY 
Gaes75 000010 /3/N Oy 
uuU6576 Un0190 y7d0 a7 
UN6577 UQ66NY 7510 06 
Q046uU0 092623 7n00 Oy 
0066U1 006614 0000 40 
UF BINARY CARD Qou0u115 
006602 00906612 2370 OO 
006603 ap0000 7100 Og 
006604 006607 7550 5e2 
006605 UQ6567 714uUn O00 
006606 90000 DO00UD 
006697 O90000 OnNUO00 
0066190 096614 0000 42 
606611 69000011007 
NUu6612 
006612 dg0000000U0U 
006613 0090000000000 
006614 015012000000 
NY6615 
006761 


AWGOL6 


1956 
1957 
1959 
1959 
1960 
1961 


1962 
1963 
1964 
1965 
1966 
1967 
1968 


1969 
1970 


1971 
1972 
1973 


8 


PASSO 


XXL 4 
XRET 
XKL4 
XXL 
XX2 
XXT 


XAQ 


XSUF 


ARS 
LLS 
ADA 
STCA 
TSXO 
TALLYB 


LDAQ 
TRA 
STA 
TRA 
ZERO 
ZERO 
TALLYB 


EVEN 
OcT 


OcT 
BSS 
BSS 


16 
2+6 
20100,DL 
XXL4,06 
$TTA 
XBUF.9,0 


XAQ 

tt 
XX2,SC 
XXL2 


XBUF N,2 


0,0 


015012000000 


100 
100 


P AGF 54 


CONCATENATE WITH NUMBER OF WORDS IN MFSSAGE 
GET NUMBER OF CHARACTERS IN TALLY FIELD 

ADD ONE TO TALLY COUNT 

STORE TALLY COUNT IN TALLY WORD 

CALL BUFFERED TTY QUTPUT ROUTINE 


RESTORE A AND Q@ REGISTERS 
AND RETURN 

STORE IN OUTPUT STRING 
AND LOOP 


START AFTER CR/LF 


PATCH SPACE 


Ui557 Gy 


END 


05"26-72 
1 
007125 Qo00000 
007126 GonN200 
407127 vUn62t0 
007130 490000 
097131 000009 
097152 006210 
007133 000000 
007134 006210 
007155 0965209 
097136 007142 
OF BINARY CARD 
G97137 490000 
007140 96529 
007141 On6210 
0697142 009065209 
007143 0096210 
007144 006520 
U971495 006219 
097146 096210 
007147 007676 
007150 035234 
007151 006219 
0071452 v00000 
007153 035235 
007154 095742 
007155 0606210 
007156 035235 
007157 0090000 
007160 0906210 
007161 035235 
007162 006210 
007163 035234 
007164 035214 
OF BINARY CARD 
007165 035235 
007166 005742 
007167 096210 
U07170 035234 
007171 035214 
007172 096523 
007173 0096210 
007174 O00001 
0n7175 035234 
007176 005754 
007177 006210 
G07200 035234 
007201 777777 
607202 090000 
607203 006210 


17,863 


22u0 
7400 
7100 
2200 
7400 
7100 
4500 
7100 
2200 
6000 


00000416 


2200 
7400 
7100 
7470 
7100 
2290 
6040 
6000 
7100 
Q110 
7400 
2360 
7560 
7470 
7100 
2360 
7560 
7100 
0110 
7100 
2200 
1600 


00000417 


7400 
7470 
7100 
2200 
1600 
7400 
7100 
6350 
7550 
7470 
7400 
2200 
2360 
7560 
7400 


00 


QS 
00 
00 
00 
00 
00 
a0 


00 


56 
00 
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1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 


1985 
1986 
1987 
1988 
1989 
1990 
19914 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2n00 
2001 
2002 
2003 
2004 
2005 
2006 


2707 
2008 
2009 
2610 
2014 
2012 
29135 
2014 
2015 
2916 
2017 
2918 
2019 
2020 
2net 


S1Z 


SMO 


CLEAR 


STIp8 


STID 


DEELC 


DEL 


PUSH 


Pup 


DELS 


MARK 


MKNGE 


EVOID 


SAVE 


TTLS 
LDXO 
STXO 
TRA 
.DX0 
STX0 
TRA 
STZ 
TRA 
LDXx0 
TZE 


LDx0 
STX0 
TRA 
STX7 
TRA 
LDXO 
TM] 
TZE 
TRA 
NOP 
TRA 
LDQ 
STQ 
XED 
TRA 
DQ 
STQ 
TRA 
NOP 
TRA 
LDX0 
SBX0 


STXO 
XED 
TRA 
LDXO 
SBX0 
STX0 
TRA 
EAA 
STA 
XED 
TRA 
,DXO 
DQ 
STQ 
TRA 


PASS 4 


0, DU 
OAL 
ASOK 


0, AL 
ASO, 
O,AL 
ASOK 
IDNt 
STIN 


20490000,DU 


ONT 
ASOK 
ONT 
ASOK 
IDNT 
A$OK 
ASOK 
DECL 
AGWORK, DI 
AtOK 


0, AL 
ASSTACK, ID 
TESOVE 
AtOK 
AZSTACK,DI 
0,AL 

ASOK 
ASSTACK, DI 
ABQK 
ABWORK 
TEWORK 


ASSTACK, | D 
TESOVE 
AfQK 
ASWORK 
TEWORK 

MK 

ASOK 
MEVOID 
ASWORK,ID 
TEWOVF 
AfOK 
ABWORK 
7i4an 

OAL 

AtOK 
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PASS 4 

GET A HALF WORD ZERO 

ZERO OUT NESIGNATED LOCATION 

AND EXIT 

GET A MINUS ONE 

STORE IN DESIGNATED LOCATION 

AND EXIT 

ZERO OUT WORD SPECIFIFD BY ARGUMENT 
AND EXIT 

IS THERE AN IpENTIFIER ALREApY STORED 
NO » CAN STORE IDENTIFIER 


GET A BAD JDENTIFIER 

AND STORE AS [{DENTIFIER 

AND EX]? 

STORE LAST READ JMNENTIFILER IN IDNT 
AND EXIT 

IS THERE AN [DENTIFIER STORED 

NO = BAD IDENTIFIER »* NO LABEL 

NO IDENTIFIER SO NO LABEL 

GO DECLARE IDENTIFIER AS LABEL 
DELETE TOP OF WORKING STACK 

AND EX]T 

FETCH INDICATED DATA 

AND SAVE IN CONTROL STACK 

CHECK FOR STACK OVERFLOW 

AND EXIT 

FETCH TOP OF CONTROL STACK 

AND STORE IN INDICATED LOCATION 
AND EX]T 

DELETE ONE WORD FROM THE CONTROL STACK 
AND EX]? 

GET CURRENT POSITION OF WORKING STACK POINTER 
MAKE IT RELATIVE 


AND STORE IN THE CONTROL STACK 
CHECK FOR STACK OVERFLOW 

AND EXIT 

GET CURRENT WORKING STACK POINTER 
MAKE IY RELATIVE 

AND SAVE aS MARK IN STACK 

AND EX[T 

GET A VOID MODE JIN A 

STORE IT IN THE WORKING STACK 
CHECK FOR STACK OVERFLOW 

AND EXIF 

FETCH WORKING STACK POINTER 
FETCH TOP OF WORKING STACK 

AND STORE IN DESIGNATED LOCATION 
AND EXIT 


vios/ 


END 


END 


UL U5"20-72 


1 


U072U4 035234 
0ag72Uu5 000000 
007206 035234 
007207 005754 
007210 006210 
007211 096529 
0u7212 035234 
OF BINARY CARD 
007213 005754 
007214 096210 
007215 0095164 
007216 006216 
007217 4000112 
007220 006216 
007221 92152 
Oo7222 000000 
007223 035222 
007224 o900N00 
007225 96554 
007226 006210 
007227 035234 
007250 035214 
007234 035235 
007252 000002 
007233 o90001 
007234 097303 
007235 035216 
007236 005663 
007237 035216 
007240 090000 
OF BINARY CARD 
007244 0973504 
007242 0073803 
007243 035217 
007244 005663 
0072495 090000 
007246 035217 
007247 0907305 
007250 035216 
007251 0073504 
007252 007303 
007253 gono14 
007254 090000 
007255 007305 
007256 046757 
007257 0097304 
007269 046757 
007261 0073505 
007262 035235 
007263 035214 


17,363 


2209 
2360 
7560 
7470 
7100 
2350 
7590 


00000118 


7470 
7100 
7000 
7100 
1070 
6020 
4500 
6200 
Q600 
2390 
0120 
749Nn 
2200 
1600 
1600 
6350 
7310 
7550 
2210 
7000 
1610 
6240 


00000419 


7410 
2350 
2210 
7000 
6230 
1650 
7440 
2220 
0420 
2350 
7340 
6200 
4400 
6350 
7550 
6350 
7550 
2260 
0660 


00 
o> 
56 
00 
00 
00 
56 


00 
00 
05 
00 
11 
00 
00 
00 
00 
00 
00 
05 
00 
00 
56 
00 
56 
51 
00 
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KEST 


TAG 


IDENT 


cst 


LDXO 
LDQ 
STQ 
XED 
TRA 
LDA 
STA 


XED 
TRA 
TSXO 
TRA 
CMPX7 
TNC 
$TZ 
EAXO 
ADX0 
LDA 
NOP 
TRA 
LDX0 
SBX0 
SBX0 
EAA 
ARS 
STA 
LDX4 
TSXO 
SBX1 
EAX4 


STX4 
LDA 
LDX4 
TSXo0 
EAX3 
SBX3 
STX¢ 
LOX2 
ASX2 
LDA 
ARS 
EAXO 
SXL0 
EAA 
STA 
EAA 
STA 
LDX6 
ADX6 


PASS 14 


ABWORK 
OAL 
ASWORK, ID 
TRWOVE 
AtOK 

[ONT 
ASWORK, ID 


TEWOVF 
ASOK 
ASPEEK 
ASNOMAT 
ASTABLE,DU 
ASNOMAT 
AGPFEKF 
0,7 
TESTAB 
AtSC,0 
1E8XxS 
ASOK 
AGWORK 
TEWORK 
ASSTACK,D! 
2,0 

1 

CSTaA 
TSMODE, DU 
TEALOC 
TEMODE 
Od 


CST 

CSTA 
TSBOUND, DU 
TSALOC 
Ori 
TEBOUND 
CSTg 
TSMODE 
CST 

CSTA 

12 

O,AL 

CST 
MESTRCT 
CST, 1D 
BESTRCT 
CSTR,ID 
ASSTACK, ] 
TEWORK 
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FETCH WORKING STACK POINTER 
FETCH DESIGNATED LOCATION 
AND STORE ON WORKING STACK 
CHECK FOR STACK OVERFLOW 
AND EXIT 

FETCH SAVED IDENTIFIER 
STORE ON WORKING STACK 


CHECK FOR STACK OVERFLOW 

AND EX]T 

PEEK AT NEXT INPUT SYMBOL 

NO MORE INPUT e& FAILURE 

CAN SYMBOL BE AN IDENTIFIER 

TRANSFER TF JN PERMANENT PART OF TABLE 
ACCEPT SYMBOL 

GET POINTER JIN XR ~- Q 

MAKE POINTER ABSOLUTE 

GET TALLY FOR IDENTIFIER SUCCESSFULLY MATCHED 
PRINT 

AND GIVE SUCCESSFUL RETURN 

GET CURRENT WORKING STACK POINTER 
SUBTRACT BASE OF WORK TO GET LENGTH 
SUBTRACT LENGTH WHEN STACK wWaS MARKED 
GET LENGTH + 2 70 a REGISTER 

GET NUMBER OF FIELpS « 41 IN A REGISTER 
AND SAVE L&NGTH OF TABLE ENTRIES 

GET POINTER TO MODE TABLE CONTROL WORD 
AND ALLOCATE SPaCE IN THE MODE TABLE 
MAKE POINTER TO TABLE ENTRY RELATIVE 
SAVE RELATIVE POINTER TO MODE TABLE ENTRY 


AND SAVE 

GET LENGTH OF BOUND TABLE ENTRY 

GET POINTER TO ROUND TABLE CONTROL WORD 
AND ALLOCATE SPACE IN THE BOUND TABLE 

SAVE POINTER TO BOUND TABLE ENTRY IN XR © 3 
AND MAKE IT RELATIVE 

AND SAVE POINTER FO BOUND TABLE ENTRY 

GET ADDRESS OF BASE OF MODE TABLE 

AND MAKE MODE TABLE ENTRY POINTER aRSOLUTE 
GET LENGTH OF TABLE ENTRIES 

POSITION FOR TALLY IN ID WORD 

PUT IN WaLF WORD REGISTER 

AND STORE TALLY JN BOUND ENTRY POINTER 

GET HEABER FOR MODE TABLE ENTRY 

AND STORE IN MODE TABLE ENTRY 

GET HEABER FOR BOUND TABLE ENTRY 

AND STORE IN BOUND TABLE ENYRY 

GET RELATIVE POINTER TO WORK WHEN MARKED 
AND MAKE IT ABSOLUTE 


01557 UY U5s26-72 
ak 
007264 007306 
007265 007306 
007266 007306 
END OF BINARY CARD 
007267 0097304 
007270 6007304 
007271 090000 
007272 007305 
007273 007265 
007274 35234 
007275 035234 
007276 007274 
007277 035234 
007300 035234 
007301 0095754 
007302 096210 
007303 o9n000 
007304 ag0000 
007305 0050000 
007306 u90000 
007307 090000 
007310 035222 
007311 d00000 
007312 097331 
007313 035223 
007314 007331 
END OF BINARY CARD 
007345 007331 
007316 000060 
007317 777777 
007320 777777 
007321 0000142 
007322 777777 
007323 Q90000 
007324 035234 
007325 095754 
007326 0973314 
007327 777777 
007350 006210 
007331 090000 
007332 d90002 
007333 035216 
007334 005663 
007335 046762 
007336 000000 
007337 035234 
007340 ugnooo 
007341 009001 
007342 035216 


END OF BINARY CARD 


17,863 


7460 OY 
2350 56 
2200 56 
Qouodu120 
7550 51 
4400 56 
6350 05 
7550 56 
6070 00 
g119 $4 
1960 00 
6010 00 
7440 31 
4430 36 
7470 00 
7100 00 
oagoun 

cogoco 


0400 OQ 
00000421 
2350 52 
1750 07 
6040 90 
6000 90 
4490 97 
6050 00 
6200 95 
7400 $6 
7470 OG 
0410 $2 
6070 0Q 
7100 80 


1610 900 
00000822 
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2070 
2074 
2072 


20973 
2074 
2075 
2n76 
2077 
2078 
2079 
2080 
2061 
2082 
2063 
2084 
2085 
2086 
2087 
2088 
2089 
2n90 
2094 
2092 
20958 
2n94 


2095 
2096 
2097 
2098 
2099 
2100 
2101 
2402 
2405 
2104 
2105 
2106 
2107 
2408 
2109 
2110 
24it 
2112 
2415 
2114 
2415 
2116 


CST1 


CNVA 
EREF 


PASS 4 


CSTYT 
CSTT,ID 
CSTT,1D 


CSTM,] 
CSTm,1D 
O,AL 
CSTR,ID 
CST4 
ASWORK,DI 
ASWORK 
ao? 
AEWORK, ! 
AZWORK, ID 
TEWOVE 
ASOK 


0,7 
TSSTAR 
ASSC,0 
CNVA 
TSI FAB 
CNVA 


CNVA,SC 
=0060,DL 
SERROR 
$ERROR 
10.Di 
$ERROR 
QO, AL 
ASWORK, ID 
TEWOVF 
CNVA,SC 
SERROR 
ASOK 


2,0U 
TSMODE, Pu 
TSALOC 
MEREF 


Or. 
ASWORK, DI 
0,AU 

1.4 
TEMODE 


PAGE 


AND SAVE aS TALLY WORD 
GET NEXT DECLARER FROM WORK 
GET CORESPONDING TAG FROM WORK 


STORE MODE IN MADE TARLE 

AND STORE CORESPONDING TaG IN MODE TABLE 
GET BOUND INFORMATION IN aU 

AND STORE IN BOUND TARLE 

TRANSFER {fF MORE FIELDS TO PROCESS 
DELETE A WORD FROM THE WORKING STaCk 
IS STACK DELETEM RACK TO THE MaRK 
TRANSFER !F MORE TO REMOVE 

AND STORE SYRUCTURE MODE 

AND STORE STRUCTURE BOUND 

CHECK FOR STACK OVERFLOW 

AND EXIT 


GET POINTER IN XR # 0 

MAKE POYNTER ABSOLUTE 

GET STRING TALLY WORD OF NUMBER 

AND SAVE a COPY 

GET BASE OF IMENTIFIER TABLE 

AND MAKE STRING TALLY WORD ABSOLUTE 


GEY FIRST CHARACTER OF STRING 
SUBTRAC¥ AN ASC!] ZERO 

ERROR » NOT A DIGIT 

ERROR e ZERO !S [LLEGAL 

SEE IF FIRST CHARACTER IS & DIGIT 
ERROR « NOT A DIGIT 

PUT VALWE QF DIGIT IN XR & 0 

AND STORE RESULT 

CHECK FOR STACK OVERFLOW 

SEE IF A SINGLE DIGIT IN STRING 
ERROR » TOO MANY CHARACTERS IN STRING 
AND EXIT 


GEY LENGTH OF ENTRY IN MODE TABLE 

GET POJNTER TO MODE TaBLE CONTROL WORD 
AND ALLOCATE MEMORY IN MODE TABLE 

GET HEADER WORD FOR MODE TABLE ENTRY 
AND STORE IN MODE TABLE ENTRY 

GET MODE THAT IS To BE REFERENCED 
CLEAN OFF BOUND JNFORMATION 

AND STORE IN MODE TABLE ENTRY 

MAKE MOBE TABLE ENTRY RELATIVE 


57 


C1957 


END 


END 


Uy tbe obe72 


1 
UN7343 035234 
007344 ug5754 
0073495 096210 
097346 096522 
07347 607434 
007350 096534 
007354 777777 
007352 006533 
007353 777777 
007354 096523 
007355 035214 
007356 007456 
U07357 035234 
007360 007456 
007361 vgnont 
007362 U90023 
007363 090006 
007364 00002 
007365 0097456 
007366 035234 
007367 og00n0 
007370 035216 
OF BINARY CARD 
007371 Oo9non0 
007372 046762 
007373 777777 
007374 Og0004 
007375 ogno00 
007376 0090002 
007377 035234 
007400 007367 
007401 007634 
007402 096523 
007403 035235 
007404 035234 
007405 035214 
007406 vuo97455 
007407 007456 
607410 007455 
007411 090000 
007412 097456 
007413 00907410 
007414 0097456 
007415 007417 
007416 035234 


OF BINARY CARD 


G07417 635234 
0074290 007416 
U07424 097503 
007422 035235 


17,363 


7419 56 
74/0 09 
7409 OV 
22uN OV 
6010 OV 
2200 OU 
6010 OU 
2209 OU 
6019 90 
2200 nO 
0600 OO 
7400 00 
2210 OU 
1610 00 
6350 it 
7310 Ou 
7350 OO 
0750 07 
7550 00 
0110 54 
2210 40 
0610 Ou 
OnunuL23 
2230 41 
1930 038 
6010 00 
2220 $1 
7420 $0 
0600 93 
1000 00 
6040 00 
7000 00 
2200 00 
7400 §6 
0110 $6 
0600 00 
7400 00 
7400 00 
2350 58 
6350 O1 
7550 56 
6070 00 
2200 00 
7400 00 
0110 54 
Qonou124 
1000 00 
6010 00 
7009 OO 
2350 54 
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2117 
2113 
2119 
2120 
242i 
2122 
2128 
2124 
2125 
2126 
2127 
2128 
2129 
2150 
213i 
2132 
2153 
21354 
2135 
2136 
2137 
2138 


2439 
21440 
2441 
2142 
21443 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2154 
2152 
24153 
2154 
2155 
2156 
2457 
2158 
2159 
2160 


2461 
2162 
2165 
2164 


EPDEN 


EPDYL 


EPD?2 


EPD3 


ErPD4 


STX141 
XED 
TRA 
LOX 
TNZ 
L.DX0 
TNZ 
LDXo 
TNZ 
0x0 
ADXO 
STX0 
LDX4 
SBX4 
EAA 
ARS 
ALS 
ADA 
STA 
NOP 
LDOX4 
ADX1 


LOX3 
CMPX3 
TNZ 
LOX2 
STxX2 
ADXO 
CMPXQ 
TM] 
TSX0 
LOXo 
STXo 
NOP 
ADXO 
STXo 
STX0 
LDA 
EAA 
STA 
TTF 
LDXO 
TRA 
NOP 


CMPXQ 
TNZ 
TSX0 
LDA 


PASS 1 


ABWORK, ID 
TEWOVEF 
AtOK 
PDPOS 


AGWORK,DI 
0,0 
TEMODE 


Orel 
MOREF, DU 
SERROR 
1,4 

0,0 

2,DuU 
ASWORK 
EPD, 
DECIA 

MK 


ASSTACK, ID 


ASWORK,ID 
TSWORK 
EPDS 

EPDn 
EPDS,AD 
0, AU 
EPDn,ID 
EPDa 

EPDD 

EPD4 
ASWORK, DI 


ASWORK 
EPD3 
EPROC 


ASSTACK,DI 
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AND STORE IN WORK WITH OLD BOUNN 
CHECK FOR STACK OVERFLOW 

AND EXIT 

GET PROCEDURE DFENOTATION FLAG 
TRANSFER IF NOT A PROCEDURE DENOTATTON 
CHECK SEMICOLON COUNT 

SHOULD BE ZERO 

CHECK COLON COUNT 

SHOULD BE ZERO 

GET PLaCE WHERE WORKING STaCk WAS MaRKED 
MAKE !T aRSOLUTE 

AND SAVE 

GET CURRENT WORKING STACK POYNTER 

GET ADDED LENGTH GF WORK SINCE MARK 
ADD ONE AND PUT IN A REGISTER 

DIVIDE By 2 AND PUT IN AL 

PUT IN FaALLY FIELD OF WORD 

INCREMENT OF 2 IN aD MODIFICATION 
STORE AS FALLY WORD 

DELETE MODE OF RESULT OF PROCFDURE 

GET DECLARER IN XR » 4 

GET ABSOLUTE POINTER TO MODE TABLE 


INFO 


GET MODE TYPE IN XR @ 3 

IS IT A REFERENCE MODE 

NO » MUST BE IN A PROCEDURE 
DEREFERENCE MODE 

AND RESTORE IN DECLARER 

STEP TO NEXT DECLARER 7 

ARE THERE ANY MORE DECLARERS 
TRANSFER IF MORE 

DECLARE aLL FORMAL PARAMETERS 

GET PLACE WHERE WORKING STACK WAS MARKED 
STORE JN CONTROL STACK FOR EPROC 
RESTQRE MODE OF RESULT OF PROCEDURE 
MAKE IT ABSOLUTE 

STORE aS SOURCE ADDRESS 

STORE aS DESTINATION ADDRESS 

GET NEXT DECLARER 

DELETE BOUNDS INFORMATION 

AND STORE BACK IN WORK 

AND TRANSFER IF MORE TO pO 

GET CURRENT WORKING STAaCck END 
TRANSFER TO SHORTEN WORKING STACK 
DELETE a WORD FROM WORK 


DONE ENOUGH 

NO = |OO0P 

MAKE INTO PROCEDURE MODE 
GET VALUE OF PUSHED MK 


5B 


01557 


END 


END 


01 U5"°26-72 
4 

007423 096523 
007424 035234 
007425 007456 
007426 490000 
007427 000022 
007450 6010066 
007431 007456 
007452 035234 
007433 696210 
007434 035234 
007435 096534 
007436 007449 
007437 007634 
007449 096523 
0074414 V35214 
007442 035234 
007443 007446 
007444 035234 
OF BINARY CARD 
0074495 007442 
007446 035235 
007447 006523 
007450 096531 
007451 019066 
007452 000001 
007453 035234 
007454 006210 
007455 000000 
007456 090000 
007457 Q00002 
007460 035216 
007461 005663 
007462 046773 
007463 OdOng00N0 
007464 096529 
007465 oononi 
007466 0635216 
007467 035234 
007470 Od090002 
007474 0352417 
007472 095663 
OF BINARY CARD 
007473 016773 
007474 ogo00oto 
007475 006520 
607476 Oono0o1 
007477 035217 
0075090 035234 
007501 095754 
0907502 096210 


17,363 


7550 
2350 
7550 
0750 
7710 
70uU0 
2350 
7550 
71090 
0110 
2340 
6000 
7000 
2200 
0600 
10Q0 
6000 
0110 


gooduL125 


7100 
2350 
7550 
2320 
7000 
6350 
7550 
7100 
0000 


00 
54 
00 
07 
00 
00 
56 
00 
De 


000000 


2350 
2210 
7000 
6350 
7550 
2350 
7550 
1610 
7410 
2350 
2210 
7000 


0000U0%26 


6350 
7550 
2350 
7550 
1610 
4410 
7470 
7400 


05 
05 
00 
00 
11 
00 
41 
00 
51 
0S 
05 
00 


00 
11 
00 
11 
00 
56 
00 
00 


ALGOL458 


2165 
2166 
2167 
2168 
2169 
2470 
2171 
2172 
2173 
2174 
2475 
2176 
2177 
2178 
2479 
2180 
2184 
2482 


2183 
2484 
2485 
2186 
2187 
2188 
2189 
2190 
2194 
2492 
2493 
2494 
2195 
2196 
2497 
2498 
2499 
2200 
2204 
2202 
2203 
2204 


2205 
2206 
2207 
2208 
2209 
2210 
22141 
2212 


EPAF 


EPDFo 


EPDF4 


EPDF?2 


EPDS 
EPDD 
MMI 


STA 
LDA 
STA 
ADA 
ARL 
TSX0 
LDA 
STA 
TRA 
NOP 
SZN 
TZE 
TSXO 
LDXO 
ADXO 
CMPXQ 
TZE 
NOP 


TRA 
LDA 
STA 
LDA 
7SX0 
EAA 
STA 
TRA 
TALLYD 
ZERO 
LDA 
LDX4 
7TSX0 
EAA 
STA 
LDA 
STA 
SBX1 
STX4 
LDA 
LDX4 
TSXo0 


EAA 
STA 
LDA 
STA 
SBX4 
SXLi 
XED 
TRA 


PASS 1 


MK 
ASWORK, DI 
EPDD 
=0490000,DU 
18 

ERNGA 
EPDD 
AFWORK, ID 
AtOK 
ASWORK,DI 
SEMIC 
EPDFQg 
DECIA 

Mk 

TEWORK 
ASWORK 
EPDF2 
ASWORK,DI 


EPOF1 
ASSFACK,DI 
MK 
CLOR,DL 
ERNGA 
MEVOID 
ASWORK, ID 
AtOK 
0,0.2 
2,0U 
TSMODE, DU 
TEALOC 
MEMM I 

Q,1 

IONT 

1,1 
TEMODE 
ASWORK, } 
2,0uU 
TSBOUND, DU 
TEALOC 


BEM] 

O11 

IDNT 

1.1 
TEBOUND 
ASWORK, ID 
TSWOVF 
AtOK 


PAGE 


AND RESTORE MK 

GET MODE OF PROCENYRE DENOTATION IN A 
AND SAVE 

SET THE SIGN BIT AS FLAG FOR RANGE TYPE 
MOVE TO LOWER HALF OF WORD 

EXIT PROCEDURE DENOTATION RANGE 

RECOVER MODE OF PROCEDURE DENOTATION 
AND PUSH N TOP OF WORKING STACK 

AND EX]T 

DELETE PSEUDO MODE OF RESULT 

ARE THERE ANY SEMICOLONS IN THIS RANGE 
NO = NO NOT DECLARE ANY IDENTIFIERS 
DECLARE aLlL DECLARATIONS FOR THIS RANGE 
GET PLACE WHERE WORKING STACK WAS MARKED 
MAKE IT ABSOLUTE 

THROUGH DELETING 

YES » TRANSFER 

DELETE A WORD FROM THE WORKING STACK 


AND |OOP 

GET VALUE OF PUSHED MK 

AND RESYJORE MK 

GET TYPE OF RANGE IN AL 

EXIT CLOSED EXPRESSION RANGE 

GET A VOID MODE IN A 

AND PUSH ON TOP OF WORKING STACK 
AND EXIF 


GET 
GET 
AND 
GET 
AND 
GET 
AND 
GET 
AND 
GET 
GET 
AND 


LENGTH OF ENTRY IN MODE TABLE 
POINTER TO MODE TABLE CONTROL WORD 
ALLOCATE MEMORY [JN MODE TABLE 
HEADER WORD FOR MODE TABLE ENTRY 
STORE IN MODE TABLE ENTRY 
IDENTIFIER DESCRIPTION 

STORE IN MODE TABLE ENTRY 

RELATIVE MODE TABLE ENTRY POINTER 
STORE ON WORKING STACK 

LENGTW OF ENTRY JN BOUND TABLE 
POINTER TO BOUND TABLE CONTROL WORD 
ALLOCATE MEMORY IN ROUND TABLE 


GET 
AND 
GET 
AND 


HEADER WORD FOR BOUND TABLE ENTRY 
STORE IN BOUND TABLE ENTRY 

IDENTIFIER pESCRIPTION 

STORE IN BOUND TABLE ENTRY 

GET RELATIVE BOUND TABLE ENTRY POINTER 
AND STORE ON WORKING STaCK WITH MODE INFO 
CHECK FOR STACK OVERFLOW 

AND EXIT? 


59 


ULo5/ 


END 


END 


Ot 05=8#260-72 
T 

Uu75U3 0147091 
007504 UQ97513 
007505 0417001 
007506 097513 
007507 096210 
0g751i10 017007 
007511 007513 
U07512 U96210 
007513 007556 
607514 097553 
007515 035234 
007516 035214 
007517 035235 
007529 Gonnt1 
OF BINARY CARD 
007521 007554 
007522 035216 
007523 095663 
007524 000000 
007525 097554 
007526 000014 
007527 097554 
007530 097554 
007534 035235 
0907532 035214 
007533 097555 
007534 007556 
007535 097554 
007536 097555 
007537 odonono 
007540 0607554 
007541 uo7536 
007542 035235 
007543 035214 
007594 035234 
007545 035234 
007546 007544 
OF BINARY CARD 
007547 0352416 
007550 000000 
007551 035234 
007552 005754 
007553 090000 
007554 0090000 
007555 090000 
007556 009000 
007557 000004 
007569 035220 
007564 095663 
007562 096412 


17,863 


6350 ng 
71U0 00 
6350 OY 
7000 00 
7100 OQ 
6350 ON 
7000 OO 
7100 090 
7550 00 
7400 Og 
2200 00 
1600 QU 
1600 54 
6350 40 


OououLe7 


7550 OU 
2210 O38 
7000 00 
6250 41 
2390 OV 
7319 O60 
7550 0 
7410 00 
2200 54 
0600 00 
7400 60 
2350 00 
7550 56 
2320 56 
6350 O1 
7550 96 
6070 OO 
2260 54 
0660 O6 
0110 $4 
1060 Ou 
6010 00 


00000828 


1650 00 
6350 15 
7550 36 
7470 QO 
7400 00 
000000 

000000 

000000 

2350 OS 
2210 Q5 
7000 00 
6350 00 


ALGOL68 


2713 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2225 
2224 
2225 
2226 


2227 
2228 
2229 
2230 
2231 
2232 
2235 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 


2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 


EPROC 


EPR 


CUN 


EPRY 


CUNY, 


CUNX 
CUNA 
CUNB 
CUNH 
DECM 


EAA 
TRA 
EAA 
TSXO 
TRA 
EAA 
TSXO 
TRA 
STA 
STXO 
LDXO 
SBXO 
SBX0 
EAA 


STA 
LDOX1L 
TSxo0 
EAXS 
LDA 
ARS 
STA 
STX4 
LDXO0 
ADXO 
STX0 
LDA 
STA 
LDA 
EAA 
STA 
TTF 
LOX 
ADX6 
NOP 
CMPX6 
TNZ 


SBX3 
EAA 
STA 
XED 
TRA 
ZERO 
ZERO 
ZERO 
WDA 
OX 
TSXo 
EAA 


PASS 1 


MEPROC 
EPRY 
MBPROC 
EPRyq 
AtOK 
MBUNION 
EPR 
ASOK 
CUNH 
CUNX 
ASWORK 
TSWORK 
AESTACK,DI 
1,0 


CUNA 
TEMODE, BU 
TSALOC 
U,l 

CUNA 

12 

CUNA 

CUNA 
ASSTACK, J 
TEWORK 
CUNB 

CUNH 
CUNA, ID 
CUNB, ID 
QU, AU 
CUNA, ID 
CUNY 
ASSTACK, | 
TEWORK 
ASWORK,D]I 
ASWORK 
@-2 


TEMODE 
0,3 
ASWORK, ID 
TSWOVF 

on 


4,Du 
TSDEF,DU 
TSALOC 
DEMODE 


GET 
AND 
GET 
AND 
AND 
GET 


PAGF 


HEADER WORD FOR MODE TABLE FNTRY 
ASSEMBLE PROCEDURE 

HEADER WORD FOR MODF TasLE FNTRY 
ASSEMBLE LIKE UNION 

EXIT 

HEADER wORD FOR MODE TABLE ENTRY 


ASSEMBLE UNION 


AND 
AND 


EXIT 
SAVE HEADER WORD 


SAVE RETURN 


GET 


SUBTRACT BaSE TO GET RELATIVE POINTER 
SUBTRACT RELATIVE POINTER WHEN MARKED 
GET NUMBER OF MODFS « 4 IN A REGISTER 


AND 


GET POINTER TO MODE TABLE CONTROL WORD 


AND 


CURRENT WORKING STACK POINTER 


SAVE 


ALLOCATE SPACF IN MODE TaRBLE 


SAVE ENTRY LOCATION IN XR = 3 

GET LENGTH OF MODE TABLE ENTRY IN A 
MOVE LENGYH TO TALLY FIELD 

STORE AS PART OF ID WORD 

STORE ABDRESS FOR TALLY WORD 


GET RELATIVE POINTER TO LIST OF MODES 


MAKE ABSOLUTE 


AND 
GET 
AND 
GET 


SAVE aS TALLY WORD 

HEADER WORD FOR MODF TaBLE ENTRY 
STORE IN MODE TABLE ENTRY 

NEXT MODE FROM WORKING STACK 


CLEAN OFF BOUND INFORMATION 


AND 


STORE IN MODE TABLE ENTRY 


TRANSFER IF MORE MODES TO MOVE 


GE* RELATIVE POINTER TO WORK WHEN MARKED 


MAKE ABSOLUTE 

DELETE A WORD FROM THE WORKING STack 
IS STACK DELETED BACK TO MARK 
TRANSFER IF MORE TO REMOVE 


GET RELATIVE POINTER TO MODE TARLE FNTRY 


PUT 


STORE POINTER TO MODE TABLE ENTRY IN WORKING STAC 


IN A REGISTER wITH AL CLEAR 


CHECK FOR STACK OVERFLOW 


AND 


GET 


GET POINTER To MEF TABLE CONTROL WORD 


RETURN 


LENGTH OF DEF TABLE ENTRY IN A 


ALLOCATE SPACE IN DEF TABLE 


GET 


TYPE OF DEFINITION IN A 


49 


UL557 


END 


END 


1 


007563 vOdUrL 
Ci17564 v07721 
607565 U35234 
Uu7566 } GONONe 
U0N7567 UOt0NS 
UO7570 d96210 
Ua7571 Jongns 
07572 u35220 
007573 4956463 
007574 096414 
UF BINARY CARD 
007575 conronty 
007576 0907721 
G07577 035234 
0076U0 vonono 
UQ76u1 Ugnnooe 
0076uU2 un6eio 
007602 009094 
007604 U35220 
UQ76U5 005663 
007696 0906413 
UG76U7 oOonan1 
007610 0Q077?1 
007611 035234 
007612 o9n002 
007613 609013 
007614 uU35e270 
007615 635235 
007616 0095742 
U07617 ugé6210 
007620 035235 
007621 035220 
U07622 035234 
OF BINARY CARD 
007623 tonone 
607624 U06210 
007625 007634 
007626 96523 
007627 U352et4 
007630 0635234 
UN7654 676210 
607632 035234 
G07633 607630 
U07654 007674 
bu7635 996523 
£07656 007675 
697637 97675 
UN7640 U35214 
U97641 035234 
097642 097674 


17,805 


7590 11 
7900 OU 
2350 54 
7550 11 
45yn 11 
7109 OU 
2357 1S 
2210 OS 
7NN0 OY 
635N OY 
do0u0u129 
7550 AL 
7n0n OO 
2350 54 
6350 O21 
7550 11 
7t1uo OO 
2350 48 
2210 O08 
7900 Q9 
6350 Oy 
7550 11 
7909 OY 
2390 54 
7559 11 
4500 11 
1610 OY 
7410 56 
7170 00 
71400 OO 
221in 54 
0610 OO 
2350 94 
0000u150 
7550 11 
7100 Q0 
7000 OO 
2200 90 
v6Q00 00 
inuo 69 
6n00 O09 
0110 34 
7100 OG 
7400 00 
2207 00 
7400 00 
2200 09 
0600 OQ 
1no0 00 
6n50 00 


ALGIL468 


2761 
2762 
2263 
2264 
2265 
2766 
2267 
2768 
2269 
2270 


2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2792 


2293 
2294 
2295 
2296 
2797 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 


DecP 


VECO 


DEC OP 


Dec] 


DECI4 


DECIA 


DECIL 


STa 
TSXG 
LDA 
STA 
STZ 
TRA 
LDA 
LDX41 
TSXoO 
EAA 


STA 
TSXo 
LDA 
EAA 
STA 
TRA 
LOA 
LAA 
TSXO 
EAA 
STA 
TSXO 
LDA 
STA 
STZ 
SBX1 
STX1 
XED 
TRA 
LOx4 
ADX1 
LDA 


STA 
TRA 
TSX6 
LDXx0 
ADXG 
CMF XY 
TZE 
NOP 
TRA 
STXO 
LDOXo 
STXO 
LIAXG 
ADXO 
CMPXU 
FRE 


PASS 1 


Ld 

SETH 
ASWORK,DI 
eal 

S,1 

A+UK 

3,01) 
T3pEF, DU 
THALUC 
DEPRIOR 


1,1 

SETH 
AtWORK,D] 
Q,AU 

2.1 

ASOK 

4,01 

TE Der, DU 
TEAL UC 
DtUP 

dil 

SETn 
ASWORK, NI 
Qa 

Sit 

TEDEF 


ASSTACK, 1D 


TYSAVE 
ASOK 


AFSTACK,DI 


THDEF 
ASWORK, DI] 


2.1 
ASOK 
DEGCLA 
MK 
TEWORK 
AGWwORK 
AFOK 
AFWORK,DI 
DECIL 
DECIx 
MK 

DEC IT 
Decrt 
TEWORK 
ABWORK 
DEC IX 


PAGE 61 


STORE IN DEF TABLE ENTRY 

LINK THIS ENTRY TQ OTHERS FOR THIS 
GET DECLARER IN A 

STORE IN DEF TaRLF ENTRY 

ZERO OUT LAST WORD FOR NEATNESS 
AND EXIT 

GET LENGTH OF DEF TABLE ENTRY [N A 
GET POINTER TO NEF TAKLE CONTROL WORD 
ALLOCATE SPACE IN DEF TABLE 

GET TYPE OF DEFINITION IN A 


IDENTIFIER 


STORE IN DEF TARLE ENTRY 

LINK THIS ENTRY TQ OTHERS FOR THIS 
GET PRIORITY NUMBER 

CLEAN IT UP 

STORE IN DEF TARLE ENTRY 

AND EXIT 

GET LENGTH OF DEF TABLE ENTRY IN a 
GET POINTER TO pEF TaAsLE CONTROL WORD 
ALLOCATE SPACE IN DEF TABLE 

GET TYPE OF DEFINITION IN A 

STORE IN DEF TARLE ENTRY 

LINK THIS ENTRY TO OTHERS FOR THIS 
GET MODE OF OPERATOR IN A 

STORE IN DEF TARLE ENTRY 

ZERO OUT LAST WORD FOR NEATNESS 
MAKE POINTER TO TABLE ENTRY RELATIVE 
AND STORE JN CONTROL STACK 

CHECK FOR STACK QVERFLOW 

AND EXIT 

GET POINTER TO APERATOR DEFINITION 
MAKE JT aRBSOLUTE 

GET MODE OF OPERATOR IN A 


IDENTIFIER 


IDENTIFIER 


AND STORE IN DEFINITICN OF OPERATOR 

AND EXIT 

DECLARE aLL IDENTIFIERS IN CURRENT RANGE 
GET PLACE WHERE WORKING STACK WAS MARKED 
MAKE [T aBSOLUTE 

HAS STACK BEEN DELETED RACK TO THE MARK 
YES - EX[T 

DELETE A WORD FROM THF WORKING STack 

AND TRY AGAIN 

SAVE RETURN ADDRESS 

GET PLaCE WHERE WORKING STaCk WAS MARKED 
AND SAVE 

GET POINTER TO PLACE 
MAKE ITT ARSOLUTE 

SEE IF 3EYOND END OF wORKING STACK 
TRANSFER IF ALL DONE 


IN WORKING STACK 


END 


END 


CU7648 CHU 
CN7644 cgrqtutt 
UN7645 ug7o7. 
UU7646 ugnung 
907647 16742 
007690 Uu07654 
UF BINARY CARD 
UnN7694 vonond 
007652 wuognont 
U076D3 UO7671 
007654 vuonngn4 
007655 U38220 
U07626 095663 
007627 ug7675 
0907669 u35214 
607664 Uuonono 
007662 ughan2e 
607663 UQ00nS 
U07664 696415 
007665 Un0001 
0N7666 oonor 
007667 0965279 
U07670 Uo77?P1 
007671 Gongne 
007672 Uo7675 
007673 Ug7637 
007674 Ognono 
Uun7675 donne 
607676 UpNds4 
UF BINARY CARD 
0907677 vJ35234 
007700 0905754 
007701 096520 
007702 035234 
Ou77U3 095754 
C67704 U06210 
Uu7705 090004 
007706 635220 
U07707 0905663 
UO7710 006415 
O07711 ugodgot 
0Q7712@ 009090 
007713 U97753 
007714 007723 
007715 035234 
007716 090092 
0G7717 YoN003 
vO7720 660062190 
007721 0g7753 
0u7722 696520 


ec ty 
in7e 43 
6nvua Ay 
2?0f 1/7 
inut o¢ 
60109 Oy 
Cogdu1st1 
22/709 1/ 
41070 O¢ 
6nuod Oy 
239N 0S 
2210 98 
7009 Ov 
220n NY 
o6ul vg 
2307 ty 
755N 41 
4500 41 
6350 Oy 
7559 Al 
2209 109 
7400 OG 
7NU. Ov 
2209 O¢ 
0400 OG 
71409 OO 
71409 OV 
Qogoun 
2390 0S 
Q00NuULS2 
755n 56 
7141/9 OO 
235 OU 
7559 56 
7479 OO 
7109 Ou 
2359 OS 
2219 03 
7900 10 
6350 OO 
7550 11 
6200 OY 
7500 Ov 
7/400 OO 
2390 94 
755N 11 
450 141 
714u0 Ov 
7400 Ou 
7209 OV 


ALGIL43 


2309 
2319 
2311 
2312 
2313 
2314 


2515 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2334 
2332 
2333 
2334 
2335 
2336 


2337 
2333 
23359 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2502 
2353 
2354 
2355 
2356 


beClez 


DECIS 


Dee] x 
VECIT 
DECL 


UECLE 


SeETD 


LioxX7 
CMPX7 
T7E 
LIXG 
CMPXy 
INZ 


LOX7 
CMPX7 
TZE 
LDA 
LOXt 
TSX0 
LDXO 
ADXO 
LDA 
STA 
$TZ 
EAA 
STA 
LOXO 
STXO 
TSX0 
LDXO 
ASXO 
TRA 
TRA 
ZERO 
LDA 


STA 
XED 
LDA 
STA 
XED 
TRA 
LDA 
LDX4 
TSX6 
EAA 
STA 
EAXO 
STC2 
TRA 
LDA 
STA 
sTZ 
TRA 
STXO 
LXL0 


PASS 1 


y,0 
M4vVNTN, DY 
LECT S 

o,/ 
MBSREF DU 
VECY2? 


1,7 
MEVOIND,DU 
DECI3 
4,bD 
TSDEF , DU 
TSALOC 
DECIT 
TSWORK 
0,0 

2.1 

Sel 
DSINENT 
1,1 

1:0 

IONT 
SETD 
2,0U 
DECIT 
DECIL 


oe 
MELAL,DU 


ASWORK, ID 
TEWOVE 
JDNT 
AFWORK, ID 
TEWOVE 
AGOK 

4, DU 
TEDEF, DU 
TEALOC 
DEIDENT 
dad 


Q 

SETNX 
SETDE 
ABWORK, DI 
2a1 
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akT IGE OF SYsMPUL Ty Xk - 7 

ace [TF Bat) PECL ARATIUA 

TRANSFER TQ SKIP 8A ReECLARATION 
GET TYPE OF MODE IN XR - 

IS IT A REFERENCE MODE 

NO = GO PROCESS GOO) DECLARATION 


GET DERERFERENCEN MODE IN XR - 7 

SEE IF Ban DECLARATION 

TRANSFER TO SKIP RAD DECLARATION 

GET LENGTH OF ENTRY IN DEF TABLE 

GET POINTER TO TaRLE CONTROL WORD 

AND ALLOCATE SPACE IN TRE DEF TABLE 
GET RELATIVE POINTER TO WORKING STack 


MAKE JT aBSOLUTE 
GET DECLARER 
AND PUT IN THE NEF TARLE ENTRY 


ZEKO OUT LAST Wok FOR NEATNESS 
GET TYPE OF DEFINITION IN A 
STORE IN DEF TARLE ENTRY 

GET POINTER TO TAG 

AND STORE IN IDNT 


LINK THES ENTRY TO OTHERS FOR THIS IDENTIFIER 


GEY A 2 

AND STEP TO THE NEXT DECLARATION IF ANY 
AND LOOP 

ANU RETURN 


GET PSEYDO LAREL MOVE IN AU 


AND STORE IN WORKING STACK 

CHECK FOR STACK OVERFLOW 

GET LABEL IDENTIFIER IN a 

AND STORE IN WORKING STACK 

CHECK FOR STACK OVERFLOW 

AND EX{T 

WET LENGTH OF JEFF TABLE ENTRY IN A 
GET POINTER TO NEF TARLF CONTROL WORD 
ALLOCATE SPACF IN DEF TABLE 

GET TYPE OF DEFINITION IN A 

STORE IN DEF TABLE ENTRY 

GET LL OF JDENTYFIER IN XR © g 
SAVE RETURN 


LINK THIS ENTRY TO OTHERS FOR THIS IDENTIFIER 


GET MODE OF IDENTIFIER IN A 

AND STORE IN DEFINITION OF IDENTIFIER 
ZERO OUT LAST WORD FOR NEATNESS 

AND EXIT 

SAVE RETURN 

GET CURRENT RANGE NUMRER IN xR - 


LYDo5/ 


ENL 


eND 


EN 


O41 JU5-260-72 
1 

Ua7723 Oog00rd 
0N7724 696529 
OF BINARY CARD 
607725 Ognodo1 
U07726 035222 
U07727  uvOoNang 
007750 007747 
U077$1 35229 
Y07732 Gonoto 
007733 Ug7754 
007734 97754 
007735 4n77409 
CnN7756 dgondono 
007787 ua7727 
00774q 0097746 
007741 vonoor 
U0N7742 G000N1 
007743 007746 
007744 vorono 
007745 097777 
007746 635220 
007797 O9n0n9 
G077590 06 uonono 
UN7754 635220 
007752 009000 
CF BINARY CARD 
C077>3 Uodound 
L07754 Gonong 
007755 u35217 
607756 dn0002 
G07757 95643 
007760 0416770 
007761 Gondod 
07762 096532 
G07763 Gdonont1 
007764 g000N0 
CO7765 00N001 
007766 006536 
607767 og00dot 
007779 69635217 
007771 007773 
007772 006210 
007773 090000 
007774 U35234 
007775 Odonono 
007776 000000 
007777 v1N026 
Gicouo 035234 


UF BINARY CARD 


Uitdud 


U35217 


17,803 


4400 41 
2250 OY 
Oounu1ss 
6220 19 
Q629 OY 
2250 12 
6040 OY 
0650 OO 
7240 15 
7440 OY 
1000 OU 
6059 OU 
6220 453 
7490 OO 
6n1i0 OV 
2240 41 
i040 13 
6640 00 
6220 13 
71409 OO 
1650 OO 
7450 41 
6240 £1 
41640 09 
7440 12 
Qounuis4 
74u0 OU 
000009 
2210 98 
6350 00 
7ou0 OO 
2200 08 
7400 11 
22y0 ON 
0609 03 
4400 11 
4500 11 
2200 O00 
$490 41 
1619 00 
4410 00 
71Q0 00 
gogoge 
2350 54 
6210 05 
6350 O1 
7599 Og 
7220 94 
onuodu1ss 
v62enN OU 


ALGIL465 


2357 
2358 


2359 
2360 
2°61 
2362 
2°63 
2364 
2365 
2366 
2367 
2368 
2%69 
2370 
2371 


2372 
2273 
2374 
2375 
2376 
2377 
2378 
2379 
23580 


2384 
2382 
2383 
2384 
2385 
2386 
2387 
2368 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 


2403 


Se TDeE 


se TDi 


seTp2 


SETDS 
SeETD4 


SETDX 
SeTpT 
CBOX 


CeOXT 
EBOX 


SXLO 
LDOX5 


EAX? 
ADX? 
LNXS 
TMI 
ADXS 
LXL4 
STX4 
CMPXO 
TPL 
EAX?2 
TRA 
TNZ 
LOX4 
CMPX4 
TMI 
EAX2 
TRA 
SBX3 
STX3 
EAX4 
SBX4 
STX4 


TRA 
ZERO 
LOXL 
EAA 
TSXO 
LDXO 
STXO 
LDxX9O 
ADXO 
SXLO 
STZ 
LOXxO 
SXLG 
SBX4 
SXLt 
TRA 
ZERO 
LDA 
EAX4 
EAA 
STA 
LXL2 


ADX2 


PASS i 


Q,1 
IDWT 


AFDF,5 
TESTAB 
0,2 
SETN4 
TBOFF 
Urs 
SFINT 
SET HT 
SETn2 
0,3 
SETDL 
SETNS 
1,1 
1,3 
SETNS 
uid 
SETDL 
T4DEF 
0,1 
0,1 
TROEF 
0,2 


at 


TSBOUND, DU 


2 
THALOC 
BROW, DU 
Url 
COMAC 
1,00 
Ori 

1,1 
CURR 
dil 
TEBOUND 
CROXT 
A%OK 


ASWORK, DI 
0,AL 

0, AU 
EBOXM 
AGWORK,DI 


TSBEOUND 
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STORE IN LINK WORD OF DEF TABLE ENTRY 
GET POINTER TO IDENTIFIFR DEFINITION 


GET POINTER TO DEF CHAIN IN XR = 29 

MAKE YT aRSOLUTE 

GET RELATIVE POINTER TO NEXT DEFINITION 
TRANSFER IF THERE aRe NO MORE 

MAKE XR = 3 ABSOLUTE 

GET RANGE NUMBER JN XR & 4 

AND SAVE FOR COMPARE 

IS THIS PROPER PLacE IN CHAIN FOR NEW ENTRY 
TRANSFER TF YES 

MAKE NEXT ENTRY CURRENT ENTRY 

AND TRY AGAIN 

TRANSFER IF NO MORE CHECKING NEEDED 

GET TYPE OF NEW DEFINITION IN XR ~ 4 

SEE IF IN RIGHT PLACE IN TABLE 

YES = TRANSFER 

MAKE NEW ENTRY CURRENT ENTRY 

AND TRY AGAIN 

MAKE POINTER TO FOLLOWING ENTRY RELATIVE 
AND MAKE NEW ENTRY POINT TO FOLLOWING ENTRY 
GET ADDRESS OF NEW ENTRY IN XR = 4 

MAKE IT RELATIVE 

AND MAKE PRECEEDING ENTRY POINT TO NEW ENTRY 


AND RETURN TO CALLER 


GET POINTER TO ROUND TABLE CONTROL WORD 
GET NUMBER OF WORDS TO ALLOCATE IN AU 
ALLOCATE 2 WORDS IN BOUND TABLE 

GET HEADER FOR BOUND TABLE ENTRY 

AND STORE IN TARLE ENTRY 

GET DIMENSION OF ARRAY IN XR = 

ADD ONE TO MAKE EXACT 

AND STORE IN TARLE ENTRY 

CLEAR OUT SECOND WORD IN TABLE ENTRY 
GET RELATIVE POINTER TO CURRENT RANGE 
AND STORE IN TARLE ENTRY 

MAKE POINTER FTO TABLE ENTRY RELATIVE 
AND SAVE 

AND EXIT 


GET DECLARER OF ELEMENT OF ROW MODE 
GET BOUND OF DECLARER IN XR « 4 

GET CLEAN MODE OF DECLARER IN aU 
AND SAVE 

GET POJNTER TO ROUND IN XR © 2 


MAKE POINTER ABSOLUTE 


bNWD 


ENDL 


| ibe Poe IY 
! 

U1EUs? vGnunrt 
brfdse& cCanorg 
U1LEN4 J16776 
uingusS upau?7 
U1¢006 vugonyse 
O10007 635216 
Yicdgto 0905663 
U1ceo011 049027 
COicale ennung 
U1n0138 J190276 
Utena] 4 vonany 
J1(015 uy,6770 
ULC 016 utoge? 
U1¢017 1 $5216 
OiNndaego video 
OL1ed0e1 Ugngn4y 
U1GQ0¢2 VU1N9N6 
V10023 35234 
L1C0O02¢4 95754 
U1C025 096210 
U1L026 vonnnrD 
Of BINARY CARD 
Ginge?7 00nN000 
010050 vonon4 
010051 ugnonod 
Vicos2 to6219 
0400538 777777 
G1i0054 y6d?0 
U10035 u35234 
010056 095754 
010057 vg6210 
Uing4o0 000090 
010041 Ugnuns6 
010042 035224 
010043 005663 
u1¢0044 Ggnngn0 
G10045 U35221 
U10046 u1nghe 
G10047 010063 
U10070 u100463 
010021 035234 
040022 0905754 
010023 019963 
010024 010959 
UF BINARY CARD 
uicn?5 096536 
01n026 0096535 
U10097 UG6535 
Licooo 0046529 
U1060641 v006210 


17,4o0$ 


741? 
7260 
635N 
755n 
6359 
2210) 
70uU9 
2350 
755N 
23>0) 
T5599 
6350) 
1559 
1619 
7410 
1660Nn 
oo1n 
7419 
14/79 
7409 


Qu 


voudgo 


O00NULS6 


000900 


22090 
040n 
7100 
$750 
2751) 
7550 
74/0 
74U0 
62/0 
6359 
2210 
7000 
74/0 
1619 
2350 
7559 
2350 
755n 
7470 
45yn 
6070 


OnUNULS? 


7410 
49410 
2350" 
755 
7449 


os) 
Q> 
Ou 
Q/ 
00 
56 
OV 
Ou 
0> 


OU 


00 
00 
OU 
QU 
90 


A-GILAS 


2404 
24u5 
24U6 
2407 
243 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
24eli 
2422 
2423 
2424 


2425 
2426 
2427 
2428 
2429 
2430 
2451 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 


2447 
2448 
2449 
2450 
2451 


EBOX1 


EG OXM 


EBOXH 
AYO 


MoN]) 


SRNGE 


ORL 


aTxd 
LXxL6 
EAA 
STA 
EAA 
LDX4 
TSXo 
LDA 
STA 
LDA 
STA 
KAA 
STA 
Si4X1 
STxt 
SHX6 
INZ 
STX4 
XED 
TRA 
ZERO 


ZERO 
LOXO 
ASXO 
TRA 
ANA 
ORa 
STA 
XFD 
TRA 
EAX7 
EAA 
LDX4 
TSXo 
STX7 
SRX4 
LDA 
STA 
LDA 
STA 
XED 
STZ 
TTF 


STX1 
SXLL 
LDA 
STA 
TRA 


PASS 4 


Lepe 

Ur2 

MER OWE 
EROXKH 

2 
TAMODE, DU 
THALOC 
EHUXH 

Url 

EBOXM 

1,1 

M*ROW 
EKUXH 
TEMODE 
ERUOXH 
1,01) 
EHOX] 
AGWARK, IT) 
TEWOVE 
AfOK 


1,00 
O,AL 
A%UK 


390777777, 0L 


LDNT 
AtwORK, TD 
THWOVE 
AUK 

Oe AL 

6 
TEPROG, DU 
THALOC 
Ual 
TSPROG 
SRTaAL 

SRT 

SRT, & 
AFWORK, ID 
TEWOVE 
SRT Ipc 
SRL 


CURR 
LEVEL 
LEVEL 
IPNT 
AtOK 


rAGHI a4 
LINK ROUND OF EE EMENT Te atictat: TR ARKAY 

GEES DPIMENSTON UF ARNAY [TN XR . 

VET FINAL MODP TARLE ENTRY db apik 

AND STORE [IN MeMOURY 

GET LENGTH OF ROW MCDE ENTRY IN All 

GET POINTER TO Munk TABLE CONTROL WORN TN XR 
ALLOCATE SPACE FUR ROW MODE EWTRY EN MOD- TAXSLE 
GET HFADER FOR TakLt FNTRY 

AND STORE [N TaRLF ENTRY 

GET MODE OF ELEMENT OF ARRAY 

AND STORE IN TARLE ENTRY 

GET HFADER FOR SURSEQUENT ENTRIES 


AND STORE 


IN MEMORY 


MAKE NEW MONE POINTER RELATIVE 
AND STORE AS NEW MODE 


DECREMENT 
TRANSFER 


NUMKER OF 


ENTRIES YT TO CREATE 


IF MORE TQ CREATE 
STURE POINTER TO MODE TABLE ENTRY IM 


WORK 


CHECK FOR STACK OVERFLOW 


AND EXIT 


GET aA ONE FOR INCREMENTING 
INCREMENT SPECIFIED LOCATION 


AND EXIT 


GET TYPE OF KOUND IN AL 


QR IN 


IDENTIFIER TF 


ANY FOR OPTIMIZING 


STORE IN THE WORKING STACK 
CHECK FOR STACK OVERFLOW 


AND EXIT 
SAVE TYPE 


GET LENGTH OF PROG LIST ELEMENT 
GET POINTER TO 


OF RANGE 


PROG 


AND ALLOCATE SPACE 
STURE TYPE OF RANGE AS PROG TABLE ENTRY HEADER 


IN XR + 7 

IN aU 
TABLE CONTROL wORnN 
IN THE PROG TARLFE 


IN XR 


GET RELATIVE POTNTER TO PROG TARLE FNTRY 
GET TALLY WORD TO TABLE OF THINGS TO SAVE 
ANU STORE IN TALLY LOCATION 

GET NFEX? {TEM Tn SAVE 

AN SAVE IT IN THE WORKING STACK 


CHECK FOR STACK OVERFLOW 


ZERO OUT TTEM a~Ny STEP TO NEXT 
TRANSFER {F THERE aE MORE 


ITEM 
ITEMS TO CONSIDER 


AND SAVE RELATIVE PCINTER TO CURRENT RANGE 
STORE NEW RANGE POTNTER 
IN A REGISTER 


GET LEVEL 
AND STORE 
AND EXIT 


IN IDENT 


1 


1 


v1257 UY 


END 


J5720=-72 
1 
U4G062 4919116 
C10063 vgndnno 
010064 v10066 
UicoeS § 006210 
0410066 006536 
Liug67 U35ze1 
Gin0/70 ugnung 
010071 bagnono 
b10072 uUyed2u 
bicgo73 ugagne 
UL0074 777777 
C10075 Ugnonre 
C1u076 0906534 
U10077 Ugnnn3 
0401400 696533 
v1C6101 ugnor4 
U101902 0096532 
OF BINARY CARD 
¥10103 Ggngnd 
0101094 049114 
010105 010115 
040106 035234 
04¢107 019115 
C10110 014106 
010111 006520 
Q1c112 od0n002 
10113 On0000 
046114 010123 
610115 000000 
¥16116 096532 
010117 006533 
Lidico 006536 
O10121 696534 
U1CL2e2 006520 


17,303 


vous 


31 


Qgououn 


70u0 
71uU0 
2210 
Q610 
6279 
4470 
22en 
7429 
222Nn 
442n 
2350 
7550 
2350 
7599 
2350 


0OUNULSS 


7550 
2350 
7550 
2350 
7550 
6070 
7220 
7420 
7100 
7773 


oy 
00 


tT 


OnGou0 
00v0u0 
vOQ000 
00000 
VoogoudO 
000000 


019123 
019123 


ALGTL68 


2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 


2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2469 
2481 
2482 
2483 
2484 
2485 
2486 


SRTAL 
SRT 
ERNGE 


ERNGA 


ERY 


ERTAL 
ERT 
KTAB 


RTABE 


TALLYC 
ZERO 
TSX 
TRA 
LDXx1 
ADXA 
EAX7 
SXL7 
LDX2 
STX2 
LDX2 
SXL2 
LDA 
STA 
LDA 
STA 
LDA 


STA 
LDA 
STA 
LDA 
STA 
ETE 
LXL2 
STX2 
TRA 
TALLYC 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
EQU 
BSS 


PASS 1 


KTAR,RTABE-RTAB, J 


ERNGA 
ALOK 
CURR 
TSPROG 
O,AL 
Vad 
LDNT 
2,1 
“1,.DuU 
251 
SEMIC 
Salt 
CLNC 
4,1 
COMAC 


241 

ERTAL 

ERT 
ASWORK,D] 
ERT,DIC 
ER 

IDNT 

2.1 

0,0 


EXIT RANGE 


AND EXIT 
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GET RELATIVE POINTER To PROG TARLE ENTRY 
MAKE IT aBSOLUTE 
GET TYPE OF END OF RANGF [IN XR - 7 


AND STORE 


IN PkOG TABLE ENTRY 


GET CURRENT LEVEL 


AND STORE 


IN PROG TABLE 


GET A MINUS FLAG 
AND INITIALIZE DEFINITION CHAIN FOR THIS RANGE 
GET SEMI COUNT 


AND STORE 
GET COLON 
AND STORE 
GET COMMA 


AND STORE 
GET TALLY 
AND STORE 


IN PROG TABLE 
COUNT 
IN PROG TABLE 
COUNT 


IN PROG TABLE 
WORD TO TABLE OF THINGS Tn RESTORE 
IN TALLY LOCATION 


GET NEXT ITEM FROM WORKING STACK 

AND RESTORE [T 

TRANSFER [TF THERE aRE MORE ITEMS TO CONSI[ER 
GET NUMBER OF SURROUNDING RANGE 


AND STORE 


AND RETURN 


RTARE,RTASHRTABE,! 


COMAC 
CLINNG 
CURR 
SEMIC 
[ONT 
* 


10 


IN PROG TABLE 


Enb 


ENL 


U4 Hye gov e 
i 

ULt135 Ugh619 
ULC 136 GQh6N7 
b1(137 agnadg 
C1f14u up66n7 
Uici41 voI061 
UF BINARY CARD 
b10142 uUp6607 
b101493 35221 
010144 vonory 
bic145 u19$0n5 
U1C196 777777 
0104147 vonont 
U1e120 us52?°1 
010171 vgh2?1 
v1c1>2 410153 
010123 vonong 
016154 Uuynensd 
010195 wugnoneg 
010196 O19171 
O10427 035221 
U1C616O0 uingns 
010164 0109171 
010162 0352214 
U101°3 d900N0 
010194 voru22 
010165 0946479 
0140166 006607 
010167 035221 
OF BINARY CARD 
010170 010145 
010171 0966n3 
016172 u96574 
010173 006610 
U1ic174 0096607 
610175 01409394 
010176 096607 
010177 006697 
010200 von002 
010201 01162 
U1c02u2 096697 
0140203 035224 
01¢204 o0102N0 
010205 096603 
010206 0096571 
040207 0352232 
010210 009001 
010211 777777 
O1c212 096460 


17,808 


2337 
7590 
2391) 
759" 
23290 


YNUnULSY 


7550 
22/0 
G670 
74/0 
067n 
06/0 
72QNn 
U6Q0 
7400 
10/70 
6050 
2260 
6cu0 
0669 
1064 
6010 
1670 
6359 
7719 
7000 
7550 
0670 


oounYL4O 


7100 
75u0 
Q110 
2350 
7550 
2350 
7550 
7550 
2260 
6000 
7550 
0660 
7400 
7500 
0110 
2240 
6270 
2200 
7400 


OU 
Ou 
0/7 
92 
0/ 
9 
0G 


OU 
Ou 


AUG QL48 


2467 
2488 
2469 
2490 
2491 
2492 
2493 


2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
25145 


2516 
2547 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2534 
2532 
2533 
2534 


PASS? 


PL 


PL? 


PL3 


PL4 


PLS 


Cut 


TILS 
nr Al) 
LDA 
STA 
LDA 
STA 
LDA 


STA 
LDX?7 
ADX? 
STX?7 
ADX? 
ADX7 
LXLo 
ADXO 
STXO 
CMPX7 
TPL 
LDX6 
TZE 
ADX6 
CMPX6 
TNZ 
S&X7 
EAA 
ARL 
TSX6 
STA 
ANX7 


TRA 
STC2 
NOP 
LDA 
STA 
LDA 
STA 
STA 
LDX6 
TZeE 
STA 
ADX6 
TRA 
STC2 
NOP 
LDXx4 
EAX7 
LDX0 
STXO 


FASS 1.5 


LbxXXT 
LEXX? 
=)040,DL 
LhAX2,SC 
5964 .9L 


LEXXZ,SC 
T&EPROG 
1,00 
TEMP 
“1,7 
1.0U 
TSPROG 
TBPROG 
ee1 
He, NU 
Pio 
2.7 
PLS 
TBPROG 
TEMP 
Fis 
TSPROG 
G,7 

18 

BCD 
1bxXx2,1P 
TS$PROG 


PL 
tEXRET 
LEXXL3 
LEXXT 
LEXX2 
BLINKS 
1$XxX2,SC 
LEXx2,SC 
2,6 

PL2 
18XX2,1N 
TEPROG 
PL4 
LSEXRET 
LEXXL3 
TESTAB 
DF,4 
=1,0U 
LEVEL 


FASS 


GkT 
AND 
GET 
ANU 
GET 


AN 
GET 
GET 
SAVE 
STEP 
AND 
GET 
ADD 
AND 
ARE 
YES 
GET 
TRAN 
MAKE 
Is T 
NO = 
GET 
AND 
AND 
CONV 
AND 
MAKE 


AND 
SAVE 
AND 
uET 
AND 
GET 


RAGE Kb 


14.5 


INITIAL TALLY WORL FOR PRINT ROUTINE 
INT TLALIEZE TALLY ®ORD 

A SPACE 

STORE [SN OUTPUT BUFFER 

THE DIGIT ONE 


STORE IN OUTPUT URFFER 
ANURESS OF STaRT AF PROGRAM TABLE 
POINTER TO REGINNING OF FIRST ENTRY IN Tarle 
LOCATION OF CURRENT TaslLt tNTRY 
TO NEXT ENTRY IN TABLE 
STEP OVFR LINK wORD 
LENGTH CF PROGRAM TABLE 
BASE LOCATION OF PROGRAM TAbLE 
STORE FOR COMPARE 
WE BEYOND THE END OF THe TAKLE 
~ GO TO CLEAN UP 
RELATIVE POINTER TO SURROUNDING RANGE 
SFER IF GLOPRAI. 
IT ARSOLUTE 
HTS THE LAST RANGE 
SkIP TO NEW LINE 
RELATIVE POINTER TO CURRENT KANGE 
PUT IF IN AU 
MOVE IT TO aL 
ERT RANGE TO DECIMAL 
STORE IN OUTPUT BUFFER 
XR « 7 ABSOLUTE 


LOOP 
RETURN 
PRINT QUT OUTPUT KUFFER 
INITEAL TALLY WORE FOR PRINT ROUTINE 
INITIALIZE TALLY wORD 
A WORD OF SPACES 


STORE SRAGE IN QNUTPUT BUFFER 
STORE SPACE IN OUTPUT BUFFER 


GET 


POINTER TO SURROUNDING RANGE 


NO MORE SO RESUME PRINTING RANGES 
STORE FOUR SPACES IN OUTPUT BUFFER 
MAKE RANGE POINTER ABSOLUTE 


AND 
SAVE 
AND 
GET 
GET 
GET 
AND 


LOOP 

RETURN 

PRINT LAST LINE FROM OUTPUT BUFFER 
POINTER TO START OF SYMBOL TABLE 
POINTER TO NEXT SYMROL IN XR - 7 
AN UNUSED LEVEL NUMRER 

INITIALIZE LEVEL 


v1355?7 b14 45926672 17,468 
A 
Gi¢213 uunono 2260 147 
U10214 006457 7479 OO 
010215 u1in405 694n Og 
ENU UF BINARY CARD Q0UNU1L41 
017216 635220 0667 OG 
046217 Oonong 7209 16 
010220 Uug6460 1nun oO 
010221 0192274 @Agn ou 
U10222 009000 2250 48 
G10223 006460 74uU0 OV 
010224 oonoo1 22u0 16 
Vic22edS 0016341 7160 16 
010226 O9ND0N0 6270 46 
010227 040213 7100 Ov 
016230 Gon000 2350 16 
v10251 777777 $750 07 
010232 096470 7nu0 oY 
016253 010803 7550 OO 
010234 O01N3N0 2350 oY 
010235 096562 7ou0 OU 
010236 vU000N80 2350 14 
U1U257 006554 7000 Ou 
610240 Gonono 2260 16 
0402414 006457 7460 54 
¥1C242 0109215 7100 OU 
010243 610247 7460 145 
END OF BINARY CARD 00000142 
010244 010251 7460 45 
040245 649254 7460 145 
040246 0103N6 7400 00 
0146247 Un0001 2250 03 
040250 0109230 7100 O00 
U10251 000002 2250 OS 
U10252 0410230 7400 OV 
610253 010226 7400 90 
6102594 000003 2250 063 
040255 049230 7100 00 
U1¢256 040226 7400 OOo 
U1c0257 010230 7400 O09 
614260 000003 2250 06 
010261 610230 7409 OD 
G10262 019230 7400 00 
b10263 0109230 7400 OV 
610264 090004710004 
010270 
b1C270 do00hD00NN0NU 
b1c¢271 099090000090 
Lic272 uognononoouny 
b16273 dO9N0NDN000NY 


eb UF BINARY CARD 00000143 


ALGOL466 


2535 
2556 
2537 


2538 
2539 
2549 
25414 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 


2560 
2361 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 


2576 
2577 


Cl.2 


CL3 


CLDEL 


CLTAB 


MTAB 


OTAB 


PTAB 


IDTAB 


IUREG 


LDxX6 
STX7 
TM] 


ADX6 
XL O 
CMPXy 
TZE 
LDxS 
STxo 
LDX0 
XEC 
EAX?7 
TRA 
LDA 
ANA 
TSXO 
STA 
LDA 
TSXG 
LDA 
TSXO 
LDX6 
STX6 
TRA 
XEC 


xEC 
XEC 
TRA 
LBX5 
TRA 
LDX5S 
TRA 
TRA 
LDAS 
TRA 
TRA 
TRA 
LDXx5 
TRA 
TRA 
TRA 


EIGHT 
OCT 


PaSS 41,5 


ua? 
LAST 
CL4 


TEDEF 


1,6 
~DEMODE*+CLTAB,9 
016 
ClLe2 
us 
“1,900 
BCD 
EM1+2 
EM1SC 
14XXX 
$0.4 
1EXXS 
0,6 
LAST, 1 
CLS 
MTABL5 


OTAR,5 
PTAB,5S 
] On 
1,090 
CLER 
2.0U 
CLER 
Cl.OK 
$,.DuU 
CLER 
CLOK 
CLER 
3,01; 
CLER 
CLER 
CLER 


U,0,0,020+4000,0U 
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MAKE XK - 6 POINT TO NEXT DEFINITION FOR SYMBOL 
SAVE PREVIOUS POINTER IN LAST 
NO MORE SO GO TO NEXT SYMBOL 


GET ABSOLUTE POINTER TO NEXT TABLE ENTRY 
GET LEVEL OF CYRRENT DEFINITION 

IS IT THE SAME AS THE LAST DEFINITION 
TRANSFER IF THE SAME 

NOT THE SAME SO SET STATE TO ZERO 

AND SET LEVEL TO THAT OF CURRENT ENTRY 
GET TYPE OF DEFINITION IN XR ~- O 

JUMP TO NEXT STATF USING XR = g AND XR ~- 5 
STEP TO NEXT DEFINITION 

AND LOOR 

GET LEVEL OF DEFINITION 

MASK OUT ALL BUT LEVEL 

CONVERT LEVEL TO DECI MaL 

AND STORE IN ERROR MESSAGE 

GET FALLY WORD TO ERROR MESSAGE 

AND PRINT [Tf 

GET FALLY WORD TO JDENTIFIER 

AND PRINT [IT 

GET POINTFR TO FOLLOWING TABLF ENTRY 
AND STORE IT IN PREVIOUS TABLE ENTRY 
AND CONTINUE PROCESSING DEFINITIONS 


tin D 


ENU 


otte74 
“L275 
UEGeY 6 
UL1Q277 
U1L(03uU0 VLASI4 
UL{OsuL 
U1U3vV02 
010303 
0463.14 
UiGsu5 vanung 
ULL 306 uge4sg 
U1C3U7 Vv1N279Q 
Vic 3to ugnono 
Uicesgi1 096457 
U16312 035234 
V1i0313 vugngne 
016314 635216 
010315 vugngno 
010316 u17015 
U10317 viNSd65 
vitdseoq 016775 
Uto321 0193354 


UF BINARY CARD 


Vicgse2 u16/6e2 
016323 0193555 
U10324 ugnunty 
010325 035716 
U10326 O000N0 
016327 046773 
vi03so 010355 
010354 035234 
010352 006457 
010353 d0900N0 
0103384 096469 
010335 Ogn000 
010356 Oon0n1 
010337 0964690 
01034¢ voOnOn1L 
0103491 35222 
010342 000001 
010345 0906437 
016344 049355 
U10345 ugooo1 
Uic346 Uu96412 
010347 0109353 
OF BINARY CARD 
U10350 Ug6415 
U10351 019355 
010352 019313 
010353 035234 


CUI ORUGUNY 
N9ANUTGNONENY 
LON QNODEONY 
Jo Or agagaunu 


voa1l> 49 


645012114192 
12619511404u 
voNangongnunu 
vanu4gon4anud4y 


Oulu 
22ur Ay 
75$M AY 
6210 16 
74/9 OY 
45un 96 
2?/0 Al 
U6/70 OY 
27600 {7 
1n60 Ns 
6qu0 Ou 
1neon oS 
6nuno0 OU 
Oounu144 
1960 OS 
601 Oy 
22/0 17 
06/0 OU 
2760 17 
1060 09 
6n1in OV 
6200 56 
22109 OO 
7419 40 
2219 O00 
4410 10 
7210 17 
7410 OY 
2210 17 
V61N 9 
0610 O¢ 
7009 00 
7409 OY 
2279 11 
1079 OS 
6nun OO 
Cnunul4as 
in7u OS 
6n19 Ov 
7409 O00 
2350 54 


ALG7L48 


ee ee 
2579 


2560 
2581 
2582 
2565 
2584 
2585 
2566 
2587 
2588 
2569 
2590 
25914 
2592 
2593 


2594 
2595 
2596 
2597 
2598 
2599 
2400 
24601 
24602 
246058 
2404 
2695 
2606 
26Q7 
2698 
2609 
2410 
2611 
2612 
2613 
2614 
2615 


2616 
2617 
2618 
2619 


BMLSC 
E M4 


KLNKS 


TEMP 
Ty 


LUNY 


[UNG 


IUN2 


IUN3 


TALLYis 
ycy 


uct 
ZERO 
Liyxe 
SREG 
bAXY 
STX7 
STZ 
LIX 7 
ADX?7 
LNX6 
CMPX6 
TZE 
CMPX6 
TZE 


CMPX6 
TNZ 
LDX7 
ANX?7 
LOX6 
CMPX6 
TNZ 
EAXO 
LDOX1 
STx1 
LDX4 
SXLi 
Lxb4. 
STX14 
LOX4 
ANX4 
ADX4 
TSX0 
TRA 
LDX7 
CMPX7 
TZE 


CMPX7 
TNZ 
TRA 
LDA 


PASS 1,5 


EMD eds 


PAGE od 


u12912114107,126199114049.0 


040n4n040040 


LEVEL 
LOREG 

0,6 

LAST 
ABWORK, I) 
2,1 
TOMODE 
U,7 


MBEEMPTY,DU 


TDN5 
MEMMI,DU 
IONG 


MSREF, DU 
TDN4 

1,7 
TEMODE 
0,7 
MEMMI],DU 
INN4 
ASWORK, ID 
LAST 

0.0 
LEVEL 
u,0 

1,7 
LEVEL 


1,1 
DSMODE, AU 
INNS 


DSINENT, DU 


JON4 
IDNG 
ASWORK, PDI 


GET CURRENT LEVEL 

SAVE REGISTERS 

GET POINTER TO CURRENT 
STORE LEVEL FOR TLU 
PA}\) BOTTOM OF STACK WITH A ZERQ 
GET MODE POINTER OF INENTIFIER 
MAKE [IT aRSOLUTE 

GET ACTUAL MONE TYPE 
IS IT A BAD MODE 

YES ~ DELETE IT AND CONTINUE 
IS IT A MODE MONE INDICATION 
YES - JUMP TO LOOK UP MMI 


TDENTIFTFR IN XR & 4 


IN XR = 46 


IS IT A REFERENCE TYPF MODE 

NO » MUSY BE A GOOD MODE SO POP 
GET MODE REFERED TO BY REFERENCE 
MAKE POINTER ABSOLUTE 

GET ACTUAL MODE TYPE IN XR = 6 

IS IT a MODE MONE INDICATION 

NO = MUST BE a GOON IDENTIFIER 
GET A WORD IN THE WORKING STACK 
GET POINTER TO POINTER TO CURRENT 
ANU STORE IN STACK 
GET CURRENT LEVEL OF 
AND STORE IN STACK 
GET LEVEL OF MONE MODF INDICATION 
AND STORE FOR TABLE LOOK yP 

GET POINTER TO NEFINITION FOR MODE 
MAKE IT ABSOLUTE 

MAKE XR - 4 POINT TO DEFINITION CHAIN 
LOOK UP MODE OF MONDE INDICATION 
NOT FOUND SO BAN IDENTIFIER 

GET FYPE OF DFFINITION IN XR © 7 
IS IT A MODE DEFINITION 

YES = GOON IDENTIFIER SQ PREVIQUS 


INENTIFTER 


IDENTIFIER 


INDICATION 


IS RAD 


IS IT AN IDENTIFIER DEFINITION 

NO + SO BAD IDENTIFIER 

IDENTIFIER SO RFCURSE TO SEE IF vaLtoD 
DELETE REFERENCE TO LAST IDENTIFIFR 


UL957 


END 


END 


04 Us-26-72 
A 

010354 777777 
010355 035234 
010356 619374 
U10357 Gongno 
01063600 0696460 
U16364 Onngong 
010362 Uug6457 
610363 0099050 
0160364 035229 
040365 935234 
U1ic366 0194904 
016367 035234 
016370 Ugnono 
G10371 006457 
010372 006457 
040373 010343 
046374 619270 
010375 006460 
OF BINARY CARD 
010376 006457 
U16377 010260 
010400 Uu1N226 
010401 019279 
0404U2 096460 
010403 096457 
010404 010240 
010405 odo0nnne 
0140496 vugng0gn00 
O104u7 Gineto 
16410 U35216 
0140411 610637 
010412 oon002 
040413 035217 
016414 010637 
610415 vunnane 
010416 Oon0ont 
U10417 0149706 
U10420 635234 
610421 0635235 
040422 041305 
010423 035234 
UF BINARY CARD 
610424 095754 
610425 411306 
016426 035234 
U1C6427 005754 
vi04$90 u3g5234 
0464314 619544 
U1C4382 010639 


17,863 


6000 Dy 
2350 54 
6A00 OO 
6200 09 
7400 OV 
6210 01 
7419 UO 
2210 11 
0610 Ou 
2340 54 
6Nu0 0 
0110 56 
2219 11 
7419 91 
2210 OO 
7400 OO 
0760 OQ 
7409 00 
000U0U146 
7470 00 
7460 45 
7400 OO 
0750 09 
7400 00 
7470 OV 
7400 OQ 
0640 03S 
2340 44 
601i oOo 
2270 ON 
7n00 00 
2200 41 
22/0 OV 
7000 00 
7200 11 


2200 O65 
71UN OG 
450N 56 
4500 56 
2209 O9 
7400 56 
00000447 
741/79 OY 
22un 00 
7400 56 
741709 O00 
2270 54 
6nun Ob 
7n0N OV 


AUGIL45 


24620 
2621 
2822 
2623 
2424 
2625 
2626 
2he7 
2428 
2629 
2630 
2631 
2532 
2633 
2634 
2635 
2436 
2637 


2638 
2639 
2649 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2548 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2556 
2657 
26538 
2659 
2660 


2661 
2462 
2663 
2664 
2665 
2566 
2667 


1UNG 


LUN5 


IDN6 


1UN7 


CL4 


START 


pup 


Tae 
LDA 
TZe 
EAXO 
STXG 
EAX4 
STX4 
LOX4 
ADX4 
SZN 
TZE 
NOP 
DX 
STX4 
LDX4 
TRA 
LREG 
STX0 


STX7 
XEC 
TRA 
LREG 
STXO 
STX7 
TRA 
ADX4 
SZN 
TNZ 
LDX7 
TSXO 
LDXo 
LDX7 
TSXO 
LXL0 


LDx0 
TRA 
STZ 
STZ 
OxX0 
STXO 


XED 
LDXO 
STxX0 
XED 
LOX? 
TZE 
TSX6 


Pass 1,5 


SFERROR 
ATWORK, DI 
TDN6 

QO, AL 
LEVEL 

0, Au 

LAST 

QO.1 

TEDEF 
AEWORK, DI 
IDN7 
AFWORK, ID 


LAST 
IDTAB,S 
CLOK 
]DREG 
LEVEL 
LAST 
CLDEL 
2,0 

SC 14 
CLi 
TEMODE 
XFR 

2.14 
TSBOUND 
XFR 

2:1 


1, Du 
$n2 
ASWORK, ID 


ASSTACK, ID 


M4 
ABWORK, ID 


THWOVE 

M2 
ASWORK, ID 
TEWOVE 
AFWORK, DI 
EXIT 

XFER 


PAGF AY 


NO MORE SO LOGICAL BUG IN PROGRAM 
GET REFERENCE TO LAST INENTIFIER 

NO MORE SO FXIT aS GUOD IDENTIFIER 
GET LEVEL IN XR = 9 

AND STORE FOR TABLE LOOK UP 

GET POINTER TO POINTER TO IDENTIFIER DEFINITION 
AND STORE IN TARLE LOOK UP ROUTINE 
GET POINTER TO TDENTIFIFR DEFINITION 
AND MAKE {T ARSOLUTE 

TEST TOP WORD IN STACK 

NO MORE SO EXIT aS San IDENTIFIER 
RESTORE TALLY WORD 

GET POINTER TO FOLLOWING PEFINITION 
AND STORE IN PREVIOUS DEFINITION 

GET POINTER TO CONTINUE 

AND GO ¥O FABLE LOOK UP ROUTINE 
RESTORE REGISTERS 

RESTORE LEVEL 


RESTORE LAST 

CONTINUE FINDING NEXT STATE 

AND LOOP 

RESTORE REGISTERS 

RESTORE LEVEL 

RESTORE Last 

AND DELETE IDENTIFIER DEFINITION FROM TagLlEe 

STEP TO NEXT IDENTIFIER 

JS THERE ANOTHER IDENTIFIER 

TRANSFER TO LOOP IF YES 

GET ABSOLUTE POINTER TO MODE TABLE 

ELIMINATE aLL MMI ENTRIES IN MODE TaBLE 

CAUSE XFR TO LOAD MODE DEFYN;TyONS FROM DEF TABLE 
GET ASSOLUTFE POINTER TO BOUND TABLE 

ELIMINATE ALL MM] ENTRIFS IN BOUND TABLE 

MAKE XFR TO LOAN ROUND DEFINITIONS FROM pEF TaBLE 


GET RELATIVE POINTER TO START OF MODE TaARLE 
AND JUMP TQ SQUEEZE MODE TABLE 

PUT ZERO ON BOTTOM OF WORKING STACK 

PUT ZERO ON BOTTOM OF CONTROL STACK 

GET FIRST MODE FOR COMPARE 

AND STORE IN WORKING STACK 


CHECK FOR STACK OVERFLOW 

GET SECOND MODE FOR COMPARE 

AND STORE IN WORKING STACK 

CHECK FOR STACK OVERFLOW 

GET FIRST MODE TO CHECK 

NO MORE SO EQUIVELENT MODES 

IF MOnE REFERS TO ANOTHER - GET ORIGINAL MOnE 
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A FASS 14,5 
U1045$ vaegrg 621% 174 2463 bAK1 0,7 ANU PUT TT IN XR © 1 
v10434 vs>5234 Zev 94 2469 LUX7 ALWOKK, |] GET SECOND MUPE TO CHECK 
U10455 U176%0 Jour OY 2470 TSxo XFER LF MUNE REFERS TO aNOTHER = GET URTRINAL MONE 
U1u4s6 Ugnung 6229 17 2671 EAXe 0,7 AND PJT IT IN XR © 2 
U10457 v1N440 74107 OV 2472 STX1 He) SAVE POINTER TO FIRST MONDE 
U10440 Ognong inen ns 24673 CMPXx2 ey NU ARE THE TwQ MODES THE SAME 
010441 Uin43o 6nun ou 2674 TZE POP YES = CONTINUE TO PROVE EQUIVELENCE 
G10442 777777 2350 41 2675 LDA “191 GET LINK WORD OF FIRST MODE 
610443 777777 1150 te 2476 CMPA “142 SEe IF ¥T IS THE SAME AS THE SECOND MODE LINK 
010444 u40550 601n OU 2677 TNZ WEQ JF NOT THE Same THERE IS NO HOPE 
610445 Unrognn 2399 411 2678 LDA Qal GET TYPE nF FIRST MODE 
010446 ugnono 1150 te 2679 CMPA Gs2 1S TT THe SAME TYPE AS THE SECOND MODE 
010447 010550 6010 OV 24B0 TNZ NEU ND - MODES ARE pIJFFERKENT 
01064590 v19454 7410 Oy 2681 STX4 tet STURE POINTER To FIRST MODE FOR COMPARE 
0106451 vuonono 1nen as 2582 CMPXv #a,NU IS IT SMALLER THAN SECOND MODF PUINTER 
ENU OF BINARY CARD GNUNYV148 
010452 019456 6ndn O14 2683 TPL NSWAP NO = DO NOT SWAP MODES 
010493 Ontono 6250 11 2684 EAXS Gy 1 SAVE FIRST MODE IN XR - 3 
010454 Ugn0%0 6219 12 2685 EAX! Ur2 MOVE SECOND MODE TO XF = 4 
010455 Ognono 6220 13 2486 EAX2 0,3 MOVE FIRST MODE TO XR - 2 
010456 O0N0NO 2360 12 2687 NSWAP LDQ U,2 GET FIRST WORD OF SECONN MQDE 
016457 035216 1610 Su 2688 SBX1 TEMODE MAKE FIRST MONE POINTER RELATIVE 
010460 035216 1620 OO 2689 SAX2 TEMODE MAKE SECOND MODE RELATIVE 
G10964 035235 7560 56 2690 STQ AESTACK,]D SAVE FUR POSSIBLE RESTORATION 
010462 u95742 71/70 Ov 2694 XxED TSSOVE CHECK FOR STACK OVERFLOW 
01¢403 035235 7420 56 2492 STX2 ASSTACK, ID SAVE LOCATION OF WORD FOR POSSIRLFE RESTORATION 
010464 95742 74/0 OD 2693 XED TSSOVF CHECK FOR STACK OVERFLOW 
010405 035216 0620 Ou 2594 ADX2 TEMODE MAKE POINTER TO SECOND MODE asSOLUTE 
010466 017012 2209 O56 2695 LDX0O MEXFER,DU GET MODE REFERENCE INDICATION 
010467 G00000 74 12 24596 STX6 0:2 AND STORE IN SECOND MODE 
010470 Og00N0 4419 12 2697 SXLt Qr2 STORE POINTER To YARGET MODE 
010471 035216 9610 ny 2698 ADX4 TEMODE MAKE FIRST MODE POINTER ABSOLUTE 
010472 UoN0ND 6209 01 2499 EAXO OG, AU GET TYPE OF MODE IN XR - 9g 
U10473 646762 1000 O¢ 2700 CMPXQ MSREF,DU IS IT REF 
0106474 019510 6000 80 2701 TZE SNGL YES + CHECK SINGLE POINTER 
010475 016770 1009 08 2702 CMPXO MEROW, DU 1S IT ROW 
010476 010510 6009 OU 27038 TZE SNGL YES = CHECK SINGLE POINTER 
010477 016776 inun O3 2704 CMPX9 MEROWE, DY IS IT END ROW 
ENUD OF BINARY CARD gongunut149 
0105U0 0149510 6n09 OU 2705 TZE SNGL YES + CHECK SINGLE POINTER 
016504 017007 1nu0 Os 2706 CMPXyU MBUNION, DU IS IT UNJON 
040502 049515 6000 OV 2707 TZE MULT YES - CHECK LIST OF MODES 
010503 ui16757 1nun OS 2708 CMPx9 MESTRCT, DU IS If STRUCTURE 
010504 010515 6nuY0 OG 2709 TZE MULT YES = CHECK LIST OF MODES 
010505 vu17001 10y0 43 2710 CMPXQ MS$PROC,DU JS If PROCEDURE 
010506 U410515 6nun OO 2711 TZE MULT YES = CHECK LIST OF MODES 
010507 010550 7100 Ou 2712 TRA NEQ NOT ANYTHING ABOVE SO DIFFERENT MODFS 
01905190 oO0on0f1 2270 11 2713 SNGL LDX?7 1,1 GET FIRST MODF TO CHECK 
01405114 010534 7000 ODO 2744 TSXO PUSH AND PUSH {fT ON THE STACK 


010512 Oonaont 2270 te 2715 .DX7 1,2 GET SECOND MODE TO CHECK 


C455/ 


END 


END 


Uy L5=260e72 


A 
U1i0513 049534 
10514 049430 
046515 777777 
b10516 vUgou1 
010517 U1043g 
C10520 uonony 
bicS2e1 090001 
C105¢2 oanano 
040523 0149505 
G10524 ogoono 
0105e5 uvinsns 
OF BINARY CARD 
U105¢6 610550 
Ui0527 Og00N0 
010530 010534 
610551 090000 
0105382 0649534 
610533 040516 
U1¢534 040543 
0405385 0352416 
410556 035216 
U10537 035234 
010540 005754 
010544 035216 
010542 035216 
10543 doroto 
010544 035235 
046545 049674 
640596 035235 
U10597 040544 
040559 035235 
U10551 010556 
040552 Uu35235 
010553 035216 
OF BINARY CARD 
040554 000000 
010555 040559 
016556 035234 
01406557 040674 
010560 035234 
044564 019556 
616562 010627 
010563 035214 
619564 035235 
U10565 0595742 
010566 010639 
010567 On00000 
U16570 016779 
610571 019574 
Lict572 016776 


17,803 


70U9 
74u0 
2250 
1459 
6n0n 
V610 
G62¢0 
7240 
7440 
7240 
1040 


QOUNULDO 


6010 
2270 
7000 
2279 
7000 
7109 
740n 
1610 
1620 
7470 
7470 
Y619 
0620 
7400 
2350 
6000 
2350 
7400 
222N 
onyun 
236N 
0620 


QO00uUL51 
12 


756N 
7400 
2390 
6009 
2350 
7409 
7490 
1660 
4500 
7470 
7000 
22UNn 
1000 
600n 
1008 


0 


OV 


00 
54 
00 
54 
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2716 
2747 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 


2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2749 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 


2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 


MULT 
MULT4 


PUSH 


PUSHX 
EXIT 


NeQ 


FAIL‘ 


RCHK 


RCHK4 


TSxO 
TRA 
LDxS 
SRX3 
TZE 
ADX1 
ADK2 
LXL4 
STX4 
LXL4 
CMPX4 


TNZ 
LOX7 
TSXO 
LDX7 
TSXO 
TRA 
STXo 
SBX4 
$B X2 
STX7 
XED 
ADX1 
ADX2 
TRA 
LDA 
TZE 
LDA 
TRA 
LOX2 
TZE 
Ba 
ADX2 


STQ 
TRA 
LDA 
TZE 
LDA 
TRA 
STXu 
SBX6 
STZ 
XED 
TSX0 
LDXO 
CMPXQG 
TZE 
CMPXO 


PASS 145 


PiuSw 
POP 
“tat 
1, D1) 
PP 
1,0U 
1,D0u 
Url 
TEMP 


TEMODE 
TEMODE 
ADWORK ITD 
TSWOVF 
TEMODE 
TEMNDE 

en 
AtSTACK, DI 
WONE 
ASSTACK.DI 
EXIT 
ASSTACK,D! 
PAIL’ 
AFSTACK,DI 
TEMNDE 


Ure 

NEQ 
AtWwORK,DI 
DONE 
ASWORK,DI 
FAILYA 
RCHKX 
TEWORK 
AFSTACK, ID 
T4Sove 
AFXFER 
u,7 
MERROW, DU 
ROKK 2 
MEPROWE, DY 


P AGF 


AND PUSH IT ON THE STACK 
CONTINUE PROVING FQUIVELENCE 
GET NUMBER OF WORNS IN TaRLe ENTRY 


DECREMENT NUMBER OF MODES LEFT TO CHECK 
ALL DONE ~ CONTINUE PROVING EQUIVELENCE 


STEP TO NEXT MONE IN MONE 1 
STEP TO NEXT MONE IN MONE 2 
GET FaG OF FIRST MODE 

AND STORE FOR COMPARE 

GET TAG OF SECOND MODE 

SE& IF TAGS aRE THE SAME 


NO = FAIL TO PROVE EQUIVELENCE 
GET FIRST MODE 

AND PUSH IT ON THE STACK 

GET SECOND MODE 

AND PUSH fT ON THE STACK 

GO BACK FOR MORE MODES 

SAVE RETURN 

MAKE FIRST MONE POINTER RELATIVE 
MAKE SECOND MODE POTNTER RELATIVE 
PUSH MOBE ON THE STACK 

CHECK FOR STACK OVERFLOW 

MAKE FIRST MODE POINTER RELATIVE 
MAKE SECOND MODE POINTER RELATIVE 
AND RETURN 

DELETE A WORD FROM THE STACK 
TRANSFER 'F ALL DONE DELETING 
DELETE A WORD FROM THE STACK 

AND LOOP 

GET ADDRESS OF WORD TO RESTORE 
TRANSFER IF NO MORE TO FESTORE 
GET RESTOREN WORD 

MAKE POINTER ABSOLUTE 


RESTORE WORD 

AND LOOP 

DELETE A WORD FROM WORK 
TRANSFER IF ALL DONE 
DELETE A WORD FROM WORK 
AND LOOP 

SAVE RETURN 

MAKE XR » 6 RELATIVE 


MARK CURRENT EXTENT OF CONTROL STack 


CHECK FORK STACK OVERFI.OW 
MAKE MODE POINTER ABSOLUTE 
GET TYPE OF MODE IN XR - OQ 
IS IT A ROW MODE 

TRANSFER IF ROW MODE 

1S IT AN END ROW MODE 


71 


END 


END 


“1( 573 Upoory 
U16574 UsSeR5 
L4+0575 19974 
U1(6576 6149677 
106577 U35214 
¥16600 Uunonond 
ULC6UL1 016757 
UF BINARY CARD 
U1C6U2 U19622 
010603 vU35216 
U1L1C604 ugngndg 
016605 635235 
010606 up95742 
046607 035235 
Gie6lo Uu3g5235 
010611 35235 
¥10612 vu35216 
010613 777777 
010614 019622 
010615 0419617 
0106616 035235 
0140617 Gonando 
Uic6eo 9AgnanoD 
Uic6e1 049566 
Uig622 035235 
U10623 U10626 
U10624 035235 
010625 010607 
U1c626 035214 
010627 0do00000 
OF BINARY CARD 
Gic6so 010634 
010634 U35216 
U1g¢652 donono 
U1c633 017012 
010654 600000 
0166355 090000 
010636 049634 
010637 U1N666 
010640 000001 
616644 777777 
010642 019672 
U10643 000090 
U10644 U16773 
010645 0406709 
01¢646 Q000f1 
U10647 Uu3g5222 
016650 ugoont 
G16651 900001 
U1N652 066440 


L7e* 


601) 
234) 
601" 
eryn 
0667 
7100 
inun 


Cnunyiose 


6n1o 
16/9 
63590 
7550 
7470 
y540 
72u0 
2279 
Q67N 
1000 
60900 
7400 
0119 
0670 
2270 
7100 
2340 
6000 
0110 
7400 
0669 
7109 


Oo0unNY1ISS 


7490 
0670 
2200 
1090 
6010 
7270 
7100 
7490 
0670 
2340 
6000 
2200 
1009 
6010 
22109 
0619 
G610 
7209 
7400 


a5 


OU 
34 
d0 
Ou 
uae 
Lu 
ie) 


OU 
Ou 
47 
56 
OU 
54 


Ou 


ALGILAN 


2764 
2765 
2766 
2767 
2768 
2769 
2770 


2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2760 
2781 
2762 
2763 
2784 
2785 
2766 
2787 
2788 
2789 
2790 
2791 
2792 


2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2a01 
2892 
2803 
2804 
2805 
2806 
2807 
2898 
2809 
2810 
2811 


RCHKe 


KCHKS 


RUHK4 


RCHKS 


RCHK6 
RUHK7 
RUHKX 
KFER 

XFER1 


XFERX 


XFR 
XFR4 


TNZ 
SZN 
TNZ 
LDOxXKO 
ADX6 
TRA 
CMPXQ 


TNZ 
SBX7 
EAA 
STA 
XED 
AOS 
LXLO 
LDX7 
ADX7 
CMPXQ 
TZE 
STXO 
NOP 
ADX7 
LOX7 
TRA 
SZN 
TZE 
NOP 
TRA 
ADX6 
TRA 


STXO 
ADX7 
LDOXG 
CMPX9 
TNZ 
LXL7 
TRA 
STXO 
ADX7 
SZN 
TZE 
LDXo 
CMPXQ 
TNZ 
LDX1 
ADX4 
ADX1 
LXLG 
STXO 


PASS 1,5 


ROHKS 
ATSTACK, DI 
KCHK2 
RCOHKX 
TEWORK 

1,0 
MESTRCOT,DU 


ASSTACK, ID 
TESOVE 
AFSTACK,DI 
ASSTACK,s] 
ASSTACK, | 
TEMODE 
“1.7 

RCHK6 
RCHK5 
ASSTACK, 1D 
##, DU 

0,7 

RCHKL 
ASSTACK,DI 
RCHK7 
AFSTACK, ID 
REHK4 
TEWORK 

at 


XFeERX 
TSMQDE 
0,7 
MEXFER,DU 
*% 

Us7 
XFERYL 
XFRYX 
1,dU 
71.7 
XFR6 

0,7 
MSMMI,DU 
XFRS5 

1.7 
TESTAB 
DF ,nY 
1,7 
LEVEL 


FAGE 7? 


TRANSFER TF NOT & ROW MOLE 

[3 CONTROL STACK MARK DELETEL yi T 
TRANSFER TF MORE TO UFLFETE 

GET RETURN ADDRESS In XR - O 

MAKE XR © 6 AKSOLI'TE 

AND GIVE ROW RETURN 

IS If a STRUCTUREN MODE 


NO » TRANSFER TO UNSTACK 

GET RELATIVE MONE IN XR - 7 

GET MODE tN au wITH ZERO IN aL 

AND) STORE IN CONTROL STACK 

CHECK FOR STACK OVERFLOW 

INCREMENT FIELD IN TOP MONE 

GET POSYTIQN IN XR = 9 

GET MODE IN XR - 7 

MAKE MOBE POINTER ABSOLUTE 

1S CyRRENT POSITION BEYOND END OF STRUCTYRE 
TRANSFER IF YES 

STORE POSITION FOR X REGISTER ANDING 
RESTORE TOP WORD IN CONTROL STACK 

GET POINTER YO CURRENT FIELD IN XR - 7 
GET MODE OF CURRENT FIELD IN XR - 7 
AND SEE IF THIS MODE IS A ROW TYPE MONE 
CHECK CONTENTS OF TCP OF CONTROL STACK 
TRANSFER IF aLL UNSTACKED 

RESTORE TOP WORN IN CONTROL STACK 

GO CONTINUE CHECKING 

MAKE XR » 6 AKSOLUTE 

AND RETURN AS NO ROW MODE 


SAVE RETURN 

GET ABSOLUTE PO{NTER TO MODE 

GET FYPE OF MODF 

DOES IT REFER TO ANOTHER MODE 

NO © EXIT 

GET MODE THAT [S REFERED TO 

AND LOOP 

SAVE RETURN 

SET XR - 7 TO POINT TO THE NEXT TaBLE ENTRY 
SEt IF THERE 1S A NEXT ENTRY 

TRANSFER IF ALL DONE 

GET TYPE OF TABLE ENTRY IN XR ~ Q 

IS IT A MODE MONE INDICATION 

TRANSFER YF NOT A MMI 
GET [DENTIFIER OF MMI 
MAKE JT aBSOLUTE 

MAKE {[T POINT aRSOLUTELY TO DEFINITION CHAIN 
GET LEVEL OF IDENTIFIER IN XR «= 0 

AND STORE AS PARAMETER TO TLU ROUTINE 


IN xR + { 


v1057 


onl 


EwD 


U1 uUS-26-72 


A 


0106653 616437 
010654 319660 
010655 UOnNovL 
OF BINARY CARD 
C10626 006412 
040657 UU 1N644 
010660 617015 
vic6o1 Cn00n0 
Vic662 ugnono 
U10663 0149670 
010664 vU179012 
010665 o0n0000 
010666 0909090 
U1ic667 GUonong 
010670 777777 
010673 010649 
040672 049666 
U10673 Ugoonds 
010674 0413n6 
U1C675 035216 
010676 777777 
010677 oOOngonL 
QU10700 035216 
010701 011306 
010702 035216 
010703 777777 
OF BINARY CARD 
010704 010420 
010705 041505 
010706 035216 
040707 777777 
Q1c710 © 6090001 
010711 035216 
040712 011305 
016713 635216 
010714 777777 
010715 010676 
010716 6on008 
6016717 dn00000 
010720 003767 
016721 001677 
610722 0092152 
040723 092153 
0140724 001674 
10725 001675 
010726 035220 
Ui8727 ugonont 
V10750) «6Unn001 
010734 u06415 


ENL CF BINARY CARD 


17,863 


7009 OG 
7409 OY 
e2u9 11 


0900194 


ingo os 
6ooun ov 
22un 03 
74009 17 
49470 17 
7100 OQ 
22u0 03 
7490 47 
7169 00 
4409 147 
06790 17 
7100 OY 
2200 OQ 
7100 10 


22un 09 
G46u0 00 
0609 10 
C6un OS 
1600 00 
7400 OV 
G6yuN AD 
2340 10 


Q0000155 


6n10 OY 
2209 00 
06009 O00 
0600 10 
0690 O38 
1690 00 
7490 00 
0609 O0 
2347 10 
6010 00 
6360 00 
2350 07 
7009 00 
4509 00 
4509 00 
45un 09 
2350 00 
7559 OY 
2217 00 
0619 18S 
2220 il 
1029 08 


Gaungis6 


AULGIL66 


2242 
2843 
2814 


2815 
2°46 
2217 
2318 
2819 
2820 
2fet 
2822 
2823 
2224 
2825 
2826 
2827 
2828 


2829 
2830 
2831 
2832 
2233 
2834 
2835 
2836 


2837 
2838 
2839 
2840 
2844 
2842 
2843 
2844 
2845 
2846 
2847 
2248 
2849 
2850 
2R54 
2852 
2853 
2854 
2855 
2256 
2857 
2R58 


XERD 


KER 


XFR4 
XFRX 
XFRS 


XFR6 


DUNE 


Su4q 


$Q2 


Lely 


TSx0 
TRA 
LOX 


CMPXO 
TZe 
LOXO 
STXO 
SXL7 
TRA 
LDXo 
STXO 
XEC 
$XL0 
ADX7 
TRA 
LDx0 
TRA 


LDXO 
ANXO 
ADXO 
ADXO 
SBX0 
STX0 
ANX0 
SZN 


YNZ 
XO 
ADXQ 
ADXO 
ADXO 
SBX0 
STX0 
ADXO 
SZN 
TNZ 
EAQ 
LNA 
YSXoO 
STZ 
s7Z 
STZ 
LDA 
STA 
LDX4 
ADX4 
LOx2 
CMPX2 


PASS 1,5 


TLU 
XFRZ 
1,1 


DEMODE, AU 


XFR4 


MEeEMPTY, DU 


U,7 
Q,7 
XFRS 


MOXFER, DU 


O,7 
ree 
0.7 
74,7 
XFRq 
XFRX 
1,0 


Mo 
TEMODE 
“1.9 
1,0 
TEMODE 
M2? 
TSMODE 
“1:0 


TEMNDE 
“1.90 
1,00 
TEMODE 
M1 
TEMODE 
“41,0 
So. 

$ 

Q,0L 
$SEFP 
ASEOF 
AtPEEKF 
ASQEEKF 
ASINI 
AFIN 

TS DEF 
1,20 
1,1 


DFINENT,DU 


PAGF 73 


SEARCH FOR IDENTIFIER IN SYMBOL TABLE 
NOT FOUND »* BAD ENTRY IN TABLE 
GET TYPE AF SYMROL TARLE ENTRY IN XR = 


IS IT A MODE DEFINITION 

YES - JUMP TO INSERY XFER 

GET A BAD ENTRY FLAG IN XR ~- Q 

AND STORE IT IN TABLE ENTRY TO REPLACE MMI 
STORE UNIQUE NUMBER IN LOWER HALF AS RAD MODE 
AND GO CHECK NEXT ENTRY IN TABLE 

GET A TRANSFER [N XR © A 

STORE IN TABLE ENTRY TO REPLACE MM] 

GET POINTER TO EQUI VELENT ENTRY 

STORE IN FABLE ENTRY 

STEP XR w 7 OVER CURRENT ENTRY 

AND LOOP 

GET RETURN ADDRESS IN XR - O 

AND RETURN AFTER FXECUTFD INSTRUCTION 


GET RELATIVE POINTER TO MODE 2 
MAKE IT aBSOLUTE 

STEP TO NEXT TARLE ENTRY 

STeEP ACROSS LINK WORD 

MAKE POINTER RELATIVE 

AND STORE AS MONE 2 

GET ABSOLUTE POINTER TO MODE 2 
SEE IF AT END OF MODE TABLE 


ATTEMPT TN PROVE EQUIVELENCE 

GET RELATIVE POINTER TO MODE 1 
MAKE IT aBSOLUTE 

STEP TO NEXT TARLE ENTRY 

STEP ACROSS LINK WORD 

MAKE POINTER RELATIVE 

AND STORE AS MODE 1 

GET ABSOLUTE POINTER TO MODE 14 
SEE IF AT END OF MODE TABLE 

JUMP TO SET MODE 2 

FILE REFERENCE NUMBER 

DESIRED POINTER SETTING 

AND RESEY POINTER IN SOURCE FILE 
RESET EOF FLAG 

INITIALIZE INPUT ROUTINE 
INITIALIZE INPUT ROUTINE 

GET INITIAL JNPUT ROUTINE TALLY 
AND INITIALIZE TNPUT ROUTINE 

GET POINTER TO START OF DEFINITION TAKLE 
STEP OVER ENTRY HFADER WORD 

GET TYPE OF DEFINITION IN XR «© 2 
IS IT AN IDENTIFIFR DFFINETION 


END 


END 


i IS 7Q2Ha7e 
A 
C1075? vtnN744 
G1073$ sgnyne 
“1.734 coang3t 
1735 ¥19741 
1.736 U,6464 
Lig7sS7? 044464 
vic749 0 «6unnans 
040744 777777 
vie742 “uangng 
010743 U4,n727 
Ui6744 U35216 
U1c0745 cnqoont 
U10746 777777 
010747 G1i0740 
010750 unnogt1 
010754 oognon1 
040792 049745 
0107593 vonono 
010754 040630 
U1i0755 vu35216 
010756 dgn0ND 
U10797 010759 
OF BINARY CARD 
010769 000037 
016761 011305 
U10762 U1n773 
U10763 011305 
014764 035216 
010765 777777 
016766 Uo0001 
010767 777777 
V1i0770 006210 
01c771 035216 
0140772 010761 
01n773 Unnonn 
010774 01630 
016775 vo000n0 
U1c776 777777 
010777 Gpcod00 
G11000 dgn0no 
011091 935216 
011002 16762 
011003 041021 
011004 017001 
011005 041077 
OF BINARY CARD 
011006 U46757 
011097 011122 
011010 0147097 
6141011 011225 


17,863 


oon OY 
2229 11 
ined O08 
onin Ov 
7200 Oy 
0540 OY 
7409 121 
UALN t1 
2346 i1 
6010 OV 
2219 OU 
gG41n nS 
2227 11 
60u0 Ov 
0610 OS 
1620 83 
6000 49Q 
2270 11 
7000 OG 
1670 OQ 
7470 11 
71400 OQ 
0000u157 
2270 ns 
7470 00 
7090 90 
2270 00 
0670 OU 
067N 17 
0670 05 
2200 17 
6009 O00 
1670 OV 
74U0 OU 
625) 1y 
79000 OO 
7210 47 
7229 17 
6010 13 
2200 17 
1470 QO 
100 os 
6000 O00 
1o0un AS 
6n00 O00 
00000158 
1aon os 
6000 QU 
1090 83 
6N09 00 


ALGIL65 


2R59 
2369 
2361 
2°62 
2263 
2564 
2865 
2266 
2567 
2268 
2869 
2870 
2274 
2872 
2873 
2R74 
2875 
2876 
2277 
2873 
2879 
2A80 


2°84 
2282 
2883 
2fB4 
285 
2586 
2887 
2888 
2889 
2890 
2891 
2292 
2293 
2294 
2895 
296 
2897 
2898 
2899 
2900 
2901 
2902 


2993 
2994 
2995 
2906 


Lule 


Lol 


UPL 


UP? 


SETMS 
Se Txt 


SETM 


TZ 
LOX? 
CMPX? 
INZ 
LXLO 
Aas 
STXe 
ADX4. 
SZN 
TNZ 
LDX1 
ADX1 
LOX? 
TZE 
ADX4 
SBX2 
TZE 
LDX?7 
TSX0 
$BX7 
STX7 
TRA 


LDX7 
STX7 
TSX0 
LDX7 
ADX7 
ADX7 
ADX7 
LDXO 
TZE 

SBX7 
TRA 

EAXS 
TSxo 
LXL4 
LXL2 
TNZ 

L, OX0 
SBX7 
CMPXQg 
TZE 

CMPX9Q 
TZE 


CMPXQ 
TZE 
CMPX() 
TZE 


PASS 1,5 


LKL3 
2.1 
MS$LRL, DU 
LBL3 
2EGLBL 
2$GLBL 
$a1 

bd Der i | 
Url 
LBL 
TSMODE 
1,.bU 
"Let 
SETMS 
41,DU 
1,DU 
UPL 
Ord 
ASXFER 
TEMODE 
Ord 


TSMODE 
ME&REF, DU 
REF 
MEPROC, DU 
PROC 


M&STRCT,DU 
STR 
MSUNION, DU 
UNION 


PAGE 


TRANSFER TF NOT 

Gol MOUE OF INENTIF ICR IN KR - 2 
IS If A LABEL DEFINITION 

TRANSFER [FF NOT 

GET NEXT LABEL IN XR - ff 
INCREMENT LABFL GFNERATOR 

STUGRE UNIQUE LAREL IN DFFINITION 
STEP TO NEXT DEFINITION 

SEe IF THERE ARE ANY MORE DEFINITIONS 
TRANSFER {IF THERE aRE MORE 

GET POINTER TO RaSE OF MONE TabLE 
STEP nVER HFADER WoRD 


74 


GET NUM3ER OF yORDS IN THIS MODE TaRLFE ENTRY 


EX]T 1F END OF MODE TaglLe IS REACHED 
STEP OVER MODE TYPE WORD 


DECREMENT NUMBER OF FIELDS LEFT TO UPDATE IN MODE 
TRANSFER [EF FINISHED WITH CURRENT MODE 


GET MODE OF FIELD IN XR = 7 

MAKE MODE POINTER UNIQUE AND ABSOLUTE 
MAKE MOBE POINTER RELATIVE 

AND RESTORE UNIQUE MONE OF FIELD 

AND Lm0° 


GET POINTER TO FIRST NONPRIMITIVE MODE 


STORE CURRENT MODE IN M4 


SET LENGTH AND TYPE FIELDS IN CURRENT MODE 


GET POINTER TO CURRENT MODE 
MAKE MODE POINTER aBSOLUTE 


STEP CURRENT MONE POINTER TO NEXT MODE 


STEP OVER LINK WORD 


GET LENGTH OF NEXT ENTRY IN MODE TARLE 


EXIT IF NO MORE ENTRIES IN MODE TagLe 
MAKE MODE POINTER aBSOLUTE 

AND) LOOP 

SAVE RETURN IN ANOTHER REGISTER 

MAKE CURRENT MONE UNIQUE AND ABSOLUTE 
GET TYPE POINTER FOR MONE 

GET LENGTH OF VALUE OF CURRENT MONE 
RETURN {fF ALREADY SET 

GET TYPE OF MODE IN XR - 9 

MAKE MODE POINTER RELATIVE 

SEE IF 17 1S A REFERENCE TYPE MODE 
YES - DO fT 

IS IT A PROCEDURE MODE 

YES - DO 1T 


IS IT A STRUCTURED MONE 
YES - DO IT 

1S 17 A UNITED MONE 

YES =~ DO fT 


L1557 


END 


C4 05-26-72 
A 
011012 0416770 
011013 011074 
011014 U16776 
0114015 011074 
641016 017015 
b11017 donono 
014102u 777777 
014021 611072 
011022 0411073 
011023 35216 
0114024 wvooont 
011025 04630 
011026 9d0NnDCdD 
011027 16779 
011030 011033 
041051 0411072 
UVi1052? 0141024 
041033 64146776 
END OF BINARY CARD 
041034 011036 
60419035 011072 
041056 035227 
041037 0090001 
U11040 0611072 
011041 011043 
011042 090002 
011043 695663 
0410494 011072 
0410495 011061 
011046 0272214 
U11047 611072 
011090 Oono01 
0414051 27215 
041052 Un0000 
011053 041072 
041054 Oo9N002 
G41055 027222 
011056 Gotone 
041057 Gonone2 
0410960 011064 
011061 000091 
OF BINARY CARD 
011062 027215 
011063 QOon0N0 
011064 035227 
611065 011073 
011066 635216 
011067 OGgnOnO 
011070 777777 
041071 009070 


17,863 


ingo os 
6nuo oO 
1nen as 
6nun OY 
togn as 
6ouon 43 
7100 OY 
4500 09 
74/0 O09 
QV67N OY 
2277 17 
7OouO OO 
22u0 t7 
10009 0¢ 
6010 OV 
0540 a9 
7400 OY 
tnuo o3 
Gagauts9y 
6n10 40 
0540 Og 
2210 03 
6350 Og 
2340 09 
60900 Og 
0790 9038 
7ouN OO 
2340 09 
60y0 OY 
2350 O89 
0750 OO 
7550 11 
2350 05 
7550 11 
2350 00 
7350 OG 
0750 O8¢ 
7550 14 
6220 05 
7400 OO 
2220 O83 
000901460 
2350 O85 
755 41 
1610 00 
2270 OV 
G6/70 O09 
4410 147 
9420 417 
7100 185 


ALGOL 638 


2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2945 
2917 
2918 
2919 
2920 
2924 
2922 
2923 
2924 


2925 
2926 
2927 
2928 
2929 
2930 
2934 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941. 
2942 
2943 
2944 
2945 
2946 


2947 
2948 
2949 
2950 
2954 
2952 
2953 
2954 


REF 


REF 4 
ROW 


KEFO 


REFS 


REF 4 


REFS 


REF 6 


CMPXG 


TZE 
CMP Xg 
TZE 
CMPXO 
TZE 
TRA 
SZ 
STX7 
ADX7 
LOX7 
TSXo 
LOXxO 
CMPXO 
INZ 
AOS 
TRA 
CMPXG 


TNZ 
AOS 
LOX4 
EAA 
SZN 
TZE 
ADA 
TSXO 
SZN 
TZE 
DA 
ADA 
STA 
LDA 
STA 
LDA 
ALS 
ADA 
STA 
EAX2? 
TRA 
LDX2 


LDA 
STA 
SBX4 
LOX? 
ADX7 
SXLi 
SXL2 
TRA 


PASS 1,5 


MEROW, DU 
ROW 
M$ROWE, DU 
OW 


MFEMPTY, DU 


0,5 
SERROR 
REF T 
REF M 
TEMODE 
4.7 
ASXFER 
0,7 
ME$ROW, DU 
REF O 
REF FT 
REF 4 
M&ROWE,DU 


REF 3 
REF T 
TSTYPE,NU 
1 

REPT 
REF 4 
2,00 
T$ALOC 
REF T 
REFS 
TEROW, DU 
REF T 

lai 
T4PTR, DU 


TESKIP,DU 
2st 

2) AL 

REF6 

1,00 


TEPTR, DU 
O.1 

TE TYPE 
REFM 
TEMODE 
,7 

“1.7 

0,3 


PAGE 


IS IT aA ROW MODE 

YES - po IT 

IS IT THE END OF a ROW MODE 

YES + DO IT 

IS IF A BAD MODE 

YES - RETURN 

NO = BAB MODE #### (ROW) HRHR 
INITITALIZE DIMENSION COUNT 

SAVE MODE POINTER 

MAKE MODE POINTER aSSOLUTE 

GET DEREFFRENCEN MODE IN XR ~ 7 
MAKE MODE POINTER aSSOLUTE 

GET TYPE MF MODE IN XR -~ 0 

IS IT a RAW MODE 

TRANSFER IF NOT MIDDLE OF ROW MODE 
INCREMENT DIMENSION COYNT 

AND LOOP 

IS If THE LAST ROW IN a ROW MODE 


TRANSFER IF NOT 
INCREMENT DIMENSJON COUNT 


GET POINTER TO TYPE TABLE CONTROL WORN 


ALLOCATE ONE WORD 

SEE JF REFERENCE TO ROW MODE 
TRANSFER IF NOT 

ALLOCATE THREE WORDS 

ALLOCATE MEMORY IN TYPE TABLE 
SEE IF REFERENCE YO ROW MODE 
TRANSFER {F NOT 

GET ROW TYPE IN A 

ADD DIMENSION IN aL 

AND STORE AS SECOND TYPE WORD 
GET POINTER TYPE J[N A 

AND STORE AS FIRST TYPE WORD 
GET NUMBER OF DIMENSIONS IN AL 
GET DESEREPTOR LENGTH IN AL 
ADD SKIP TYPE 

AND STORE IN TYPE TABLE 

GET LENGTH OF VALUE IN XR = 2 
AND CONTINYE 

GET LENGTH OF VALUE IN XR = 2 


GET TYPE IN AU 
AND STQRE IN TYPE TABLE 
MAKE TYPE TABLE POINTER RELATIVE 


GET POINTER TO REFERENCF MODE IN XR © 7 


MAKE POINTER ABSOLUTE 

STORE TYPE IN MODE TABLE 

STURE VALUE LENGTH IN MODF TABLE 
AND RETURN 


75 


END 


END 


LL uy ebeTe2 174265 
A 

G11072 ugnNanO Vounyo 
U11073 vgnd%9 uounUd 
U11074 v41072 4509 nu 
Y11075 041073 74/9 OU 
V11076 u11025 7qun OU 
O414077 035227 2210 AS 
U111U0 90094 635n ny 
GViltut Uo5663 70uUn OV 
U11102 Ugnu00 6220 11 
014103 vU11116 624 Ou 
U11104 vugnaonger10%1/ 
011105 041670 5602 O01 
01141U6 <dgndNO 2350 14 
011107 Ggnnnd 7550 42 
OF BINARY CARD 00U0U161 
Q011110 035277 1610 Oy 
G11111 vg00c4 2220 03 
011112 635216 96/0 no 
011113 Onnono 4410 47 
014114 777777 4420 47 
0114115 Uon000 7100 45 
Uii116 627217 oOngoud 
011117 027217 OnQO0U0 
Vi1120 027215 ononuDd 
Yiii1e1 027215 onunud 
041122 035235 7450 31 
041123 035234 2290 OD 
011124 035214 1690 50 
U11125 035235 44yn 56 
041126 005742 7470 OV 
014127 Of00N0 6350 17 
011150 unno22 7710 Ov 
0111314 009001 0750 OS 
011152 635235 755n 56 
041153 005742 7470 Ov 
044154 035235 4500 56 
014135 605742 7470 Oy 
OF BINARY CARD 0000162 
011156 635235 220n OV 
0144137 777776 727 4y 
011140 035216 04670 Oy 
041141 777776 0670 10 
011142 009000 2279 17 
011143 610773 7000 Oy 
011144 OgnonO 6350 11 
041145 035234 7550 56 
641146 005754 7470 OO 
611197 035235 2200 Oy 
041150 777777 0429 iy 
0111451 777777 7220 4y 


ALG™L 63 


2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 


2965 
2966 
2967 


2968 
2969 
2970 
2974 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2984 
2982 
2988 
2984 
2985 
2986 
2987 
2988 
2969 


2990 
2991 
2992 
2993 
2994 
2999 
2996 
2997 
2998 
2999 
3900 
Sngt 


KreF ] 
Ker 
KUW 


PROC 


PROCT 


OTR 


STR 


ZERU 
ZERO 
STZ 

STX7 
TRA 

LOX 
EAA 

TSXO 
EAX? 
EAX4 


RPD 
LDA 
STA 


SBX1 
LOaxXe2 
ADX7 
SXut 
SXL2 
TRA 
ZERO 
ZERO 
ZERO 
ZERO 
STX3 
LDxo 
SRxXO 
SXLO 
XED 
EAA 
ARL 
ADA 
STA 
XED 
STZ 
XED 


LDXO 
LXL7 
ADX7 
ADX7 
LOXx7 
TSXO0 
EAA 

STA 

XED 

LDXo0 
ASX2 
LXL2 


PASS 1,5 


KEPT 

REFM 

ROW, 
TETYPE,DU 
4 

TSALOC 
Gal 

PROCT 


4,1 
U,4 
Us2 


TELYPE 

4, Dt 
TEMODE 
Ua7 

7107 

0,5 

TSOCT 
TSOcT 
TEPTR 
TEPTR 
ASSTACK, J 
AEWORK 
TENORK 
ASSTACK, ID 
TESOVE 


ASSTACK, ID 
TESOVF 
AFSTACK, ID 
TSSOVF 


ASSTACK 
7240 
TEMODE 
7200 
0,7 
SETM 
O,1 
ASWORK, ID 
TSWOVE 
ASSTACK 
“4140 
“190 


CLEAK DIMENSION COUNTER 
SAVE CURRENT MONE 


GO GENERATE 
POINTER TA TYPE 


GET 
GET 
ANL 
GET 
GET 


NUMBER 


MOVE 


TYPE 


PAGE 


IN all 


IN TYPE Taree 


FRUM PROTOTYPE TYPE 
TO NEW TYPE ENTRY 


IN XR 


76 


TABLE CONTROL WORD 
OF WORAS NFENEN 
ALLOCATE WORDS 
POINTFR TO NEW TYPE TABLE ENTRY 
POINTER TO PROCEDURE TYPE 


IN XR = 
= 4 


MAKE POYNTER TO NEW TYPE FNTRY RELATIVE 


GET LENGTH OF VALUE 


MAKE MODE 
STORE TYPE 


IN XR = 


2 


TABLE POINTER ABSOLUTE 


IN MODE 


STORE VALUE LENGTH 


AND RETURN 


TABLE 


IN MODE TAaKLE 


SAVE RETURN IN CONTROL STACK 
GET POINTER TO FND OF WORKING STACK 


SUBTRACT BASE TO GET LENGTH OF WORKING STACK 


AND STORE 


(RETURN, 


MARKY zs + 


CHECK FOR STACK OVERFLOK 
GET MODE IN AU 
MOVE MODE TO AL 


ADD A ONE 
AND STORE 


JN AY 
(COUNT>» 


MODE ) = m2 


CHECK FOR STACK OVERFLOW 


STORE 


(VALUE LEN, 


TYPE LEN) 


CHECK FOR STACK OVERFLOW 


3 


| 


GET POINTER TO ENN OF CONTROL STACK 
GET MODE IN XR - 7 
MAKE MODE POINTER aBSOLUTE 
ADD FIELD NUMBER TO GET POINTER TO FIELD 
GET MODE OF FIELD IN XR - 7 
GET TYPE AND LENGTH OF FIELD MODE 
GET TYPE IN AU 
AND STORE FIELD TYPE IN WORKING STACK 
CHECK FOR STACK OVERFLOW 
GET POINTER TO FND OF CONTROL STACK IN XR - Q 


INCREMENT STRUCTURE VALUE LENGTH Ry FIELD LENGTH 


IN XR ~- 


GET TYPE LENGTH FOR STRUCTURE IN XR + 2 


2 


0 


U1957 


END 


UL C5=20-72 


A 
141152 35227 
0141458 777777 
U111424 777777 
G11155 777776 
b11196 UONONY 
0114157 777776 
011100 777776 
011161 U35216 
041162 777777 
G11163 041141 
OF BINARY CaRD 
011164 777777 
011165 wuood090 
611166 035227 
U11157 095663 
C11170 035235 
U11171 777776 
6411172 035216 
G11173 035227 
014174 0090000 
b44175 777777 
C41176 777777 
Ui1177 Gp0000 
011200 035227 
041201 777775 
b11202 035214 
011203 On9000 
041204 Go900N0 
011205 035227 
041206 777777 
041207 009010 
011210 0014900 
O4114211 O0N000 
OF BINARY CARD 
0141212 090000 
041213 090000 
011214 agngnd 
011215 035234 
011216 011294 
041217 035234 
U11220 035234 
011224 0411217 
041222 035235 
011223 035235 
11224 035235 
U11225 035227 
011226 b90002 
U11227 005663 
ut1230 611304 
0112514 009000 


17,563 


0610 
Q620 
9420 
2210 
Q610 
7410 
7270 
V670 
inio 
6010 


0000014635 


2350 
6350 
2219 
70uUNn 
2200 
7270 
0670 
1619 
4410 
2220 
4420 
6250 
0650 
7250 
0650 
6260 
2240 
0640 
2350 
7710 
6209 
2602 


009090164 


2360 
7560 
0650 
10590 
6010 


0419 
196n 


6010 
01140 
0419 
7400 
2210 
6350 
7900 
2350 
7550 


00 
1 
16 
Ly 
05 
10 
10 
00 
17 
00 


44 


ALGOL6B 


Sf g2 
S003 
3n04 
3ng5 
306 
307 
3Nyu8 
3n09 
3010 
3Nilt 


3012 
3913 
3014 
3n15 
3016 
3917 
3918 
3n19 
3920 
SA21 
St22 
3923 
3n24 
325 
3026 
3n27 
328 
N29 
39350 
N54 
332 
3033 


3034 
3035 
3A 356 
3937 
3038 
3039 
3N40 
3N44 
3n42 
3043 
3n44 
3n45 
3046 
3n47 
3048 
3049 


STR2 


STR 


UNTON 


ADX1 
ADXK2 
SXL2 
LOX4 
ADX1 
STX4 
LXL7 
ADX7 
CMPX1 
TNZ 


LDA 

EAA 

LOX4 
TSX0 
LDXO 
LXL7 
ADX7 
SBX4 
SXu4d 
LDX2 
SXL2 
EAXS 
ADX5 
LXLS 
ADX3 
EAX6 
LDX4 
ADX4 
LDA 

ARL 

EAXO 
RPDX 


Loa 
STQ 
ADXS 
CMPX3 
TNZ 
NOP 
CMPX6 
TNZ 
NOP 
NOP 
TRA 
LDX4 
EAA 
TSxo 
LDA 
STA 


PASS 1,5 


TSTYPE 
w"Lei 
“199 
Peet 
1,00 
ron 
7200 
TEMODE 
71,7 
STR 


wied 
Oy AL 
TETYPE,DU 
TEALOC 
ASSTACK 
7? 40 
TSMODE 
TETYPE 
0,7 
w1.9 
~1,7 
O.1 
TiTYPE 
730 
TEWORK 
0,3 
0,3 
TETYPE 
~1,4 

3 

768, AL 
al 


0,4 

0,5 

1,D0u 
ABWOARK 
STR? 
ASWORK,DI 
ABWOHRK 
STR3 
ASSTACK,DI 
AtSTACK,DI 
AtSTACK, DIC 
TETYPE, DU 
2 

TEALCC 
UNT4 

O,1 


PAGF - 77 


GET ABSOLUTE POINTER TO FIELD TYPE IN XR @ 1 
INCREMENT STRUCTURE TYPF LENGTH BY FIELD TYPE 
RESTORE STRUCTURE TYPE LENGTH 

GET FIELD NUMBER IN XR - q 

STEP TO NEXT FIFLD 

AND RESTORE FIELD NJMBER 

GET MODE OF STRUCTYRE IN XR ~ 7 

MAKE MODE POINTER a8sSOLUTE 

COMPARE Th SEF IF ALL FIELDS HAVE BEEN CONSIDERED 
TRANSFER IF MORE FIELDS TO CONSIDER 


GET LENGTH OF STRUCTURE TYPE IN AL 

GET TYPE LENGTH IN AU 

GET POINTER TO TYPE TABLE CONTROL WORD 
ALLOCATE SPACE FOR TYPE IN TYPE TaBLe 
GET POINTER TO END OF CONTROL STACK 

GET MODE OF STRUCTURE IN XR 2 7 

MAKE MOBE POINTER aBSOLUTE 

GET RELATIVE STRUCTURE TYPE IN XR » 4 
AND STORE TYPE IN MODE 

GET LENGTH OF STRUCTURED VALUE IN XR - 2 
AND STORE IN MONE 

GET POJNTER TO TYPE IN XR = 5 

MAKE TYPE POINTER ABSOLUTE 

GET LENGTH OF WORKING STACK BEFORE STRUCTURE 
GET POINTER TQ FIRST WORD PUSHED IN WORK 
SAVE POINTER TO FIRST WORD PUSHED IN WORK 
GET TYPE OF NEXT FIELD IN XR @ 4 

MAKE TYPE ROINTER ABSOLUTE 

GET LENGTH OF FIELD TYPE IN AU 

POSITION COQUNT FOR REPEAT 

PUT COUNT WITH A AND BRITS IN XR © Q 
MOVE 


FROM FIELD TYPE 

TO STRUCTURE TYPE 

STEP TO NEXT FIELN 

CHECK IF ANY FIFLNS ARE LEFT 

TRANSFER IF THERE ARE ANY MORE FIELDS 
DELETE A WORD FROM THE WORKING STack 
SEE JF DELETED RACK TO THE MaRK 
TRANSFER IF MORE WORDS TO DELETE 
DELETE A WORD FROM THE CONTROL STack 
DELETE A WORD FROM THE CONTROL STack 
AND RETURN 

GET POINTER TO TYPE TABLE CONTROL WORD 
GET NUMBER OF WORDS NEENED IN TYPE TARLFE 
ALLOCATE TwO wORDS IN TyPE TABLE 

GET FIRST WORD OF UNION TYPE 

AND STORE IN TYPE TABLE 


iA s 4 / 


END 


END 


LL Jsb5326-72 


A 


U11252 065227 
011253 035216 
U11254 vugtono 
611255 035216 
U11256 Oyoond 
0112357 090022 
UF BINARY CAR) 
11240 35235 
011241 005742 
Ui1242 090000 
011243 99022 
0112494 UonOon1 
611245 035235 
011246 005742 
011247 U35235 
011250 777777 
011251 035216 
011292 777777 
011253 090000 
¥11224 Q1N773 
011295 035235 
011256 777776 
011257 041261 
011260 777776 
011264 777777 
011262 Go00ti 
011263 777777 
041264 777777 
U11265 035216 
Ur BINARY CARD 
041266 777777 
011267 041252 
011270 O0N000 
U11274 035227 
011272 777776 
011273 vonoer 
U11274 027222 
011275 vuonon1 
011276 035227 
011277 vgnqdnd 
0113590 777777 
011304 035235 
041302 035235 
011303 000000 
011304 027229 
011305 og00n0 
011306 d000N0 


1410 
u6/7n 
4410 
16/79 
63590 
7710 


VOUV165 


755N 
71/0 
6350 
7749 
Q750 
759n 
7470 
2200 
7270 
04670 
0670 
2270 
7000 
2200 
1o2n 
6n20 
7420 
2210 
04610 
7410 
7270 
067n 


0N00u166 


1010 
6nyn 
7210 
0619 
2220 
4420 
2200 
7400 
1619 
0620 
4420 
0110 
2390 
7100 


90 
Ny 
1/ 
Oy 
15 
NG 


56 
00 
17 


17 


gng000 
QOONN0 
069900 


AL GOL68 


$750 
SA51 
3152 
353 
3954 
3955 


3056 
3N57 
358 
3959 
360 
3N61 
362 
3963 
3164 
3765 
3N66 UNL 
3N67 
368 
3N69 
3970 
S971 
3972 
3973 UN2 
3074 
3975 
376 
3977 


3078 
3979 
3080 
384 
3082 
383 
3ra4 
3085 
3086 
3087 
3788 
3089 
3n90 
3094 
3N92 UNTY 
S93 M1 
3N94 M2 


SRX1 
ADX7 
SXL1 
D13X7 
kAA 
ARL 


STA 
XED 
EAA 
ARL 
ADA 
STA 
XED 
LDXO 
LXL 7 
ADX7 
ADX7 
LDX7 
TSXO 
LOXN 
CMPX2 
TNC 
STX2 
LDX14 
ANX1L 
STX1 
LXL7 
ADX7 


CMPX4 
TNZ 
L Xi 4 
ADX4 
LDx2 
SXL2 
,, 2x0 
STX 
SBX4 
ADX2 
SX2 
NOP 
LDA 
TRA 
ZERO 
ZERO 
ZERO 


FASS 1,5 


THITYPE 
TEMODE 
Uy? 
TSM0DEF 
Us 

18 


ASSTACK, 1D 
THSOVE 
Qa? 

18 

1,0 
ASSTACK, ID 
TESOVE 
ASSTACK 
“1.9 
TEMODE 
“1,9 
0,7 
SETM 
AESTACK 
72,0 
UNe2 
-2,0 
71,N 
1,D0U 
71,9 
7i9n 
TSMODE 


“4197 


0,7 

TETYPE 
"240 

1.1 
TSSKIP,DU 
1ad 

TSTYPE 
1,DuU 

71:7 
ASSTACK,DI 
ASSTACK,DI 
0, AL 
TEULEN 


PAGE 78 


MAKE TYPR TABLE ENTRY POINTER KELATIVE 
MAKE MODE POINTER arRSocutTe 

ANU STORE TYPE FN MQUE TARLE ENTRY 
MAKE MODE POINTER RELATIVE 

QET RETURN ADDRESS IN atl 

MOVE TO AL 


AND STORE (VALUF LENe RFTURN) = -92 
CHECK FOR STACK OVERFLOW 

GET MODE IN AU 

MOVE MODE TO aL 

SET CURRENT FIELD TO ONE 

AND STORE (COUNT, MODF) = #1 

CHECK FOR STACK OVERFLOW 

GET POINTER FO FNND OF CONTROL STACK 
GET MODE POINTER IN XR - 7 

MAKE POINTER ABSOLUTE 

ADD CURRENT FEELD NUMBER 

GET MODE OF CURRENT FIELD IN XR = 7 
GET LENGTH OF FIELD MODE 

BET POINTER TO END OF CONTROL STACK 
SEe IF THIS FIELD HAS CURRENT MAXIMUM LENGTH 
TRANSFER IF WOT BIGGEST YET 

SET NEW MAXIMUM 

GET CURRENT FIELD NUMBER 

STEP TO NEXT FIELD 

AND RESTORE AS NEW CURRENT FIELD 
GET MODE OF UNION IN XR = 7 

MAKE MODE POINTER asSOLUTE 


COMPARE FIELD NUMBER AGAINST NUMBER IN MODE 
TRANSFER IF MORE FIELDS TO CONSIDER 

GET TYPE POINTER FOR UNION IN XR - q 
MAKE TYPE TABLE POINTER ARSOLUTE 

GET MAXIMUM LENGTH OF UNION MODE 

AND STORE IN TYPE TABLE ENTRY 

GET A SK]P TYPE IN XR = 

AND STORE IN TYPE TABLE ENTRY 

MAKE TYPE TABLE POINTER RELATIVE 

ADD ONE FOR LENGTH/TYPE WORD IN UNION 
AND STORE LENGTH OF VALUE IN MODE TABLE 
DELETE A WORD FROM THE CONTROL STack 
GET RETURN ADDRESS IN aL 

AND RETURN 


v1557 


END 


END 


Ut uSe2o-72 


A 
U1143U7 u95164 
U11310 Upn6216 
bii3i1 0909046 
U11312 096216 
604114313 000059 
OF BINARY CARD 
U11314 046469 
(14315 vu z,3257 
U14316 ugo157 
041317 11731 
11320 6611322 
6143241 014924 
U11322 Yorongo 
11323 0113557 
C411324 035235 
641325 005742 
U11326 011360 
Ci4327 0413561 
611350 6011364 
U14331 035235 
011352 095742 
0413383 6113561 
041334 041330 
011335 046457 
011386 041557 
0113357 035221 
011340 777777 
U41344 600001 
OF BINARY CARD 
041342 035221 
641343 0411357 
041344 041357 
011345 006210 
041346 011335 
011347 041362 
041390 011363 
01441354 035235 
041352 011563 
0114353 011351 
U14354 035235 
044355 011357 
U11356 006210 
041357 ugnonog 
0413690 011364 
U11364 onnon00 
011362 011576 
Vi1363 oo0n000 
011364 U16457 


17,803 


7)U0 
74.09 
1070 
6019 
6390 


YVOUNVL67 


7550 
7550 
2210 
7440 
7500 
77400 


OU 
NO 
Ns 
OU 
OU 


00 
NU 
05 
Qu 
0G 
OU 


Nououd 


2209 
7400 
7170 
2350 
7550 
2390 
7550 
7470 
45q0 
6070 
4590 
7200 
Q6QN 
Q6on 
26049 


O0UNU168 


1600 
7400 
4400 
7409 
7400 
2390 
7550 
2320 
7550 
6970 
2200 
74y0 
7100 


Ou 


00 


90 


0n0009 


Qnl2 


51 


0oudg0 


7766 


31 


0nuUnu0 
govu0n00 


ALG9L458 


3BNGS 
3N96 
3ny7 
3N98 
3NG9 
3109 
S101 


3102 
3103 
3104 
3105 
31048 
3107 
3108 
3109 
34110 
Silt 
3412 
3113 
3114 
3445 
3116 
3417 
3118 
3149 
3120 
3i2t 
3ti22 
3123 


3124 
3125 
3126 
3127 
3128 
3129 
$130 
3134 
3432 
$153 
3134 
3135 
3136 
3137 
3138 
3139 
5140 
S441 
3142 


START 


LIBF 
SRNGE 


SRL 


XKNG1 


XRNGE 
ERNGE 


EK 


RNGE 
SRTAL 
SKT 
ERKTAL 
ERT 
RTAB 


TTLS 
HEAD 
TSXO0 
TRA 
CMPX7 
TNZ 
EAA 


STA 
STA 
LOX4 
STX4 
Stc2 
TRA 
ZERO 
LDXO 
STX0 
XED 
LDA 
STA 
LDA 
STA 
XED 
STZ 
TTF 
STZ 
LXLO 
ADXO 
ADKO 
ADXO 


SBxKO 
STX9 
SxXL0 
TRA 
TRA 
LDA 
STA 
LDA 
STA 
TTF 
LOXo 
STXO 
TRA 
ZERO 
TALLYC 
ZERO 
TALLYC 
ZFRO 
ZERO 


FASS 2 


2 

ATPEEK 
AtINOMAT 
SéLPAR,DU 
ABNOMAT 
MEPROCYV 


DECLR 
MONE 
DFBLANK,DU 
LAasTs 

LIF 

QIDN 


RNGE 
ASSTACK, 1D 
TESOVE 

SRT 

SRT,4@ 
AESTACK, ID 
TESOVE 
SRT, IDC 
SRq 

CNT 

RNGE 
TEPROUG 
w1,0 

1,00 


TEPROG 
RNGE 

RKNGE 

ASOK 

XRNGL 
ERTaL 

ERT 
AESTACK, DI 
ERT, DIC 
ERL 
ASSTACK,D! 
RNGE 

AGQK 
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PASS 2 


PEEK AT NEXT INPUT SYMPQOL 

NO MATCH TF END OF FILE 

1S NEXT SYMROL A LEFT PARENTHESIS 
WO = GO TO NO MATCH 

GET & PROCEDURE VOID MONE IN Ay 


AND STORE aS CURRENT MONE 

STORE AS CYURRENT DECLARATION MONE 

GET POINTER TO BLANK PEFINITION 

AND STORE aS LAST [DENTIFIER ENCOUNTERED 
THIS IS qa PROGRAM aND NOT a SUBROUTINE 
GO SET UP DECLARATION HEADER 


GET CURRENT RANGE 

AND SAVE IN CONTROL STACK 

CRECK FOR STACK OVERFLOW 

GET FaLLY WORD FOR SAVING RANGE 
AND STORE 

GET NEXT WORD To BE SAVED 

AND SAVE IN THE CONTROL STACK 
CHECK FOR STACK OVERFLOW 

ZERO OUT SAVED WORD AND STEP TO NEXT ONE 
TRANRFER IF THERE ARE MORE WORDS TO BF SaVED 
INI TIALEZE COUNT FOR NEW RANGE 

GET MAXIMUM NUMRER OF RANGE ENTERED 

MAKE IT aBSOLUTF 

STEP TO NEXT RANGE NUMBER 

STEP MOVER LINK WORD 


INFORMaTION 


MAKE IT RELATIVE 

STORE aS CURRENT RANGE 

STORE AS MAX]MUM RANGE 

AND EX]T 

GO TO EXCHANGE RANGE ROUTINE 

GET TALLY WORD FOR RESTORING RaNGE 
AND STORE 

RESTORE WORD FROM CONTROL STACK 
AND STORE IN MEMORY 

TRANSFER IF MORE WORDS ARE TO BF RESTORED 
GET PREVIOUS RANGE NUMBER 

STORE aS CURRENT RANGE NUMBER 

AND EXIT 


INFORMATION 


RTAR,RTABE-RTAB, 1 


CNT 


yoo? 


EL 


END 


C1 U5-26-72 
2 

6113605 U1{6460 
011396 vU43257 
011367 013653 
UF BINARY CARD 
011370 0413654 
6113714 613656 
011372 U13657 
11373 013669 
0411374 046475 
U11375 013450 
011410 u95164 
11411 004216 
011412 00909112 
U11413 006216 
011414 092152 
U11445 011423 
011416 0900090 
011417 035222 
011420 000000 
011421 096554 
U11422 Uup6210 
¥i1423 00900000 
011424 096413 
011425 011730 
011426 O000N0 
OF BINARY CARD 
011427 006436 
011459 011674 
U11431 006412 
011452 611730 
0414353 000002 
011434 096436 
011455 041674 
011456 006415 
011457 011730 
U11440 090004 
0414944 096436 
011442 041674 
011443 G90006 
011444 006436 
011495 095164 
011446 096216 
011447 ognutg 
0411450 9009112 
611451 006216 
011452 035222 
041453 000090 
041454 041650 


17,805 


Qounun 
gnudun 
ugunud 


Onunuloy 


Qoudun 
onunud 
Qn0ungud 
Qourgo 
ongnud 
0000uU0 


011576 
011576 


70U0 
7400 
1070 
6n2n 
4500 
7470 
6209 
Q60n 
2350 
0110 
7100 


2200 


00000170 


74u0 
7409 
2200 
7490 
2200 
7400 
7490 
2200 
7400 
2200 
7490 
7100 
2200 
7490 
7990 
7400 
62900 
1oyo 
6020 
0609 
2350 
7590 


) 


00 
00 
ok) 
Q0 
95 
00 
00 
03 
OU 
0s 
Ou 
OU 
04 
00 
00 
00 
16 
Ou 
OU 
00 
10 
Oy 


ALGQL68 


3143 
3144 
$145 


3146 
31447 
3144 
3149 
3150 
Si51 
$4132 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3165 
3164 
$165 
3166 
3167 
3168 


3169 
3170 
S471 
3172 
3173 
3474 
3475 
31476 
3177 
3178 
3479 
3180 
3451 
3182 
3183 
31684 
3485 
3186 
3187 
3188 
3169 
3190 


RT AGE 


TAG 


TG 
OPER 


MIND 


TQENT 


DeENOT 


ZERO 
ZERO 
ZERO 


ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
EQU 
BSS 
TSXO 
TRA 
CMPX7 
TNC 
STZ 
STX7 
EAXD 
ADXG 
LDA 
NOP 
TRA 
ZERO 
LDXO 
STXG 
LOXO 


STxon 
TRA 
LOXx0 
STX0 
LDX0 
STX0 
TRA 
LDXO 
STXO 
LDX0 
STXo0 
TRA 
LDXo 
STX0 
TSXo 
TRA 
EAXO 
CMPXQ 
TNC 
ADXO 
LDA 
STA 


ASPEEK 
AFNOMAT 
ADNOMAT 
AFPEEKF 
TG 

0,7 
TESTAB 
ASSC,0 
1#$XxS 
ASOK 


DSOP,NU 
TLUT 
SS$ERM,, BU 


ASMATT 
TLUG 
DEMODE, DU 
TLUF 
SFERM2, DU 
ASMATT 
TLUG 
DSINDENT, DU 
TLUT 
SSERM3Z,PU 
ASMATT 
TLUG 
SSERM4,DU 
ASMATT 
ASPEEK 
ASNOMAT 
0.6 
ASTABLE 
ASNOMAT 
TESTAB 
ASSC10 
DENT 


PAE 


PEEK AT NEXT INPUT SYMBOL 
NO MORE = NO MATCH 

CAN IT BE a FAG 

NO © FOO EARLY IN SYMBOL 
ACCEPT SYMBOL 

STORE ACCEPTED TAG 

GET TAG JN XR = y 

MAKE SYMBOL POINTER ARSCLUTE 

GET STRING TALLY WORD FOR SYMBOL 
AN) PRINT [T 

AN) EXIT 


TABLE 


GET QPERATOR TYPE OF ENTRY 
AND SAVE IN TEMP 
GET A POINTER TO MPERATOR MESSAGE 


AND STORE FOR POSSIBLE ERROR MESSAGE 
AND SEE IF IT IS aN OPERATOR 

GET MODE TYPE OF ENTRY 

AND) SAVE IN TEMP 

GET A POINTER TO INDICATION MESSAGE 

AN) STORE FOR POSS]JBHLFE ERROR MESSAGE 
AND SEE IF ITF IS A MONE 

GET INMENTIFIER TYPE OF ENTRY 

AND SAVE IN TEMP 

GET A POINTER TO IDENTIFIER MESSAGE 

AND STORE FOR POSSIBLE ERROR MESSAGE 
AND SEE IF IT JS AN IDENTIFIER 

GET a POINTER TO DENOTATION MESSAGE 

AND STORE FOR POSSIBLE FRROR MESSAGE 
PEEK AT NEXT INPUT SYMBOL 

NO MORE SO FAIL 


GET POINTER TO {IDENTIFIER WITHOUT LONGS 


1S If IN PERMANENT PART OF TABLE 


TRANSFER IF YES + CANNOT BE DENOTATION 


MAKE POINTER ABSOLUTE 
GET STRING POINTER FOR SYMBOL 
AND STORE IN MEMORY 


L125? 


bie 


ENU 


JL  J5-26-72 
4 

UF RINARY CARD 
041455 U3d5z2>3 
011456 11650 
11427 611650 
U11460 0900042 
GC11464 v115463 
611462 Uunnn44 
011463 611563 
011464 Ugngs6é 
0114965 11472 
011466 UONU60 
G114607 090012 
011470 011472 
011474 CQ6216 
U11472 490000 
011473 011640 
U11474 611624 
011475 611553 
011476 011644 
011477 ugno6o 
011500 009056 
641504 011575 
G11502 011621 
OF BINARY CARD 
G11503 011537 
U11504 099049 
011505 090105 
011506 777777 
U11507 0411643 
vii5i0 o0nN0Nn0 
011511 U11650 
011512 611514 
011513 777777 
011514 090053 
011515 011530 
0115146 009055 
0141517 011522 
011520 011643 
011524 0115309 
11522 Ugnus9 
011523 Ggonogte 
011524 777777 
011525 611646 
G11526 wunngl2 
011527 041646 
011559 011659 
CF BINARY CARD 
U11531 11522 
011532 un0144 
U1L1553 777777 


17,863 


OnvOQuL/1L 
22ur AY 
04un Oy 
2559 59) 
1150 O7 
6nun Oy 
1159 07 
6n0o0 OO 
1190 87 
6noo ny 
1350 07 
11299 O7 
6020 OY 
7400 00 
4310 08 
7570 AQ 
70Q OQ 
71y0 OY 
4540 9Q 
0750 07 
1150 O7 
6019 Ou 
7nQ00 Og 
onung172 
7400 OQ 
0750 47 
1150 07 
6010 09 
4509 Oy 
2360 07 
2350 52 
6970 09 
71400 OQ 
1199 97 
6000 Ou 
1150 97 
60190 00 
0540 Og 
71040 OO 
1750 O7 
119 07 
6050 OY 
7550 Ov 
4020 07 
Q760 Ny 
235n 52 
OounuL7S 
60/70 9g 
1169 O7 
onsn AY 


ALGIL43 


S191 
3192 
3193 
3194 
34195 
3196 
3197 
3198 
34.99 
3200 
$201 
3202 
3703 
3704 
3205 
3706 
3207 
3708 
32u9 
3710 
Seit 
3712 


32135 
3714 
3215 
3216 
3247 
$21" 
3749 
3220 
$721 
3?22 
3223 
3724 
3225 
3226 
$227 
3228 
3229 
32350 
3231 
3232 
$253 
3234 


3235 
327346 
3237 


DNUM 


DNUM1 


DNUM2 


DNUMS 


DNUM4 


LOXG 
ASKU 
LDA 
CMPA 
TZE 
CMPA 
TZE 
CMPA 
TZE 
SBLA 
CMPA 
TNC 
TRA 
PLD 
STAG 
TSX0 
TRA 
STZ 
ADA 
CMPA 
INZ 
TSXO 


TRa 
ADA 
CMPA 
INZ 
STZ 
Ln 
LDA 
TTF 
TRA 
CMPA 
TZE 
CMPA 
TNZ 
ADS 
TRA 
SBA 
CMPA 
TRC 
STA 
MPY 
ADG 
LDA 


TTF 
CMP) 
TRE 


PASS ? 


THI TAB 
DENT 
DENT,CI 
29042,DL 
DST 
39U44,DL 
bst 
20956,DL 
DNUM 
20060,DL 
10,DL 
DNUM 
AFNOMAT 


204nQ000,DU 


DN 
DCONV 
DINT 
DCNT 
20uU60,DL 
=9056,DL 
DNUML 
DENV 


DNUM5S 
20960,DL 
=90105,DL 
SERROR 
ESGN 
0,DL 
DENT,SC 
DNUM2 
PERROR 
=0053,DL 
DNUM4 
20055,DL 
DNuUMS 
ESGN 
DNuUM4 
29060,DL 
10,9L 
PpERROR 
DT 

10,.0L 

DT 
DENT,SC 


UNUM S 
100,0L 
SFRROR 


PAGE 


GET RELOCATIUN OF TDENTIFIER TAFLE 
MAKE TALLY WORD AKSOLI'TE 

GET FIRST CHARacTER UF STRING 

IS Jf a QUOTE SYMROL 

YES = GO EVALUATE STRING 

IS IT A DOLLAR SIGN 

YES = GO FVALUATE STRING 

IS IT a PFRIOD 

YES = GO FVALUATE NUMBER 

SUBTRACT AN aSCII ZERO 

IS If a pIGtir 

YES + GO FVALUATE NUMBER 

NO = NOT A DENOTATION 

GET A FLOATING ZERO IN FAQ REGISTER 
ZERO OUT NUMBFR aCCUMULATION LOCATION 
CONVERT NUMBER TO NEXT NONDIGIT 
INTEGER 1S CONVERTED IN (E, N) 

ZERO QUT FRACTION DIGIT COUNTER 
RESTORE LAST CHARACTER READ IN A REGISTER 
IS IT a PERIOD 

TRANSFER IF NOT A DECIMAL POINT 
CONVERT NUMRER TO NEXT NONDIGIT 


TRANSFER IF NO FOLLOWING EXPONENT 
RESTORE LAST CHARACTER READ IN A REGISTER 
IS CHARACTER THE LETTER E 

NO = ILLEGAL NUMBER 

ZERO QUT FXPONENT SIGN 

INITIALIZE © FOR ACCUMULATION Of EXPONENT 
GET NEXT CHARACTER AFTER LETTER E 
TRANSFER IF THERE IS A CHARACTER 

NO MORE = ILLEGAL NUMBER 

IS If aA PLUS SIGN 

YES = GO CONVERT EXPUNENT 

IS IT A MINUS SIGN 

TRANSFER IF NOT + MUST RE A DIGIT 
SET MINUS FLAG IN FLAG 

AND GO CONVERT FXPONENT 

GET VALUE OF aScI! DIGIT IN 4 

CHECK TO SEF IF IT IS a DIGIT 
TRANSFER IF NOT = JLLEGAL NUMBER 
SAVE DIGIT IN MEMORY 

MULTIPLY ACCUMULATED FXPONENT BY TEN 
AND ADD NFwW DIGIT 

GET NEXT DIGIT OF EXPONENT 


TRANSFER IF THERE 
IS EXPONENT 
NO e 


1S ONE 
IN REASONAKILE RANGE 
ILLEGAL NUMBER 


AL 


pee te yepae he Ly tos ALG. 40 PAGE Be 


: PASS > 
ULT984 WITGSS 2390 Ou 3738 SZN E SON 1S EXPONENT NEGATIVE 
011555 011537 6nuN Oy 3239 T7E DNUMS [TRANSFER TF POST Ive 
011556 voONbND 9350 OV 3240 NEGL NEGATE EXPONENT 
MLAS EL: UIT OAS 17 O0".80 3241 DNUM5 SRO DONT SUBTRACT NUMBER OF DIGITS AFTER DECIMAL POINT 
6411549 UnNUND 620n 16 3242 FAX Or9L GET EFFECTIVE EXPONENT IN XR = 7 
¥11541 u11640 23/0 OV 3243 LDA DN MAKE EAQ REGISTER CONTAIN INTEGFR OF NUMBER 
041542 von0ng 6200 Ly 3244 EAXY 0,0 CHECK SIGN OF EXPONENT 
011544 YA1550 on40 OY 3246 TMI DNUM7 TRANSFER IF NEGATIVE EXPONENT 
U11545 10500 4610 As 3247 FMP =10.0,DU MULTIPLY NUMBER BY TEN 
611546 777777 6200 10 3248 EAXO -1,9 DECREMENT EXPONENT BY ONE 
U11547 041543 710 OV 3249 TRA DNUM6 AND LOOP 
011520 u11642 56/70 ou 3250 DNUM7) DFDV TEN DIVIDE NUMBER WY TEN 
11591 LYoRdnd OUD 16 3254 EAXO 440 INCREMENT EXPONENT RY ONE 
011522 0411543 7109 Ou 3752 TRA DNUM6 AND LOOP 
011553 uU11640 2370 Oo 3253 DINT LDAD WN GET MANTISSA OF CONVERTED NUMHER 
U11554 246000 4350 O08 3954 UF A =71R25,0U FIX NUMBER IN AQ REGISTER 
011595 011649 7560 O90 3255 sTQ DN AND STORE LSH AS VALUE OF DENOTATION 
011556 00909097 6350 Ov 3756 EAA MEINT GET MODE OF DENOTATION 
ENL OF BINARY CARD 0000)17/4 
011557 011603 7140 09 3257 TRA DEND AND GO TO CLEANUP ROUTINE 
Y411500 011640 4570 Ou 3258 DREAL DFST DN STURE CONVERTED VALLE OF DENOTATION 
11564 000011 6359 OV 3259 EAA MBREAL GET MODE OF DENATATION 
011562 011603 7100 dv 3260 TRA DEN AND GO TO CLEANUP ROUTINE 
011563 011650 0110 52 3261 LST NOP DENT, SC STEP STRING POINTER OVER QUOTE OR pOLLaR SIGN 
011564 011650 2350 Ou 3262 LDA DENT GET STRING TALLY WORD IM A REGISTER 
011565 011649 7550 ou 3263 STA DN AND STORE aS FIRST PART OF VALUF 
G11566 U35223 S2yn0 ou 3264 LCX9 TEIFAB GET MINUS BASE OF [CENTIFIER TARLE IN XR « 
611567 011640 0400 O09 32765 ASX0 DN MAKE TALLY WORD RELATIVE 
011570 000006 7710 0 3266 ARL 6 MOVE TALLY TO AL 
011571 000001 4750 07 3267 SBA 45 DL DECREMENT TALLY BY ONE TO MAKE ACCURATE 
Oia ge CORT) ero. a7 3268 ANA £07777, DL GET CLEAN NUMBER OF CHARACTERS IN STRING 
011573 011641 7590 oy 3269 STA DN+41 AND STORE AS SECOND PART OF VALUE 
011574 090001 1150 07 3270 CMPA 1,0L SEE IF THERE IS ONE CHARACTER IN THE STRING 
011575 041602 6010 ou 3774 TNZ DSTq TRANSFER IF DIFFERENT FROM ONE 
U11576 00N0N5 6350 00 3272 EAA MSCHAR GET MODE OF VALUE 
011577 011650 2360 Sy 3273 DQ DENT,Cl GET VALUE OF CHARACTER IN Q 
G11600 011640 7560 oO 3274 STQ DN AND STORE AS VALUE OF DENOTATION 
011604 611603 74U0 OO 3275 TRA DENN AND GO TO CLEANUP ROUTINE 
011602 090053 6359 Oy 3276 DsTy EAA MESTRNG GET MODE OF VALUE 
011603 011647 7550 ov 3277 DEND STA DM STORE MODE OF VALUE 
011604 000005 2350 Os 3278 LDA 5,DU GET NUMBER OF WORDS IN LIST ELEMENT 
END OF BINARY CARD Q000UL/5 
011605 035220 2210 03 3279 LDX4 TSDEF,DU GET POINTER TO TABLE CONTROL WORD JN XR « 4 
011606 005663 7nyn AU 3280 TSXO THALOC ALLOCATE MEMORY IN THE DEFINITION TABLE 
011607 004416 6350 O00 3784 EAA DEDENOT GET TYPE OF LIST ELEMENT IN A 
eel OURAN eo ae 3282 STA 1,1 AND STORE IN LIST ELEMENT 
O11611 096920 7470 O0 3783 S1X7 AS[DNT STORE POINTER TO IDENTIFIER FOR SETD 
011612 097721 7009 Ou 3284 TSX0 1$SETD LINK THIS TABLE ENTRY IN DEFINITION CHAIN 


uL55? 


END 


END 


04 J5~-26-72 17,863 
c 
U11614 UonNOn2 7550 114 
011615 041640 2370 No 
011616 000003 7550 141 
011617 000004 7560 11 
U11620 011722 7100 a 
U11624 0116590 2350 52 
041622 011625 60/70 OY 
041623 unnoto 2360 47 
0411624 ugnooo 7iuo 19 
6114625 000060 1750 07 
U11626 000012 11590 07 
U11627 vonon1 6nsn 19 
0141650 011644 954n OY 
041634 041645 7510 91 
G11632 011640 2370 og 
OF BINARY CARD 00U0U176 
011653 040500 $610 03 
041634 041645 4750 og 
0411635 011640 75/0 oY 
641656 04141621 710 Oo 
011657 000090011007 
014649 
U11640 Goq0000000000 
011641 00000000000 
611642 O1nd5n000nu00 
011643 vOonoND Yyonooud 
611644 090000 OoNnu0 
0116495 0660ND00NUND 
U11646 ODoONONO QAVOQO 
011647 OpNO00 O009u00 
611650 Gonndo ynoouo 
U11651 041673 7400 o9 
041652 000001 7200 41 
011653 011656 6000 OO 
011694 035220 1610 O89 
041655 011673 7400 oo 
641696 016470 2250 05 
U11697 090000 7200 11 
Ui1660 011663 6000 DO 
OF BINARY CARD 000001477 
411661 00002 625n 49 
611662 035221 0650 OD 
011663 O090ND 720n 15 
011664 011679 6940 OD 
611665 0900001 625nN 1G 
011666 035220 0650 OU 
641667 041663 74u0 OD 
U11670 O00001 4400 41 
U11671 635229 16149 DO 


ALG 68 


3286 
3287 
3288 
3289 
3290 
3294 
3292 
3293 
3294 
3295 

296 

297 
3298 
3299 
3300 


3301 
3302 
3305 
3304 


3305 
3306 


3307 
3308 
3309 
3310 
3314 
3312 
3313 
33144 
3345 
3316 
3317 
3348 
3319 
3320 
3321 


5322 
3325 
3324 
3325 
3326 
3327 
3328 
3329 
3330 


DUNV 


DONV1 


LKL 


LK2 


LK3 


STA 
LDAQ 
STA 
STG 
TRA 
LDa 
TTF 
LLOQ 
TRA 
SRA 
CMPA 
TRC 
AOS 
STCA 
LDadg 


FMP 
FAD 
STAQ 
TRA 


EVEN 
ocrT 


DEC 
ZERO 
ZERO 
VFD 
ZERO 
ZERO 
ZERO 
STXO 
XL 0 
TZE 
SBX4 
TRA 
LDX3 
XO 
TZE 


EAXS 
ADXS 
LXL 0 
TM] 

EAXS 
ADXS 
TRA 

SXLU 
SBX4 


PAGF 83 


AND STORE IN TARLE ENTRY 

GET VALUE OF DENOTATION 

AND STORE IN TARLE ENTRY 

STORE LOW HALF IN TABLE ENTRY 

GO ACCEPT SYMBOL 

GET NEXT CHaRaCTER OF NUMBER 

TRANSFER {F THERE IS A CHARACTER 
INITIALIZE O REGISTER TN ZERO 

AND RETURN WITH STRING EXHAUSTED RETURN 
GET VALUE QF DIGIT IN A 

TS CHARACTER a DIGIT 

RETURN #F NOT a DIGIT 

INCREMENT DIGIT COUNTER 

STORE DIGIT IN LOW PART OF WORD 
RESTORE MANTISSA OF ACCUMULATED NUMRER 


MULTIPLY BY TEN 
ADD NEW DIGIT 
SAVE MANFISSA 
AND LOOP 


SAVE RETURN 


SEE JF DEFINITION ALREADY CHAINED IN LEVEL CHAIN 


TRANSFER IF NOT ALREADY CHAINED 

MAKE DEFINITION POINTER RELATIVE FOR RETURN 
AND RETURN 

GET POINTER TO LLA CHAIN POINTER 

CHECK LL OF DEFINITION 

TRANSFER fF LLO 


GET RELATIVE POINTER TO LEVEL CHAIN POINTER 
MAKE POINTER ABSOLUTE 

CHECK IF AT END OF CHAIN 

TRANSFER IF AY ENN OF CHAIN 

GET POINTER TO FOLLOWING ELEMENT IN XR - 23 
MAKE POINTER ABSOLUTE 

AND LOOP TO TRY aGalN 

STORE END CHAIN POINTER IN CURRENT pEFINITION 
GET RELATIVE POINTER TO CURRENT DEFINITION 


END 


END 


G11673 vonrung 
0141674 041557 
b11675 096469 
G11676 095164 
011677 U04216 
U1i1700 UNn215S 
U117U1 UQNd44 
641702 096216 
0414743 GONONOD 
U117U4 U35222 
0141705 000091 
041706 u06437 
UF BINARY CARD 
041707 UQE216 
041710 Uonugol 
041711 0411730 
011712 096216 
011713 uUg6415 
011714 011717 
U11715 011654 
011716 G11720 
C411717 0352279 
011720 611731 
044721 041423 
011722 002152 
0411723 onnoctg 
011724 035222 
011725 Ogngng 
011726 006554 
011727 006210 
011750 009000 
011751 wuooang 
011732 Gonono 
041733 0427025 
011734 090046 
OF BINARY CARD 
011735 096436 
0141736 95164 
011737 096216 
011749 006436 
011741 0906216 
011742 012025 
011743 042005 
0117494 011357 
011745 011747 
011746 777772 
011797 035221 
U11790 777777 
011751 On0007 
641752 041755 


17,%63 


7109 OU 
22Qn Ou 
7409 O00 
7000 0 
7409 AQ 
2209 OV 
Ingo Os 
6nga ou 
6210 1/ 
0619 Oy 
06190 O¢ 
7000 OY 


Qou0V1/3 


7109 OQ 
2200 41 
loud 90 
6010 00 
ino0 93 
6019 Og 
700 Oy 
7100 90 
1610 OY 
7410 Ou 
7470 oy 
4500 oO 
6200 47 
0600 ag 
2350 109 
04110 OO 
7109 00 
Qo0g000 

Qauyoud 

6290 05 
7400 00 
2200 08 


gooogi79 


7400 00 
7009 OO 
7400 OD 
1970 OO 
6019 00 
22u0 00 
6009 00 
7200 OO 
6n10 OV 
2209 O83 
0600 Ov 
2227 08 
7210 10 
6n50 60 


ALG1.438 


3382 
3333 
3334 
3335 
3336 
3357 
3338 
3339 
3340 
3341 
3342 
3343 


3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3253 
3354 
3355 
3356 
$357 
3358 
3359 
3360 
3361 
3362 
3763 
3364 
3365 


3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 


LAX 
TLUG 


TLUG? 
TLUGS 


PARQK 


TLUT 
LASTS 
L PAR 


TPCHK 


TRA 
LUX0 
STXo 
tSXx0 
TRA 
LOXxn 
CMPX) 
TZE 
EAX1 
ADX1 
ANX4 
TSXo0 


TRA 
LDXO 
CMPXQ 
TNZ 
CMPXG 
INZ 
TSX0 
TRA 
SBX1 
STX4 
STX7 
STZ 
EAXO 
ADXO 
LDA 
NOP 
TRA 
ZERO 
ZERO 
EAXG 
STXO 
LpXx0 


STXxo 
TSXO 
TRA 
CMPX7 
TNZ 
LDXO 
TZE 
XL 0 
TNZ 
LOxo 
ADXO 
LAXxe2 
LXLL 
TPL 


FASS ? 


ee 

KNGE 
AtLEVEL 
APEEK 
AtNOMAT 
ASUEEKF 
SOF, NU 
ABNOMAT 
0,7 
TESTAR 
ASDF DU 
ASTLU 


ASNOMAT 
a4 
TLUT 
AENOMAT 
DSINENT, DU 
TLUG2 
LK 
TLUGS 
TEOEF 
LASTS 
TG 
AfPEEKF 
0,7 
TESTAB 
AESC.0 
LEXXS 
ASOUK 


Qe AL 
LPARP 
SESLPAR, DU 


ASMATT 
ASPEEK 
ABSNOMAT 
AtMATT 
ASNOMAT 
L PARP 
CHKq0 
RNGE 


Bait ug 


ANE RKETIJRN 

WET CURRENT RANGE NUMBER 

STURE FOR TABLE LOOK UP ROUTINE 
PEEK AT NFXT INPUT SYMBOL 

NWO MORE SO FAIL 

GET A LOOK AT FOLLOWING SYMBOL 
IS If THE WORD OF 
YES = CURRENT SYMBOL 
GET SYM30L IN XR » 1 
MAKE IT ARSOLUTE 
MAKE IT POINT TO CHAIN OF DEFINITIONS 
LOUK UP SYMBOL IN SYMHOL TASLE 


1S A FIELD SFLECTOR 


WO MORE SO FAIL 

GET TYPE OF ENTRY IN XR - y 

SEE IF IT IS OF THE REQUIRED TYPE 

NO © FAIL 

IS THIS aN IDENTIFIER 

wO = TRANSFER 

LINK DEFINITION TO CHAIN FOR CURRENT LL 
AND CONTINUE 

MAKE NEFINITION PMINTER RELATIVE 

AND STORE 

SAVE LAST SYMBOL REAU aS TAG 

ACCEPT SYMBOL 

GET POINTER TO SYMBOL IN XK - g 

MAKE POINTER ABSOLUTE 

GE} TALLY FOR IDENTIFIER SUCCESSFULLY MATCHED 
PRINT 

AND GIVE SUCCESSFUL RETURN 


GET PARAMETER IN XR = Q 
AND STORE 
GET A POINTER Ton LEFT PARFNTHESIS 


AND STORE FOR POSSIBLE FRROR MESSAGE 
PEEK AT NEXT INPUT SYMBOL 

NO MORE SO FAIL 

SEE IF NEXT SYMROL MATCHES 

NO # FAIL 

GET TYPE OF PARENTHESIS NEEDED 
TRANSFER IF ANY TYPE IS ACCEPTABLE 

GET POINTER TO CURRENT RANGE IN XR - 0 
TRANSFER IF NOT ZERO 

SET KR « f TO POINT TO RANGE MINUS ONF 
MAKE IT ARSOLUTE 

GET ALL BITS IN XR + 2 

GET TYPE OF RANGE IN XR = 1 

TRANSFER YF NOT A PROCEDURE DENOTATION 


uLoo/ 


END 


END 


L4 52726072 


c 


G117>3 aqnon4 
041724 u41764 
011725 Go94530 
U11726 64141761 
G41727 000091 
UL1760 011764 
011761 Ugp6531 
041762 777777 
OF BINARY CaRD 
U11763 Gnnone 
011764 yon01s 
611765 611770 
U41766 Go0040 
011767 v417714 
011770 Oo010%0 
011771 Gono14 
0114772 641775 
U11773 Upd010 
611774 041776 
011775 090020 
011776 000012 
411777 012092 
042000 aoneno 
6012031 6120903 
012092 60909400 
U1z20U3 0412025 
012004 096216 
017005 002152 
012006 On0000 
042007 035222 
012010 U000ND 
OF BINARY CARD 
012011 096554 
042n12 Ug6210 
12013 090000 
0412014 012025 
012015 Onn962 
012016 006436 
42017 611736 
012020 000090 
0142021 012025 
042022 Oonito 
012023 006436 
042024 011736 
O1z0¢5 000090 
G1iz02¢6 011357 
612027 U3522e1 
U1e0sq agn0n5 
612051 006216 
012032 vonon4 


17,803 


1629 
7400 
2010 
6010 
162Nn 
7TLUO 
1015 
6n1o 


GouduULeO 


162N 
221N 
6019 
1620 
7100 
1620 
2210 
6010 
1620 
741UN 
1620 
2219 
6010 
1620 
7100 
1620 
3020 
6010 
4500 
6200 
0600 
2390 


Oo000Le1 


410 
7400 
6200 
7409 
2200 
7400 
7400 
620 
7400 
2200 
7400 
740 


0S 
OV 
SN) 
00 
on) 
90 
O$ 
00 


AS 
10 
00 
05 
OU 
0S 
10 
Ou 
Os 
NY 
03 
10 
00 


00 


QOUNNd 


2200 
0609 
2210 
6009 
2210 


A-~G2L68 


3360 
3381 
3382 
3383 
3364 
3365 
3386 
3387 


3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3499 


3410 
$441 
3412 
3413 
3414 
3415 
3416 
3417 
34418 
3419 
3420 
3424 
3422 
3423 
3424 
3425 
3426 
3427 


CHK4 


CHK? 


CHKS 


CHK4 
CAKS 


CHK6 
CHK7 


CHK8 
CHK 


CHKLO 


BAR 


BARF 


LPARP 
CPAR 


SHX2 
TRA 
CMPX4 
TNZ 
SRK2 
TRA 
CMPX4 
TNZ 


SBX2 
LDX4 
TNZ 
SBX2 
TRA 
SBX2 
LOXx4 
TNZ 
SBX2 
TRA 
SBX2 
LDX4 
TNZé 
SBX2 
TRA 
SBX2 
CANX2 
TNZ 
STZ 
EAXO 
ADXN 
LDA 


NOP 

TRA 

EAXO 
STXO 
LDxa 
STXO 
TRA 

EAXO 
STXO 
LDxo 
STXO 
TRA 

ZERO 
LDXO 
ADXO 
LDX4 
TZe 

LDX4 


PASS 2? 


PDEN, DU 
CHK 

Lt BarR, RU 
CHKO 
FR,DU 
CHK 
1T$CLOR, PU 
$F RROAR 


PR,nU 
7+4,0 
CHK4 
£COL,9U 
CHK5 
MCOL,.DU 
7+5,0 
CHKEG 
ZCOmM,DU 
CHK? 
MCOM,DU 
7+3,9 
CHKE 
ZSEmM,DU 
CHK 
MSEM, DU 
LPARP 
AtNOMAT 
ABSPEEKF 
U,7 
TESTAB 
AtSC,9 


4EXxS 
AtOK 
Q,AL 
LPARP 
SSBAaR,DU 
ATMATT 
TPCHK 
O,AL 
LPARP 
SHBARF,DU 
ADMATT 
TPCHK 


RNGE 
TSPROG 
3,0 
ALNOMAT 
4,0 
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RESET PROCEDURE DFNOTATION RIT 
AND TRANSFER 

SEE IF RaNGE IS TERMINATED BY A BAR OR RARE 
TRANSFER TF NOT A BAR RANGE 

RESET BAR BIT IN XR = 2 

AND TRANSFER 

SEE TF RANGE 1S TERMINATED BY ) 

TRANSFER EF NOT = COMPILER ERROR 


IN XR = 2 


RESET PARENTHESIS BIT IN XR «- 2 
GET NuMBER OF COLONS IN RANGE 
TRANSFER TF ANY COLONS 

RESET ZERO COLONS BIT IN Xk ~ 2 
AND TRANSFER 

RESET MANY COLONS BIT IN XR © 2 
GET NUMBER OF COMMAS IN RANGE 
TRANSFER IF ANY COMMAS 

RESET ZERO COMMAS BIT IN XR « 2 
AND TRANSFER 

RESET MANY COMMAS BIT IN Xk © 2 
GET NUMBER OF SEMICOLONS IN RANGE 
TRANSFER IF ANY SFMICOLONS 


RESET ZERO SEMICOLONS BIT IN XR = 2 
AND TRANSFER 
RESET MANY SEMICOLONS BIT IN XR - 2 


SEE IF RANGE IS ACCEPTABLE 

TRANSFER TF NOT aCcEPTARLF 

ACCEPT SYMBOL 

GET POINTER TO SYMBOL IN XR ~ Q 

MAKE POINTER ABSOLUTE 

GET TALLY FOR INENTIFIER SUCCESSFULLY MATCHED 


PRINT 

AND GIVE SUCCESSFUL RETURN 

GET PARAMETER IN XR = Q 

AND STORE 

GET A POINTER To RAR 

AND STORE FOR POSSIBLE FRRUR MESSAGF 

AND SEE ITF NEXT SYMBOL IS OF PROPER TYPE 
GET PARAMETER IN XR e& 0 

AND STORE 

GET A POINTER TO BaRF 

AND STORE FOR POSSIBLE FRROR MESSAGE 

AND SEE JF NEXT SY¥MROL 1S OF PROPER TYPE 


GET POINTER TO CURRENT RANGE CONTROL ENTRY 
MAKE POINTER ABSOLUTE 

GET NUMBER OF COMMAS IN RANGE 

FAIL TF NO COMMAS 

GET NUMBER OF COLONS IN RANGE 


CVE 


END 


\ Le Puedleé 
2 

v129033 uyeelo 
b1-G94 uu s 
127095 GO6216 
L170386 U04b210 
UF BINARY CaRf 
bizons7 cornio 
U17040 606436 
012044 95164 
017042 uQh216 
612045 Uuon7r153 
U1?7044 UQra6t4 
0142045 006216 
U1z2046 035235 
012097 605742 
012050 vonond 
612021 035222 
012022 von90NnO 
617093 Ln6554 
012054 Uug2152 
642095 u92153 
U12026 035222 
LL?027 ugdn0nd 
612060 006554 
0120641 uo92153 
O12n62 094210 
U1z2063 005164 
012004 ugs216 
OF BINARY CARD 
042005 002153 
012066 00016 
U1Z7097 ug&216 
012070 041357 
012071 0964450 
642072 0000090 
012073 035222 
U1z2074 vooons 
412075 096437 
U12076 Un6216 
042077 onnont 
U42100 00969415 
C12101 006216 
Gi21u2 000093 
Gi2i103 wuondee 
U12104 046594 
012195 ut12614 
012106 00909090 
012107 035222 
U12110 ugndnno 
012111 vn6554 
012112 6€02152 


enLe 
671i 
oni" 
7408 


vOUnYLTSe 


22u0 
74uN" 
7QuUN 
7109 
22yn 
nu 
6010 
74/9 
7470 
6209 
V600 
235n 
vi19 
4500 
220m 
0600 
2359 
0119 
4500 
71u0 
70uW0 
714uU0 


00090185 


2200 
1aun 
6019 
2200 
7409 
6210 
0610 
0610 
79un 
74.09 
2220 
1onen 
6919 
2390 
7719 
0750 
7ou0 
6200 
0600 
235n 
0110 
450 


YY 
ty 
Du 
Qu 


00 
035 
wae) 
Ou 
OU 
1/ 
Ou 
05 
OU 
OU 
11 
035 
OU 
AL 
OU 
0S 
AY 
7 
Ou 
40 
00 
Nu 


TAGOF 


LABEL 


Iv 
LEK 
TWZ 
TRA 


LDXG 
STXO 
TSxXOa 
TRA 
LDXG 
CMPXQ 
TNZ 
STX7 
KED 
EAXO 
ADXO 
LDA 
NOP 
STZ 
LOXO 
ANXO 
LDA 
NOP 
$T¥2 
TRA 
TSXo0 
TRA 


LDXO 
CMPXO 
TNZ 
LPXx0 
STXO 
EAX4 
ADX4 
ADX4 
TSX0 
TRA 
LDXx2 
CMPX2 
TNZ 
LDA 
ARL 
ADA 
TSXO 
EAXO 
aANDXo 
LDA 
NOP 
STZ 


ears 
rads e 


Adama T 
Sad 
ASNOMAT 
AdUK 


SbERMS , DU 
ASMATT 
ASPFEK 
ABNOMAT 
ASQEEKF 
ShOF,DU 
ARNOMAT 
ABZSTACK, ID 
TESOVE 
Q,7 
TESTAR 
AbSC,0N 
1bXxS 
ASPEEKF 
ASQEEKF 
TESTAB 
A$SC,0 
L$XXS 
ASQEEKF 
ASOK 
ASPEEK 
ASNOMAT 


ABQEEKF 
SECHOLON, DU 
ABNOMAT 
RNGE 
ASLEVEL 
0,7 

TESTAB 
ASDF ,DU 
AGTLU 
ASNOMAT 


tad 
DSIDENT, DU 
AENOMAT 
Sel 

18 
OfLAL,DU 
CAD 

0,7 
TESTAR 
ASSC,9 
LhXxS 
ASPEEKF 


PAIL TF avy COLONS 

GET NUM3ER OF SEMICOLONS IN 
FALL TF aNY SEMICOLONS 
SUCCEED [F PARALLEL CONSTRUCTION 


RANGE 


GET A POINTER TO TaG OF MESSAGE 
AND STORE FOR POSSTSALE FRROR MESSAGE 
PEEK AT NEXT TWO [TNPUT SYMBOLS 
NO MORE SO FatL 

GET FOLLOWING INPUT SYMROL 

IS IT THE SYMBOL OF 

WO - FAIL 

STURE TAG IN CONTROL STACK 
CRECK FOR STACK OVERFLOW 

GET TAG IN XR = Q 

MAKE POINTER aBSOLUTE 

GET FALLY WORD FOR TAG IN A 
AND PRINT JT 

ACCEPT TaG 

GET OF SYMBOL 

MAKE IT aRSOLUTE 

GET FALLY WORD FOR OF IN A 

AND PRINT [T 

ACCEPT OF 

ANID) EXIT 

PEEK AT NEXT TwO INPUT SYMBOLS 
NO MORE SO FAIL 


GET FOLLOWING INPUT SYMROL 

1S If A COLON SYMBOL 

NO = FATL 

GET CURRENT RANGE NUMBER 

STURE FOR TABLE LOOK UP ROUTINE 

GET SYMBOL IN xR = 1 

MAKE IT ARSOLUTE 

MAKE IT POINT TO CHAIN OF DEFINITIONS 
LOOK UP POSSIBLE LABEL IN SYMROL TARLF 
NOT IN TABLE SO FAIL 

GET TYPE OF ENTRY JIN XR = 2 
SEE IF YT AN IDENTIFIER 

NO = PROBABLE PROGRAM ERROR 
GET VALUE OF LAREL IN AU 
MOVE TO aL 

ADD DEFINE LABEL CODE 

AND a0D LABEL DEFINITION TO 
GET LABEL IN XR + Q 

MAKE POINTER ABSOLUTE 
GET TALLY WORD FOR LAREL 
AND PRINT IT 

ACCEPT LABEL 


OUTPUT CODE 


IN A 


U1957 


END 


Ut U5"26-72 
2 

ENUD OF BINARY CARD 
ULOIL3: 062155 
U12114 035222 
012115 ug0000 
012116 006554 
042117 002153 
0142120 006210 
042121 035234 
042422 777777 
012123 035234 
012124 016446 
0142125 045195 
042126 016203 
0427127 035235 
9142150 005742 
Y12151 000022 
042132 016633 
912133 012403 
042134 035234 
0142435 777777 
012136 777777 
042157 090002 
012140 006210 

END OF BINARY CARD 
042141 035235 
012142 012171 
012143 035216 
012194 O900%1 
U12145 047630 
017146 035216 
Q42147 Uv4646y 
017190 35234 
042151 777777 
U12122 035234 
0417193 016446 
G12194 045072 
042195 35234 
UYOPoE:- FITIT) 
C412197 Goo0n0 
G42190 612171 
C4211 conott 
U1i2192 uognone 
U12193 9012539 
C12164 0142171 
G1z2195 009922 
0127166 046636 
OF BINARY CARD 
012167 012614 
G42170 06210 
biri71 untgsa 


17,363 


Oounuie4 


2200 
Q6y0 
2350 
0110 
4500 
719090 
2210 
1610 
1619 
7410 
7000 
2350 
7550 
7470 
7749 
0750 
70u0 
2210 
16410 
5350 
9550 
7400 


Qoucutss 


2210 
7410 
0610 
270 
nga 
1479 
7470 
224n 
1619 
16190 
7410 
7nyn 
22ein 
1419 
0549 
22en 
7420 
g540 
7009 
2350 
7710 
0759 


QOONUL86 


7009 
74909 


a) 


00 


34 


00 
00 


05 


40 
OG 


Ongnud 


ALGIL68 


3476 
3477 
3478 
3479 
3480 
3481 
3482 SASGN 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3A95 
3496 
3497 


3498 DASGN 
3499 
3509 
3501 
3502 
33035 
3504 
3595 
3506 
357 
35yA 
3399 
3510 
S344 
3512 
3513 
3544 
3515 
3516 
3547 
3518 
3519 


3520 
3524 
3522 DASGT 


LOX 
ADXO 
LDA 
NOP 
STZ 
TRA 
LDX4 
SAX1 
SBX1 
STX4 
TSXO 
LDA 
STA 
XED 
ARL 
ADA 
TSX0 
L DX 
SRX4 
LCA 
ASA 
TRA 


LOxd 
STX14 
ADX4 
LOX7 
¥SXO 
SEX7 
STK7 
DXA 
SHX4 
SHX1 
STX4 
TSXO 
LOX4 
SBX4 
Ags 

LOx2 
STX2 
AOS 

TSXo 
LOA 

ARL 

ADA 


TSXG 
TRA 
ZFRO 


PASS 2 


ASQEEKF 
TESTAB 
AGSC,0 
1$XxS 
ASQEEKF 
AFOK 
ASWORK 
e1et 
AEWORK 
VALP 
SOFT 
TMONE 
AGSTACK, JD 
TE&SOVF 
18 
CSASGN, DU 
INS 
AGWORK 
wigt 
ria Dbh 
eat 
4SOK 


ASSTACK,D! 
CASGY 
YSMODE 
i,;1 
ADKrER 
"$MODE 
LECLR 
A SWORK 
back GY is 
AGWORK 
VALP 
STRNG 
ABWIRK 
“Let 
Gal 
DASGT 
dad 
eal 
DELW 
DASGT 
18 
CEASGNE,DU 


CAD 
AtOK 
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GET COLON SYMBOL 

MAKE POINTER aBSOLUTE 

GET TALLY WORD FOR COLON IN A 

AND PRINT [T 

ACCEPT CULON 

AND EXIT 

GET POINTER TO FND OF WORKING STACK IN XR @ 4 
GET POINTFR TO LAST CONTROL BLOCK 

MAKE IT RELATIVE 

AND STORE AS POINTER TO CURRENT VALLE 
DO SOFT COERCION 

GET FINAL MONDE IN au 

AND SAVE IN CONTROL STACK 

CHECK FOR STACK QVERFLOW 

MOVE JT BACK TO AL 

ADD ASSIGN COMMAND 

AND INSERT IT IN FRONT OF VALUE 

GET POINTER TO END OF WORKING STACK 
GET POINTER TO LAST CONTROL ELEMENT 
PREPARE YO ADD #4 TO LOC AND #4 TO LEN 
ADJUST LOC AND LEN IN LaST CONTROL ELEMENT 
AND EX]? 


GET MODE OF ASS{GNATION IN XR w 4 
AND Savé 
MAXE MOBE ABSOLUTE 
&Y DEREFERFNCED MODE IN XR = 7 
AND MAKE 17 UNIQUE AND aBSOLUTE 
MAXE MODE POINTER RELATIVE 
AND STORE AS TARGET MODE FOR RHS 
GET POINTER TO ENN OF WORKING STACK 
GET POINTFR TO LAST CONTROL BLOCK 
MAKE POINTER RELATIVE 
AND STORE POINTER TO CURRENT VALUE 
COERCE RHS TO PROPER MODE 
GET A POINTER TN THE FND OF THE WORKING STACK 
GET POINTER TO LAST CONTROL BLOCK IN XR ~ 4 
PREPARE FO COMBINE TOP TwO CONTROL RLOCKS 
GET MODE oF ASSIGNATION IN XR & 2 
AND STORE AS MODE OF RESULT 
INCREMENT LENGTH OF RHS TO INCLUDE ENTER CODE 
COMBINE aSSIGNATION INTO ONE CONTROL BLOCK 
GET MODE OF ASSIGNATION IN Ay 
MOVE MODE TO aL 
ADD DO ASSIGNMENT CODE 


AND AND IT TO OUTPUT CONE 
AND EXIT 
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2 PASS 2 
012172 016460 2350 00 3523 ASGNE LDA DECLR GET MODE OF ASSIGNATION 
042173 009022 7719 OU 3524 ARL 18 MOVE MODE TO AL 
012174 046636 0750 OS 3525 ADA USASGNE, DU ADD END OF ASSIGWATION CODE 
012175 012614 7000 Ou 3526 TSXO CAD AND ADD TO OUTPUT CODE 
012176 Uo06210 7400 Ov 3527 TRA ASOK AND EXIT 

X 012177 O0N000 04110 O00 3528 SCTAB NOP HEH NEEDS APPROPRIATE ROUTINE 
012200 035234 2210 Ou 3529 ScT LDX4 ASWORK GET POINTER TO END OF WORKING STACK 
012204 777777 1610 %1 3530 SRAX1 etsf GET POINTER TO LAST CONTROL RLOCK 
042202 035234 1610 oVU 3531 SBX4 ASWORK MAKE POINTER RELATIVE 
012203 016446 74140 Ou 3532 STX4 VALP SAVE POINTER IN CURRENT VALUE POINTER 
012204 015105 7ou0 dy 3333 TSXO SOFT COERCE LHS SOFTLY 
042205 016464 2350 ou 3534 LDA GLBL GET A UNIQUE LABEL 
012206 0416464 9540 OU 3535 AOS GLBL INCREMENT LABEL GENERATOR 
042207 046507 0750 03 3536 ADA OSJUMP, DU ADD JUMP CODE 
012210 012403 7ou0 OV 3537 TSX0 INS AND INSERT TRANSFER CODE BEFORE VaLUE 
042211 017020 6350 09 3538 EAA OSMREF GET MAKE REFERENCE VALUF BLOCK COMMAND 
012212 0412493 7n0n OD 3539 TSX0 INS AND INSERF COMMAND IN FRONT OF VALUE 
012213 046464 2350 O90 3540 LDA GLBL GET aA UNIQUE LABEL 
0142214 016464 0540 OO 3544 AOS GLBL INCREMENT LABEL GENERATOR 

END OF BINARY CARD ae 
012215 035235 7550 3542 STA ASSTACK, ID STORE PRESENT STATE OF LABEL GENERATOR IN STACK 
042216 005742 7470 i 3543 XED TESOVF CHECK FOR STACK OVERFLOW 
012217 046504 0750 OS 3344 ADA O$LBL,DU ADD DEFINE LABEL CODE 
012220 012403 7000 00 3545 TSX0 INS AND INSERT BEFORE VALUE 
042221 016446 2210 50 3546 LDX4 VALP GEF POINTER YO CURRENT VALUE 
042222 635234 9610 00 3547 ADX4 ABWORK MAKE CONTROL BLOCK POINTER ABSOLUTE 
012223 0090004 2270 $1 3548 LDX7 Let GET MODE OF VALUE IN XR = 7 
0142224 010639 7000 00 3549 TSXo ASXFER MAXE MODE POINTER UNIQUE AND ABSOLUTE 
0142225 000001 2350 47 3550 LDA 1,7 GET REQUIRED MODE OF RHS IN aU 
012226 000022 7710 Oy 3551 ARL 18 MOVE MODE TO AL 
0142227 046542 0750 OS 3552 ADA OSCONF, DU ADD FEST CONFORMITY CODE 
012230 012403 7000 00 3553 TSXo0 JNS AND INSERT CODE BEFORE VALUE 
012234 016464 2350 00 3554 LDa GLBL GET 4 UNIQUE LaREL 
0142232 046464 0540 00 3555 AOS GLBL INCREMENT LABEL GENERATOR 
0142233 046545 0750 OS 3556 ADA OSTF,DY ADD GF RENSFER IF FALSE CODE 
042234 012403 7000 OD 3557 TSXo0 INS AND JNSERF TRANSFER CODE BEFORE VALUE 
042235 017020 6350 O09 3558 EAA CEMREF GET MAKE REFERENCE VALUF BLOCK COMMAND 
012256 012403 7990 40 3559 TSX0 JNS AND INS&RT CODE BEFORE VALWE 
012237 046446 2210 ou 3560 LOX4 VALP GET POINTER TO CURRENY VaLUE CONTROL BLOCK 
042240 35234 0640 00 3564 ADX4 ASWORK MAKE POINTER ABSOLUTE 
012241 0090001 2350 41 3562 LDA 1,1 GET MODE OF VaLUE IN aU 
012242 009022 7710 OO 3363 ARL 18 MOVE MODE TO AL 
END OF BINARY CARD 00000488 

012243 016553 0750 O85 3364 ADA OSCaSGN,DU ADD CONFORMITY aSSIGNMENT CODE 
012244 012614 7900 Oy 3565 TSX0 Cad AND ADD CODE aFTER VALUE 
012245 016603 6350 00 3566 EAA OSTRUE GET ENTER FRUE CODE 
012246 012644 7000 90 3567 TSXO CAD AND ADD CODE AFTER VALUE 
012247 016464 2350 09 3568 LDA GLBL GET A UNIQUE LABEL 
012250 0146464 0540 Ov 3369 Aos GLBL INCREMENT LABEL GENERATOR 


012251 016507 Q75n Q3 3570 ADA OSJUMP,DU ADD UNCONDITIONAL YUMP CODE 


U1557 


END 


O41 0526-72 
2 

012252 0142614 
U12253 016464 
0142254 on9n0n4 
012255 016504 
042256 012614 
042257 0617026 
0422690 012614 
642261 006210 
012262 000000 
042263 017023 
042264 012614 
042265 035235 
042266 0142324 
042267 0423?1 
042270 016507 
OF BINARY CARD 
G12271 012614 
012272 042321 
012273 642321 
042274 046594 
0142275 012614 
012276 046696 
042277 0126144 
012300 0142321 
012301 046504 
042302 0142614 
042303 016446 
042304 035234 
042305 000000 
0142306 000003 
C42307 Ogon001 
012319 012530 
042311 035234 
O042342 000005 
042313 777772 
0423144 000002 
042315 035224 
042316 000002 
OF BINARY CARD 
042347 000002 
012320 006210 
0123214 000000 
042322 016600 
042323 042325 
042324 046575 
0492325 035235 
042326 005742 
042327 006210 
042330 035235 
012351 020000 


17,868 


7000 
2350 
1750 
0750 
7000 
6350 
79y0 
7¢o0 
0110 
6350 
70Q0 
2350 
7550 
0540 
0750 


o000u489 


7n00 
2350 
0540 
0750 
76900 
6350 
7000 
23>0 
0750 
7000 
2210 
9610 
0540 
6350 
7550 
7000 
2240 
1610 
2200 
0400 
7200 
1600 


Qn000190 


4400 
7100 


00 
00 
07 
05 
00 
en) 
00 
90 
00 
0Q 
00 
54 
00 
00 
03 


00 
00 
00 
i) 
90 


41 
00 


000008 


2350 
7400 
2350 
7550 
7470 
74900 
2350 
2360 


a) 


ALGOL68 


So7t 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3584 
3582 
3583 
3584 
3585 


3586 
3587 
3588 
3589 
3590 
3594 
3392 
3593 
3594 
3595 
3596 
3397 
3598 
3599 
3600 
3401 
3602 
3603 
3604 
3605 
3606 
3607 


3608 
3609 
3610 
S414 
3612 
3613 
3614 
3615 
3616 
3417 
3618 


DCTAB 
DCT 


DCTT 
SISNT 


SIS 
S)S4 


TONTY 


TSXx0 
LDA 
SBA 
ADA 
TSXO 
EAA 
TSX0 
TRA 
NOP 
EAA 
TSX0 
LDA 
STA 
AOS 
ADA 


YSxo 
LDA 
AOS 
ADA 
TSKO 
EAs 
TSXO 
LDA 
ADA 
TSKO 
LOx4 
ADX4 
AOS 
EAA 
STA 
TSXO 
LOX 
SBX4 
Loxo 
AS X10 
LXLo 
§8x0 


SXLO 
TRA 
ZERO 
LDA 
TRA 
LDA 
STA 
XED 
TRA 
LDA 
LDQ 


PASS 2? 


CAD 
GLBL 
OFLBL,DU 


CAD 
ASSTACK,DI 
DCTT 
DCTT 
OFJUMP, DU 


CaD 

ocTr 
DcTT 
OSLBL,DU 
CaD 


QSFALSE 
CAD 

DETT 
OSLBL,DU 
Cad 


VALP 
ASWORK 


OSISNT,DU 
SiS 
O$tS,DU 
ASSTACK, ID 
TSSOVF 
A%OK 
ASSTACK,DI 
WEBAL, DU 
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AND ADD CODE AFTER VALUF . 

GET CURRENT VALUE OF LABEL GENERATOR 
GET LABEL INIFIALLY GENFRATED 

ADD DEFINE LABEL CODE 

AND ADD CODE AFTER VALUF 

GET SEY STACK POINTER TO MAXIMUM COMMAND 
AND AND CODE AF YER VALUE 

AND EXIT 

NEEDS APPROPRIATE ROUTINE 

GET CONFORMITY CLEANUP COMMAND IN a 
AND ADD AFTER RHS VALUE 

GET SAVED VALUE OF LABEL GENERATOR 
AND SAVE 

INCREMENT TO NEXT LABEL TO BE USED 
ADD UNCONDITIONAL YUMP CODE 


AND ADD AFTER RHS VALUE 

GET NEXT LABEL TO BE USED 

AND INCREMENT FOR NEXT TIME 

ADD DEFINE LABEL CODE 

AND aDD AFTER RHS VALUE 

GET ENTER FALSE CODE 

AND AND CODE AFTER CURRENT VALUE 

GET NEXY VALUE OF LABEL TO CONSIDER 

ADD DEFINE LABEL CODE 

ADD CODE aFYER CURRENT VALUE 

GET POINTER TO CURRENT VALVE CONTROL BLOCK 
MAKE POINTER ABSOLUTE 

MAKE CONTROL BLOCK KEY 2 VALUES 

GET A BOOLEAN MODE 

AND STORE AS MODE OF RESULT 

COMBINE {NTO SINGLE VALUE 

GET POINTER TO END OF WORKING STACK 

GET POINTER TO LAST CONTROL BLOCK IN WORK 

GET MYJNYJS NUMBER OF WORDS INSERTED REFORE VALUE 
UPDATE LEN/LOC WORD TO REFER TO START OF VALUE 
GET POINTER YO END OF GENERATED Cope 

SUBTRACT STARTING LOCATION OF VALUE TO GET LENGTH 


AND STORE LENGTH IN LOC/LEN WORD 
AND EXIT 


GET JSN¥ IDENTITY CODE 

AND GO do IDENTITY 

GET {8S IpENTITy cope 

STORE RELATOR IN CONTROL STACK 
CHECK FOR STACK OVERFLOW 

AND EXIT 

GET RELATOR IN aU 

GET BALANCED HEADER FOR WORK ENTRY 
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2 PASS 2 
YVi23s2 0900N2 760 07 3619 ADQ 2.0L INDICATE 2 VALUES ARE BALANCED 
012353 12572 7000 O00 3620 TSX WAD GO ADA TO WORKING AND CONTROL STACKS 
012334 035234 2200 O00 3H21 LDXO ABWORK GET POINTFR TO END OF WORKING STACK 
012355 0005 1600 O83 3622 SRXO 5,DuU GET POINTER TO LaST CONTROL BLOCK IN WORK 
012336 U35234 1600 O00 3423 S8X0 AS WORK MAKE POINTER RELATIVE 
042337 016446 7490 40 3624 STXO VALP AND STORE aS POYNTER TO CURRENT CONTROL BLOCK 
012340 «000001 2250 OS 3625 LDX3 4,DU INDICATE SOFT COERCION OF IDENTITY OPERANDS 
012344 015114 70800 OO 3626 TSXO 8B CALCULATE DESIRED MODES OF OPERANDS 
012342 016202 2270 Ov 3627 LOX7 BMONE GET TARGET MODE FOR OPERANDS 
012343 042374 7470 Og 3628 STX7 LONTT AND SAVE 
012344 035234 2200 00 3629 LDX0 AGWORK GET POINTER TO END OF WORKING STACK 
END OF BINARY CARD 000001491 
012345 0900142 1690 OS 3630 $B8X0 10,DU GET POINTER TO SECOND OPERAND CONTROL BLOCK 
012346 035234 1600 Q0 3631 SBX0 ASWORK MAKE POINTER RELATIVE 
012347 016446 74900 O09 3632 STX0 VALP AND STORE AS CURRENT VALUE CONTROL ALOCK POINTER 
012350 015253 7000 00 3633 TSXO ¢ SET UP COERCION FOR RIGHT OPERAND 
012351 777777 7400 00 3634 TRA SERROR IMPOSSIBLF COERCION w ERROR 
012352 0416204 7000 O90 3635 TSXO pc DO INDICATED COERCIONS 
012353 0412374 2270 ov 3636 0X7 TONTT GET TARGET MODE FoR OPERANDS 
012354 016202 7470 O0 3637 STX7 BMODE AND STORE aS YARGET MODE 
012355 035234 2200 O06 3438 LDX0 ASWORK GET POINTER TO END OF WORKING STACK 
012356 000017 1600 O03 3639 SBX0 15,nU GET POINTER TO FIRST OPERAND CONTROL BLOCK 
012357 035234 1600 O06 3640 S$BX0 ASWORK MAKE POFNTER RELATIVE 
012360 016446 7400 506 SA4L STX0 VALP AND STQRE AS POINTER TO CURRENT VaLUE 
0142364 015253 7000 90 3642 TSX0 C SET UP COERCION FOR LEFT OPERAND 
012362 777777 7400 90 3443 TRA SERROR IMPOSSJBLE COERCION * ERROR 
042363 016204 7000 OO 3644 TSXo0 Dc DO INDICATED COERCIONS 
012364 035234 2210 00 3445 LDX1 ASWORK GET POINTER TO END CF WORKING STACK 
012365 000005 1610 93 3646 S8X1 5,Du GEY POINTER TO LAST BLOGK © BAL2 
042366 0412539 7000 00 3647 7SX0 DELW COMBINE OPERANDS INTO a SINGLE VALUE 
042367 035234 2210 ov 3648 LOX¢ ASWORK GET POINTER TO END CF WORKING STACK 
042370 000005 1610 05 3649 SBX4 5, DU GET POINTER TO LAST VALUE CONTROL BLOCK 
012371 000003 6350 oy 3650 EAA M$BOOL GEY MODE OF [DENTITY RELATION 
012372 000004 7550 $1 3654 STA ot AND STORE AS MODE OF VALUE 
END OF BINARY CARD 900000492 
012373 006210 7100 00 3652 TRA ASOK AND EXI? 
012374 000000 000000 3653 IDNTT ZERO 
012375 042456 7490 O09 3654 ALB STX0 JNSxX SAVYE RETURN 
042376 016446 22140 00 3655 LOX1 VALP GET POINTER TO CURRENT CONTROL BLOCK 
012377 035234 9610 60 3456 ADX4 ASWORK MAKE POINTER ABSOLUTE 
012400 000002 7250 114 3657 LxXL5 21 GET LENGTH OF VALUE IN XR = 5 
012401 000002 0650 $3 3658 ADXS5 2,1 AND ADD LOCATION OF VALUE 
012402 012407 7400 Q0 3659 TRA ADD4 GO TO INSERTION ROUTINE 
012403 012456 7400 O60 3660 INS STX0 INSy SAYE RETURN 
012404 016446 2210 O00 3661 LOX4 VALP GET POINTER YO @URRENYT CONTROL BLOCK 
012405 035234 9610 00 3662 ADX4 ASWORK MAXE [7 ABSOLUTE 
012406 0090002 2250 4&1 3663 LDX5 Zeal GET POINTER TO STARY OF VALUE IN XR © § 
012407 012457 7550 og 3664 ADD, STA N SAYE WORD TO BE INSERTED 
012410 035224 7220 00 3665 LXL2 TSCODE SAVE OLD END ADDRESS OF CODE 


012411 000000 6350 Oo 3666 EAA ie-i GET PARAMETER To ASK FOR ONE WORD 
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2 PASS 2 
Or24d2 035224 2210 05 3667 LOX1 = TSCODE, DU GET POINTER TO CODE TABLE CONTROL WORD 
12413 005663 7000 00 3668 TSXO = TSALOC AND ALLOCATE MEMORY 
O12424 0355224 0650 00 3669 ADX5 =—- TSCODE GET ABSOLUTE POINTER TO INSERTED WORD 
012415 012460 7450 Ou 3670 STX5 A AND STORE JN MEMORY 
012416 042460 1010 90 3674 JNS1 CMPX1 A HAVE WE MOVED ENOUGH 
012417 012424 600 au 3672 TZE INS2 TRANSFER If DONE MOVING 
012420 6777777 2350 $1 3673 LDA 494 GET WORD YO MOVE 
END OF BINARY CARD Qo00u4S93 
Deeked 000000 7320 41 5674 STA 0.2 AND STORE MOVED BACK ONE LOCATION 
Oi2e22 000003 1640 98 3675 SBX4 4, DU DECREMENT MOVE POINTER 
012423 012416 7100 90 3676 TRA INS¢ AND LOOP 
012424 012457 2350 00 3677 INS2 LDA N GET WORD TO BE INSERTED 
012425 090009 7550 $1 3678 STA 0,4 AND STORE IN OUTPUT CODE 
0142427 000001 2240 a3 3680 LDX4 1, Du GET A ONE FOR INCREMENTING 
012450 035234 2200 09 3681 LDXo ASWORK GET POINTER TO END OF WORKING STACK 
012431 000095 1600 03 3682 INS3 SRXO 5, Dy MAXE XR » Q POINT TO PRECEEDING STACK ENTRY 
012452 035214 1000 90 3683 CMPXO  TSWORK SEE JF POINTER 1S BELOW WORKING STackx 
012453 012456 6020 00 3684 TNC }NSX TRANSFER IF ALL BLOCKS REL@CATED 
012434 000000 2210 £0 3485 LDX4 0,0 GET TYPE OF ENTRY IN XR e 4 
012455 760000 3010 03 3686 CANX{ WSOBVCT,DU DOES ENfRY CONTAIN A LOC/LEN POINTER 
012456 042454 6000 00 3687 TZE INS TRANSFER IF NOT TO CONTINUE 
012457 000002 4050 10 3688 GMPX5 2,0 TEST INSERT POJNTER FOR FORBIDDEN RANGE 
O12440 012447 6000 00 3689 TZE INSS TRANSFER IF OK 
012441 012447 6040 00 3690 TI INS§ TRANSFER IF OK 
012442 000002 7220 40 3494 MXL2 2,0 GET LENGTH OF ELEMENT IN XR @ 2 
012443 000002 0620 40 3492 ADX2 240 ADD LOCATION TO GET END OF ELEMENT 
012444 042445 7420 00 3693 STX2 Set STORE FOR COMPARE 
012445 000090 4050 a3 3494 CMPX5 = wa, nu TEST INSERT POINTER FOR FORBIDDEN RANGE 
0142446 777777 6040 00 3A95 YM] SERFOR COMPILER ERROR » INSERTING IN MIDDLE 
END OF BINARY CARD 00000194 
012447 090002 1050 40 3696 INS5 (CMPX5 2,9 COMPARE INSERT POINTER WITH LOC OF VaLUE 
012451 012454 6950 90 3498 TPL tNS¢ TRANSFER {7 LOC 1s LESS THAN POINTER 
012452 o90002 0440 40 3699 INS6 ,Sx4 2,0 INCREMENT LOCATION OF VALUE BY ONE 
012453 012431 741009 00 3700 YRA {NS3 TRANSFER FQ LOOK FOR MORE RELOCATION 
012454 060000 Sn40 O38 3701 INS4 CaNX4 WEMULT, DU 1S THIS A MULTIPLE VALUE 
012455 012431 6010 00 3702 tNZ INS3 YES = TRANSFER TO KEEP UPDATING 
012456 000000 7400 00 3793 INSX YRA oe NO » RETURN 
042457 000000 Qn0000 3704 N ZERO 
012460 000000 000000 3705 A ZERO 
012461 012512 7400 00 3706 MATCH S$TXO MATX SAVE RETURN 
012462 777777 6360 41 3707 EAQ stot GET LENGTH » 4 OF ENTRY IN Q REGISTER 
0142463 777777 6099 90 3708 "ZE SERROR COMPILER ERROR » ONE WORD MODE 
012464 o0g0gi2 7360 00 3709 Qs 10 POSITION LENGTH FOR REPEAT COUNT 
012465 O9N000 6230 92 3710 EAX3 0,0u AND SAVE IN XR & 3 
012466 035216 2240 09 37114 0X4 TSMODE GET POINTER TO BASE OF MODE TABLE 
012467 000001 0640 453 37142 MAT, ADX4 4, 0u STEP AVER LINK WORD 
012470 777777 2340 $4 3713 SZN 144 CHECK FOR END OF MODE TABLE 


0424714 777777 6009 QU 3714 TZE SERROR IF NO MORE « ERROR 
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2 
012472 777777 1019 14 
G12473 012507 6n10 OO 
012474 GononOo 22un 44 
ENL OF BINARY CARD QnUDULYS 
012475 00N000 1nu0 12 
012476 012507 6010 09 
012477 001449 6200 13 
012500 000001 6250 44 
012501 000001 6260 12 
012502 O00000001100/ 
012503 0900409 5602 01 
012504 000000 2350 %5 
042505 ognan0 1150 16 
012506 042541 6000 Qo 
042507 777777 9640 14 
012510 012467 7400 00 
012511 035216 1640 00 
012512 000000 7100 90 
0142513 O00000 622 41 
012514 090000 7250 £1 
042515 777777 1620 42 
U12516 000001 1650 03 
042517 012545 6010 00 
0125290 On0002 2250 41 
012521 090000 6240 £1 
012522 777777 1640 14 
END OF BINARY CARD 00000196 
042523 O0N002 7250 44 
042524 O00002 0650 14 
0142525 090002 74350 42 
012526 Q90002 4500 £1 
042527 000002 7450 &1 
0142539 012571 7490 Q0 
012531 000000 7220 41 
012532 090000 62350 $1 
042533 Oono02 7250 41 
0142534 000002 0650 11 
0142535 0090003 2350 41 
012536 777777 1610 $14 
012537 000003 2750 44 
012540 000001 1620 93 
0142544 012536 6040 00 
042542 000003 7550 18 
0142543 490000 6350 00 
012544 000000 7550 43 
042545 000002 2240 41 
012546 000002 7440 $3 
012547 090002 1650 41 
012559 o0n002 4450 435 
END OF BINARY CARD 00900497 


ALGOL68 


3715 
3716 
3747 


3718 
3749 
3720 
3724 
3722 


3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3734 
3732 
3733 
3734 
3735 
3736 
3737 
37358 


3739 
3740 
3744 
3742 
3743 
3744 
39745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
3953 
3754 
3755 
3756 
3757 
3758 
3759 
3760 


MATo2 
MATS 
MATX 
DEL WW 


DELWL 


DELw 


DELW, 


CMPX4 
TNZ 
L DXO 


CMPXO 
TNZ 
EAXO 
EAX5 
EAX6 


RPDX 
LDA 
CMPA 
TZE 
ADX4 
TRA 
SBX4 
TRA 
EAX2 
LXL3 
SBX2 
SBX3 
TNZ 
4 DX3 
EAX4 
SBx4 


LXL5 
ADXS5 
STX3 
STZ 
STXx5 
STXO 
LXL2 
EAXS 
LXL5 
ADX5 
DA 
SBX4 
ORA 
SBX2 
TNZ 
STA 
EAA 
STA 
DX4 
STX4 
SBX5 
Sx_5 


PASS 2 


-~1,4 
MAT? 
0,4 


0,2 

MAT2 
768432,3 
1,4 

1,2 


1LeTNnZ 
0,5 
0,6 
MATS 
wo 4 
MAT 
TSMODE 
ot 


0.4 


NNANOS ZT GOK Ga t GN 
oso 2-7. eo =e Be (Feo teh ow a 
=c rt 
r= 


AOR AGrRPAaA< Ar UoOr- 
> 
r 
Cc 
m 
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SEE IF CURRENT ENTRY HAS THE RIGHT LENGTH 
TRANSFER IF WRONG LENGTH 
GET TABLE ENTRY MODE TYPE IN XR = Q 


COMPARE WITH DESJRED MONE TYPE 

TRANSFER IF NOT EQUAL TO TRY ANOTHER TABLF ENTRY 
PUT COUNT, TNZ, AND AH BITS IN XR = g 

PUT ADDRESS « 4 OF TARLE ENTRY IN XR # 5 

PUT ANDRESS + 4 OF DESIRED CONTENTS IN XR & 6 


COMPARE 

TABLE ENTRY 

WITH DESIRED TABLE ENTRY CQNTENTS 

TRANSFER IF THE SAME 

STEP OVER CURRENT TABLE ENTRY 

AND LooR 

MAKE POYNTER RELATIVE 

AND RETURN 

GET POINTER TO PaR OR BaL WORK ELEMENT 

GET NUMBER OF CONTROLLED VALUES JIN XR ~ 3 

STEP XR » 2 TO PREVIOUS CONTROL ELEMENT 
DECREMENT NUMBER OF VALUES To GO 

TRANSFER {Ff MORE VALUES TO SKIP 

GET POINTER TO START OF CODE FOR VaLUVE IN XR ~ 3 
GET POJNYER YO PAR OR BAL ENEMENT IN XR & 4 

GEY POINTER TO LAST YaLUE CONTROL gLOckK IN GROUP 


GET LENGTH OF LAST VALUE IN XR & § 

ADD LOCAYIQN TO GEY END ADDRESS 

STORE S¥AR¥ ADDRESS IN FIRST CONTROL BLOCK 
CLEAN OUT LEN/LOC IN Bal OR PAR ELEMENT 
STORE END ADDRESS IN BAL OR PAR ELEMENY 
SAYE REFYURN 

GET NUMBER OF VaLUES IN PAR OR BAL 

SAVE STARTING LOCATION GF MOVE IN XR » 3 
GET LENGTH OF CODE IN XR « 5 

ADD LOCATION TO GET POINTER TO END OF copEe 
GET LL WORD OF CURRENT VALUE 

STEP 70 NEXT ENTRY IN STAGK 

OR IN LL WORD OF FHIS VALUE 

DECREMENT NUMBER LEFT TO SKIP 

YRANSFER If MORE TO SKIP 

STORE ORED LL WORD AS LL WORD OF GOMBINED VAiUE 
GET VALUE HEADER FOR NEW ENTRY 

AND SYORE IN NEW ENTRY 

GET BASE OF VALUE IN XR & 4 

STORE BASE IN NEW CONTROL BLOCK 

SYBTRAC¥Y BASE FROM END OF CODE ADDRESS 

AND STORE AS LENGTH OF NEW VALWE 
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e PASS 2 
Utes2t “O000td Betis 3761 EaX4 = 043 GET POINTER WHERE TO START MOVE IN XR ~ 4 
012553 009000 6350 14 3763 EAA 0.4 PUT MINUS NUMBER OF WORDS TO MOVE IN A 
012555 O00N019 7710 09 3765 ARL 8 POSITION FOR REPEAT 
012596 001400 6200 5 3766 EAXO = 768, AL GET NUMBER OF WORDS TO MOVE MOD 256 IN XR © Q 
oigo37. OC0ORE 3730) 87 3767 SBA 1, DL MAKE 02256 EXCEPTION NOT BOTHER LOOP COUNT 
Or ered-- Od eoee 2000: Bo 3768 THI DELWS TRANSFER Ip NOTHING TO MOVE 
012561 000000 5602 O1 3769 DELW2 RPDX it MOVE 
012562 090000 2360 45 3770 Da 0,3 FROM SPECIFIED LOCATION 
012564 000001 1750 93 3772 SBA 1, DU SEE IF MORE TO MOVE 
012565 042564 6050 OY 3773 TPL DELW2 TRANSFER IF MORE YO MOVE 
giesoe. 0S 7254 0ti0 38 3774 DELWS NOP ASWORK, BI DELETE A WORD FROM THE WORKING STack 
012570 012566 6010 00 3776 TNZ DELW3 NO = TRANSFER 
012571 O000N0 7100 40 3777 DELWX YRA on AND EXIT 
012572 012613 7400 Qo 3778 WAD STXO WADX SAVE RETURN 
042573 035234 7560 56 3779 SToQ ASWORK, ID STORE HEADER FOR CODE CONTROL BLOCK 
012574 005754 7470 ov 3780 XED TSWOVF CHECK FOR STACK OVERFLOW 
Ot 2575, Dsrece 4000 96 378% STZ ASWORK, ID STORE ZERO FOR MODE WORD 
012576 005754 7470 00 3782 XED TSWOVF CHECK FOR STACK QVERFLOW 
END OF BINARY CARD 00000498 
042577 035224 2360 00 3783 LDQ TSCODE GET POINTER TO CURRENT END OF CODE 
012600 000000 6360 06 3784 EAQ 0,QL PUT IN QL 
em Oe ae eta chee Apa 14D, SET NUMBER OF WORDS OF CODE EQUAL To ONE 
012602 035234 7560 56 3786 $70 ASWORK,ID STORE AS LOC/LEN WORD 
012603 005754 7479 O0 3787 XED TSWCVF CHECK FOR SYACK OVERFLOW 
012605 035234 7560 56 3789 STQ ASWORK ID AND STORE {N STACK 
012606 005754 7470 gO 3790 XED TSWCVF CHECK FOR STACK OVERFLOW 
012607 000005 6360 O90 3794 EAQ 5 GET NUMBER OF WORDS IN CONTROL BLOCK 
012610 035234 7560 56 3792 S7Q AGWORK, ID AND STORE arf TER CONTROL BLOCK 
012611 005754 7470 00 3793 XED TSWCVF CHECK FOR STACK OVERFLOW 
012612 012614 7900 00 3794 TSX0 CaD ADD WORD TO CODE 
012613 000000 7400 00 3795 WADX RA on AND EXIT? 
012614 012623 7400 O09 3796 CAD STX0 CADx SAVE RETURN 
012616 008000 6350 O0 3798 EAA 0 REQUEST 0 # 1 WORD 
012617 035224 2210 03 3799 \,DX4 TSCODE, DU GET POINTER TO CODE TABLE CONTROL WORD 
012620 6005663 7900 00 3800 TSX0 TSALOC AND GET ANOTHER WORD FOR CODE 
pic Gcn oieoes es 009 S801 LDA CADT GET WORD TO BE ADDED 
042622 777777 7559 $14 3802 STA wtyt AND STORE AT END OF CODE 
012623 000000 7100 00 3803 CADX ‘RA on AND RETURN 
012624 O0N000 Q00000 3804 CADT ZERO 
END OF BINARY CARD 00000499 
012625 013257 227 00 3805 DEREF {DX7 FMOnNE GET SAVED MODE IN XR = 7 
012626 019630 7900 Og 3806 TSXO ASXFER MAKE IT UNIQUE AND ABSOLUTE 
012627 090000 2220 47 3807 LDX2 47 GET TYPE OF MODE IN XR » 2 


042650 016762 1n2n 43 3RQ8 CMPX2 MSREF,DU IS If aA REFERENCE MODE 


01557 


END 


END 


01 05-26-72 
2 

042651 777777 
012632 ognont 
012633 u10639 
012634 U35216 
012655 016460 
012636 096210 
012637 ugnooi 
012640 016460 
042641 006210 
042642 046460 
012643 012646 
042644 046460 
012645 006210 
012646 042656 
012647 010630 
0126590 035216 
042651 042669 
012652 090902 
OF BINARY CARD 
012693 012657 
042654 012464 
012655 000000 
012655 O0onN00d 
0142657 016762 
012669 0090000 
042661 U35234 
012662 035214 
042663 035235 
012664 dOgnont 
012665 dOonOnL 
042664 0427295 
042667 035217 
01267) 005663 
012671 0427258 
042672 042725 
042673 OonQ14 
012674 000000 
042675 042724 
012675 035214 
012677 035235 
042709 OoN001 
OF BINARY CARO 
012704 012727 
042702 042739 
012703 016757 
012704 042725 
042705 042727 
012706 042739 
012707 Ognog09 
0142710 012727 


17,863 


6019 00 
2270 4/7 
7n00 OV 
16/9 OV 
7470 OU 
7100 00 
6350 00 
7550 OV 
7100 QO 
22/70 00 
7000 00 
7470 00 
7100 80 
7400 00 
7000 O10 
1670 00 
7470 Ov 
2210 O85 
Oounuzod 
2220 OS 


0600 95 
oo00ugz01 
7400 00 
74090 90 
6350 00 
7550 §6 
2350 §6 
7550 54 
6360 05 
2350 36 


AXjG9L68 


3809 
3810 
3341 
3R12 
3R13 
3814 
3845 
3816 
3817 
3848 
3249 
3820 
3R24 
3R22 
3823 
3R24 
3825 
3R26 


3827 
3828 
3829 
3f30 
S834 
Sa32 
3438 
3834 
3835 
38386 
3837 
3838 
3839 
3440 
3844 
3842 
3443 
3344 
3445 
3A46 
3a4? 
3448 


3849 
3850 
38514 
3852 
5853 
3854 
3855 
3856 


EVOID 


EREF 


EREF 4 


EREF X 
cREFT 


cor 


CST1 


TNZ 
LDX7 
TSxX0 
SBX7 
STX7 
TRA 
EAA 
STA 
TRA 
LDX7 
TSX0 
S1X7 
TRA 
STXO 
TSXO 
SBX7 
STX7 
LDx4 


LBXe2 
TSXo0 
EAX7 
TRA 

ZERO 
ZERO 
DX0 
SBX0O 
SBX0 
EAA 

ARS 

STA 

OX4 
TSX0 
STX4 
LDA 

ARL 

EAXO 
SXLO 
LOXo 
ADXO 
ADXO 


S7X0 
STX0 
EAA 
STA 
LDA 
STA 
EAQ 
LDA 


PASS ? 


ERROR 
1,7 
ASXFER 
TEMODE 
DECLR 
ASQOK 
MEVO[D 
DECLR 
ASQOK 
DECLR 
EREFYL 
DECLR 
ASQK 
EREFX 
ASXFER 
TSMODE 
EREFTs4 
2,DU 


EREFT,DU 
MaTcH 


ABWORK 
TSWORK 
ASS*ACKsDI 
1:0 

4 

CSTa 
TSBOUND, DU 
TSALOC 
CSTR 

CSTa 

436 

0, AL 

CSTB 
"EWORK 
ASSYACK, ID 
1,Du 


CSTc 
CSTn 
BSSTRCT 
CSTfa,1D 
cstfc,1D 
CSTp,! 
OsAL 
CSTc,I1D 


PAGF 


NO - COMPILER ERROR 

GET DEREFFRENCED MODE 

MAKE IT UNIQUE 

MAKE IT RELATIVE 

AND MAKE IT CURRENT MODE 

AND EXIT 

GET A VOID DECLARER IN A 

AND MAKE {J CURRENT DECLARER 

AND EX]? 

GET CURRENT DECLARER IN XR = 7 

AND REFERENCE MODE 

AND SYORE AS NEW NECLARER 

AND EXIT 

SAVE RETURN 

MAKE MODE POINTER UNIQUE AND aBSOLYTE 
MAKE MODE POINTER RELATIVE 

STORE MODE IN REFERENCE MODE PROTOTYPE 
MATCH 2 WORDS 


AY REFERENCE MONDE PROTOTYPE 
GET POINYER TO REQUIRED MODE 
PUT REFERENCED MODE IN XR # 7 
AND RETURN 


SET PALHYER YO END OF WORKING STACK 

GET CURRENY LENGTH OF WORKING STACK 
SUB" RACY MARK Yo GET NO OF ADDED WORDS 
ADD ONE YO GEY 2Nee FOR N FIELDS 

DIY’DE BY 2 

STORE NOMBSR OF FIELDS PLUS ONE 

SET PAYNYER YO SOUND TABLE CONTROL WORD 
fey ENTRY IN BOUND TABLE 

SYGRE POINYER TO SOUND YABLE ENTRY 

SEY NUMBER OF HORNS IN BOUND FABLE ENTRY 
MCVE “YO YALLY PART OF WORD 

MOVE 7O XR o QO 

AND S’ORE JN FALLY WORD 

GET PXOYINYER YO 3aSE OF WORKING STacx 
BET PAUYNYER YO STaRY OF MARKED DAYA 
S41? WEADER WORD 


SY¥ORE IN FEYCH TALLY WORD 

STORE IN SYORE TALLY WORD 

GEY WHADER WORD FOR SOUND TABLE ENTRY 
AND STORE §N BOUND TABLE ENTRY 

GEY MODE OF FIELD 

AND STORE JN MODE LIST 

GEY BOUND J§NFORMATION IN QU 

GEY TaG INFORMATION 


94 
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END 


END 


01 0526072 
2 

012711 O9N060 
042712 0412730 
042713 012726 
0142714 042705 
042715 035217 
0127146 016460 
012717 012739 
0427290 035234 
042721 035234 
012722 042720 
012723 0416757 
012724 0427385 
012725 090000 
042726 O00000 
OF BINARY CARD 
012727 000000 
0142730 000000 
0427351 017001 
0142752 042734 
012733 017007 
012734 046460 
012755 035214 
012736 035255 
012737 090000 
042749 777777 
042744 777777 
042742 0352354 
042743 042464 
0142744 016469 
042745 035214 
042746 035235 
042747 035234 
012750 035234 
012751 042747 
012752 096210 
012753 0411357 
042754 035221 
OF BINARY CARD 
012755 090003 
042756 012762 
012757 016464 
042760 016464 
0142761 0090003 
042762 0009004 
012763 012767 
042764 016464 
0142765 046464 
042766 090004 
042767 046464 
012770 046464 


17,863 


6220 O4 
4420 56 
7560 56 
6070 00 
1610 O09 
4440 00 
2200 00 

0110 54 
1000 00 
6N10 00 
6350 00 
7400 00 
on0000 

onn0u0 

on00u202 


0619 00 
OoQg0ugDS 
72Q0 £1 
6040 00 
7200 90 
0540 90 
4400 41 
7200 41 
6n10 09 
7200 OD 
0540 09 
4400 14 
7200 O0 
0540 fg 
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3857 
3858 
3A59 
3R60 
SR61 
SR62 
3863 
3864 
3865 
3R66 
3867 
3868 
3R69 
3870 


3874 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3866 
3887 
3888 
3889 
3890 
SA91L 
3B92 


3AGS 
394 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 


CST2 


CSTA 
CsTB 
CSTC 
CSTD 
EPR 
CUN 


CUNY 
CUN2 


CUNS 


DSUB 


DSUBY 


DSUB2 


EAX2 
SXL2 
STQ 
TTF 
SBX4 
SXLL 
LDx0 
NoP 
CMPXQ 
INZ 
EAA 
TRA 
ZERO 
ZERO 


ZERO 
ZERO 
EAA 
TRA 
EAA 
$7Z 
LDX2 
ADX2 
STA 
EAX4 
ERX4 
ADX2 
¥SX0 
STXxX4 
LDX2 
ADX2 
NoP 
CMPX2 
YNZ 
TRA 
OX4 
ADX4 


Xo 
TNZ 
X40 
AOS 
SXLO0 
LXLO 
INZ 
L XL, 0 
AOS 
SXL0 
XL, 0 
aos 


PASS 2 


QO, AU 
CSTn,ID 
CST¥B,1tD 
CST4 
TEBOUND 
DECLR 
CSTD 
ASWORK, BI 
ASWORK 
CST2 
MESTRCT 
CUN?2 


MSPROC 
CUNY 
MSUNTON 
DECLR 
TEWORK 
ASSTACK,DI 
0,2 

“132 
e4,0 
ASWCRK 
MATCH 
DECLR 
TEWORK 
ASSFACKs! 
ASWORK, BI 
ASWORK 
GUNS 

ASQOK 

RNGE 
TSPROG 
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AND PUT IT IN XR w 2 

STORE TAG IN MONE LIST 

STORE BOUND JN ROUND TABLE ENTRY 
TRANSFER IF MORE FIELDS 

MAKE BOUND POINTER RELATIVE 

AND STORE JN CURRENT DECLARER 

GET POJNTER TO END OF MODE LIST 
DELETE a WORD FROM THE WORKING STack 
SEE JF DELETED RACK TO MODE LIST 
TRANSFER IF MORE TO DELETE 

GET HEADER WORD FOR MODE TABLE ENTRY 
AND EVALUATE MODE 


GET HEADER WORD FOR MODE TABLE ENTRY 
AND EVALUATE MONE 
GET HEADER wORD FOR MODE TABLE ENTRY 
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CLEAR OuF BOUND INFORMATION IN CURRENT DEGLARER 


GET POYNTER TO BASE OF WORKING STack 


GET POINYER TO WHERE THE STACK WAS MARKED 


STORE HEADER WORD AT THIS PLACE 
DECREMENT PLACE AND MOVE TO xR » 4 
GET MINUS PLACE IN XR @ 4 

ADD POINTER TO END FOR LENGTH 

FIND MOBE {N MODE TABLE 


AND STORE MODE POINTER IN CURRENT DFELARER 


GET POINTER TO BASE OF WORKING STack 
ADD RELATIVE MARK LOCATION 

DELEYE & WORD FROM YHE WORKING STack 
SEE IF BELEYED BACK TO MARK 

YRANSFER {If MORE TO DELETE 

AND EXI? 

GET POINTER TO CURRENT RANGE 

MAKE POINTER ABSOLUTE 


GET SAVED Ic LABEL IF ANY 

TRANSFER 1F LABEL IS ALREADY DEFINED 
GET UNIQUE LABEL IN XR @& 0 

STEP LABEL GENERATOR 

AND STORE IN PROG TABLE ENTRY 

GET SAVED LENGTH LABEL IF ANY 
TRANSFER JF LABEL IS ALREADY DEFINED 
GET UNIQUE LABEL IN XR = 6 

STEP LABEL GENERATOR 

AND STORE IN PROG TABLE ENTRY 

GET A UNIQUE LABEL 

STEP LABEL GENERATOR 
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END 


END 


01 U5"26-72 
2 

UV12771 035235 
012772 005742 
012773 000000 
U12774 000022 
042775 046507 
U12776 012614 
012777 041357 
O13000 v35271 
013001 090003 
0143002 777777 
OF BINARY CARD 
U13003 046660 
043004 042614 
013005 041357 
013006 035221 
0143007 oonone 
013010 0090022 
013041 016641 
013012 012614 
013013 046746 
013014 012614 
013015 006210 
013016 041357 
013047 000022 
013020 016754 
043021 0426144 
043022 016663 
013023 000001 
0143024 042614 
043025 011357 
043026 035224 
013027 090002 
013050 000022 
OF BINARY CARD 
013031 046644 
013032 012614 
013033 041357 
013034 035224 
013035 000004 
0143036 777777 
043037 016674 
013040 012614 
0130414 035235 
043042 777777 
013043 016504 
013044 012614 
013045 006210 
013046 035247 
013047 090002 
013050 095663 


17,863 


4400 
7470 
6350 
7710 
0750 
70Q0 
2210 
0610 
2350 
5790 


Q0000204 


0750 
70u0 
2210 
0610 
2350 
7710 
0790 
7000 
6350 
7090 
7400 
2350 
7740 
0750 
70Q0 
6350 
0790 
7000 
2210 
0610 
2350 
7740 


00000205 


0750 
7000 
2240 
0640 
2350 
3750 
0750 
7000 
2350 
3750 
0750 
7000 
7400 
2210 
6350 
7000 


56 
00 
10 
00 
0S 
00 
00 
00 
41 
07 


q5 
00 
00 
00 
41 
Q7 
05 
00 
54 
07 
03 
90 
00 
UR) 
00 
00 
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3905 
3906 
33907 
3908 
3909 
3910 
3911 
3942 
3943 
3914 


3945 
3916 
3947 
39148 
3949 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3934 
3932 
3935 
3934 
3935 
3938 


3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3954 
3952 


DBUS 


CBox 


SXL0 
XED 
EAA 
ARL 
ADA 
TSXO 
| DX1 
ADX4 
LDA 
ANA 


ADA 
TSXO 
LOX4 
ADX4 
LDA 
ARL 
ADA 
7Sx0 
EAA 
TSXG 
TRA 
LDA 
ARL 
ADA 
YSX0O 
EAA 
ADA 
YSXo 
LDX4 
ADX4 
LDA 
ARL 


ADA 
TSXo 
LDXY 
ADX4 
LDA 
ANA 
ADA 
YSXo 
LDA 
ANA 
ADA 
TSXO 
JRA 
LOX4 
EAA 
TSXO 


PASS 2 


ASSTACK, ID 
TESOVFE 

Q,0 

48 
OSJUMP, DU 
CAD 


OSEPDN, DU 
Cad 

RNGE 
TEPROG 
204 

18 
OSLL,DU 
CAD 
OSDSUB 
CAD 

AZOK 

RNGE 

18 
O$DBUS, by 
CaD 
QSRETN 
MSVOTD,DL 
Cad 

RNGE 
TSPROG 
231 

418 


OSLLE, DU 
CAD 

RNGE 
TSPROG 

4,1 

eiaDk 
OSDLEN, DU 
CAD 
ASSTACK, DI 
e¢,DL 
OFLBL, DU 
CaD 

ASQOK 
TSBOUND, DU 
2 

TSALOC 
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AND STORE IN CONTROL STACK 
CHECK FOR STACK OVERFLOW 

GET LABEL IN AU 

MOVE TO aL 

ADD JUMP CQDE 

AND ADD TO CODE 

GET POINTER TO CURRENT RANGE 
MAKE POINTER ABSOLUTE 

GET SAVED [IC LABEL IN AL 
ZERO OUT au 


ADD ENTER PROCEDURE CODE 
AND aDD YO CODE 

GET RANGE POINTER IN XR ~ 1 
MAKE POINTER ABSOLUTE 


GET POINTER TO SURROUNDING RANGE IN AU 


MOVE TO AL 

ADD SET LL CODE 

AND AND TO CODE 

GET START DECLARER BOX CODE 

AND ADD TO OUTPUT CODF 

AND EXIT 

GET POINTER TO CURRENY RANGE {N Ay 
MOVE TO AL 

ADD DO BUS CODE 

AND ADD TO OUTPUT CODE 

GET RETYRN CODE JN AU 

ADD VOJB MQDE IN aL 

AND ADD T0 CODE 

GET POINTER TO GURRENY RANGE IN % 
MAKE RANGE POINTER ASSOLUTE 

GET POINTER TO EXTERNAL RANGE [N ay 
MOVE fO AL 


ADD END LL CQDE 

AND ADD YO CODE 

GET POINTER TO @URRENT RANGE IN XR .. 
MAKE POINTER ABSOLUTE 

GET LENGTH LABEL IN AL 
ZERO OUT AY 

ADD DEFINE LENGTH COMMAND 
AND anD TO CODE 

GET TRANSFER LABEL IN AL 
ZERO OUT au 

ADD DEFINE LABEL CODE 

AND ADD ¥O CODE 

AND EX|¥ 


GET POINTER TO BOUND TABLE CONTROL WORD IN XR w ¥ 


GET LENGTH OF ENTRY IN aU 
ALLOCATE RQW ENTRY IN BOUND TABLE 
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END 


END 


O01 0526-72 


013051 
043052 
013053 
013054 
013055 
013056 


17,863 
2 


016779 2200 O08 
090000 7400 11 
046457 7200 00 
000001 0600 43 
000000 4400 41 
vonon1 4500 11 


OF BINARY CARD Q0u0U206 


013057 
013060 
013061 
0439062 
013063 
013064 
043065 
013066 
043067 
013070 
013074 
013072 
013073 
043074 
013075 
013076 
013077 
013100 
0131014 
013102 
013103 
043104 


041357 22u0 §U 
000001 4400 41 
035217 1610 00 
035234 4410 56 
005754 7470 00 
006210 71900 OD 
016469 2350 00 
000000 6210 05 
Q0N000 6350 O04 
0431423 7550 og 
035234 7220 54 
035247 0620 0 
000001 7410 12 
000004 7250 12 
035224 0650 00 
000090 6270 O21 
000005 4470 43 
000000 2350 12 
777777 3750 07 
0000900 5310 40 
0131424 7550 00 
0146776 6350 09 


OF BINARY CARD 00000207 


013105 
013106 
0413107 
013410 
Orgids 
Q13142 
043443 
013114 
013115 
013116 
0143117 
013120 
013121 
013122 
043123 
013124 
013125 
013126 
043127 
043150 


01431422 7550 60 
000002 2240 43 
013122 2220 O83 
012464 7800 00 
016770 6350 00 
043422 7550 O00 
0143423 7440 40 
013124 0540 oY 
0431406 6010 O00 
035234 7440 S41 
035234 2350 54 
046469 7550 00 
006210 7100 40 
000000000000 
O00000N0N000 
000090 on0000 
035235 2270 34 
043202 7470 00 
019639 7000 90 
035235 7200 94 


ALGOL68 


39538 
3954 
3955 
3956 
3957 
3958 


3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 


S984 
3982 
39838 
3984 
3985 
$986 
3987 
3968 
3989 
3990 
3994 
3992 
3993 
3994 


3995 
3996 
3997 
3998 
3999 


EBOX 


ERxOX4 


EBOXM 


EBOaXC 
EPDEN 


[Dx 0 
STXo 
LXLO 
ADXO 
SX1L0 
STZ 


2x0 
SXL0 
SBX4L 
SXL4 
XED 
TRA 
LDA 
EaXt 
EAA 
STA 
LX 2 
ADX2 
$TX4 
LX, 3 
ADX3 
EAX7 
§X 7 
LDA 
ANA 
NEG 
STA 
EAA 


STA 
LDX4 
L,DX2 
¥SXO0 
EAA 
STA 
ST¥X4 
AOS 
YNZ 
STX4 
LDA 
STA 
TRA 
oct 


ZERO 
LDX7 
STX7 
TSXO 
\.XL0 


PASS 2 


BSROW, DU 
Ort 

CNT 

1,Du 

O,1 

1,1 


RNGE 

1,1 
TSBOUND 
ASWORK, ¥D 
TEWOVE 
ASOK 
DECLR 

Oa AL 

0,AU 
EBOXMe4, 
ASWORK , DI 
Y$BCUND 
1,2 

112 
TSPAOG 

Q) AL 

5,3 

0,2 

im or moa 


eBQXS 
MERCWE 


eBOyMsg 
2,D0u 
eEBOxM, cu 
MATCH 
MSROW 
=BQKM 
EBOXMaet 
2BOx¢ 
EBOKX, 
ASWORK, 4 
AEWORK, 1 
DECLR 
A$Qk 

0,0 


ASSTACK,D! 
EPDNM 
ASXFER 
ASSTACK,DI 
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GET HEADER FOR TABLE ENTRY 

AND STORE IN TABLE ENTRY 

GET NUMBER OF CoMMAS IN Box 

GEY DIMENSION OF ARRAY 

AND STORE IN TABLE ENTRY 

CLEAR OUT SECOND WORD OF TABLE ENTRY 


GET POINTER YO CURRENT RANGE 

AND STORE IN TABLE ENTRY 

MAKE POINTER TO TABLE ENTRY RELATIVE 
AND STORE IN WORKING STACK 

CHECK FOR STACK OVERFLOW 

AND EX]? 

GET DECLARER FOR ELEMENT OF ARRAY 
GET BOUND INFORMATION IN XR © 4 

GET MODE OF ELEMENT CLEAN IN AW 

AND STORE FOR MATCH ROUTINE 
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GET POINTER TO BOUND INFORMATION FOR ARRAY 


MAKE POINTER ABSOLUTE 


STORE POINTER To ELEMENT BOUND IN aRRaY BOUND 
GET POJNTER TO PROPER PROG TABLE ENTRY IN UR - 3 


MAKE POINTER ABSOLUTE 

GET MODE OF ELEMENT IN XR » 7 

AND STORE JN PROG TABLE ENTRY 

GET DIMENSION OF ARRAY IN AL 

ZERO OUT AY 

GET MINUS NUMBER OF DIMENSIONS IN aA 
AND STORE FOR COUNTING 

GET INITIAL HEANER FOR MODE IN A 


AND STORE FOR MaYCH ROUTINE 
GET LENGTH OF ELEMENT IN XR = 9 


GET POINTER TO PROTOTYPE ENTRY TO MATCH IN XR = 92 


MATCH PROTOTYPE TO MODE TABLE 


GET HEABER FOR SURSEQUENT MODE TABLE ENYRIES 


AND STORE FOR MaTGH ROUTINE 


STORE NEW MODE TABLE POINTER FOR MATCHING 


COUNT NUMBER OF TIMES To DO THIS 
TRANSFER IF MORE TO DO 


STORE MODE OF ARRAY IN WORK WITH BOUND 


GET NEW DECLARER IN A 
AND STORE AS DECLARER 
AND EXIT 


GET MODE OF PROCEDYRE DENOTATION 


AND SAVE IN LOCAL LOCATION 
MAKE MOBE POINTER UNIQUF AND ABSOLUTE 


GET NUMBER OF PARAMETERS + 2 IN XR - OQ 
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2 PASS 2 

043151 913204 7400 Oy 4000 STX) EPDNT AND SAVE 

0431432 777777 yes/no i/ 4no1l ADX7 “157 GET POINTER TO END OF MODE IN XR - 7 
EnD OF BINARY CARD OnUOU2YS 

043433 777777 2270 47 4nQ2 DXx7 “1,7 GET MODE OF RESULY OF PROCEDURE 

01431454 uJ16469 7470 OY 4003 STX7 DECLR AND STORE aS YARGET MODE FOR PROCEDURE RODY 

043155 v35234 2219 00 4na4 LDX4L ASWORK GET POJNTER TO END OF CONTROL STACK 

013436 777777 1610 %1 40905 SBX4 “494 GET POINTER TO LASY CONTROL BLOCK IN XR ~- 4 

0143137 Uv35234 1619 OV 4nos SRX4 ASWORK MAKE CONTROL BLOCK POINTER RELATIVE 

043140 016446 7410 00 4007 STX4 VALP AND STORE AS CURRENT VALUE POINTER 

013141 015072 7000 O09 4008 TSX0 STRNG COEFCE BODY OF PROCEDURE DENOTATION 

013142 016446 2210 00 4009 LDX4 VALP GET POINTER TO CURRENT CONTROL BLOCK 

0143443 035234 9610 OV 4010 ADX4 ASWORK MAKE POINTER ABSOLUTE 

013144 009002 7200 41 4041 LX 0 251 GET LENGTH OF PROC DENOTATION IN XR co Q 

013145 000002 0600 11 4912 ADXO 24 AND LENGYR TO GET END ADDRESS 

04314496 015204 1600 00 4013 SRX0 EPDNT SUBTRACT ACTUAL START ADDRESS 

013147 O90002 4400 41 4014 SXLO 2:1 STORE NEW LENGTH IN CONTROL BLOCK 

0431450 013204 2200 00 4015 LDXx0 EPDNT GET LOCATION OF PROC DENOTATION 

013151 000002 7400 41 4016 STX0 2,1 STORE NEW LOCATION IN CONTROL BLOCK 

013152 013202 2350 ov 4017 LDA EPDNM GET MODE OF PROCEDURE DENOTATION 

013153 090000 6350 O14 4918 EAA 0,AU ZERO OUT AL 

043154 000001 7550 41 4019 STA Lei AND STORE aS MODE N CONTROL BLOCK FOR VaLUE 

013155 041357 2350 Ov 4n20 LDA RNGE GET CURRENT RANGE NUMBER IN au 

013156 0090022 7710 Ov 4024 ARL 18 MOVE YO AL 

013157 016652 0750 08 4022 ADA OSSRNGE, DU ADD SRNGE COMMAND 

013160 042403 7000 Ov 4023 YSxXo INS AND INSERT IN FRONT OF PROCEDURE pENOTATION CODE 
END OF BINARY CARD 90000209 

043194 011357 2350 00 4n24 LDA RNGE GEy CURRENT RANGE NUMBER IN AU 

013142 000022 7710 00 4025 ARL 18 MOVE TO al 

013163 016655 9750 03 4026 ADA OSERNGE; DU ADD ERNGE COMMAND 

013164 0912375 7090 00 4027 TSXp ADD AND ADD aFTER PROCEDURE DENOTATION CODE 

013165 046446 2200 00 4n28 LDXO YALP GET POINTER TO VALUE CONTROL BLOCK 

043166 035234 9600 a9 4029 ADXo ASWORK MAKE POINTER ABSOLUTE 

043167 777776 3350 97 4030 LOA #2)DL GET (44, #2] IN A REGISYER 

013170 000002 0550 40 4034 ASA 2,0 UPDATE LOG/LEN WORD TO "INCLUDE SRNGE aNd ERNGE 

013171 006210 7100 00 4n32 JRA ASOK AND EX]f 

043172 033234 2210 60 4033 EGPONE LDXL ASWORK GET POINTER TO ENN OF WORKING STaccx 

043473 777777 1610 %2 4034 SBx¢ a4ed GET POINTER TO FOP CONTROL BLOCK 1N WORKING S¥acK 

0143174 035224 7200 90 4035 LXLO TSCODE GET CURRENT END OF OUTPUT CODE 

013175 0090002 1600 $1 4036 SBX0 2,1 SUBYRaCT START OF PROC DENOTaTION 

013176 000002 4400 £1 4037 SXLO 204 AND STORE NEW PROC DENOTATION LENGTH 

013177 013202 2270 00 4038 L.DX7 EPDNM GET MODE OF PROCEDURE DENOTATION 

043200 0144530 7000 00 4039 YSXo PCDR MAKE VALUE a PROCEDURE 

013201 006210 71400 90 4040 YRA ASOK AND EX[? 

043202 000000 yoo0a09 4044 EPDNM ZERO 

043203 000000 0090090 4n42 EPDNL ZERO 

043204 dO000N0 QnQg0u0 4043 EPDNT ZERO 

043205 000001 6350 00 4044 vQOID EAA MSVOID GET VOID MODE IN au 

0143206 04646090 7550 OO 4045 STA DECLR STORE AS GWRRENT MODE 


END OF BINARY CARD 00000210 
013207 777773 6350 00 4046 EAA “5 GET VALUE POINTER TO LAST VALUE IN WORK 
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END 


END 


U4 U05*26<-72 


2 
013210 016446 
043211 0415072 
013212 006210 
013243 016647 
043244 o00004 
043215 012614 
013216 0062140 
043247 011731 
043220 035229 
013221 000002 
043222 043257 
013223 006210 
013224 035234 
043225 777777 
013226 035234 
043227 016446 
013230 006210 
013231 000000 
043232 035235 
013233 005742 
0132354 006210 
OF BINARY CARD 
043235 035235 
013236 090090 
013257 006210 
0143240 000000 
013241 035234 
043242 005754 
013243 006210 
013244 000000 
013245 090000 
013246 035234 
043247 005754 
013250 006210 
043251 016469 
013252 090000 
013253 0096210 
043254 000000 
013255 016460 
013256 006210 
0143257 000000 
013260 0090000 
013261 006210 
043262 000000 
OF BINARY CARD 
043263 000000 
043264 006210 
013265 000000 
043266 0096210 
043267 046537 


17,8603 


7550 
7n00 
7400 
6350 
0750 
7000 
7490 
2210 
0610 
2350 
7550 
7400 
2240 
1610 
1610 
7410 
7400 
2360 
7560 
7470 
7400 


aa 


2360 
7560 
7400 
2390 
7550 
7470 
7400 
2350 
6350 
7550 
7470 
7400 
2360 
7560 
7400 
2360 
7560 
7400 


90 
5 


00 


g00008 


0540 
7400 
2200 


03 
90 
ok) 


00000212 


7490 
7100 
4500 
7100 
2350 


n5 
00 
05 
90 
05 
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4047 
4048 
4n49 
4050 
4054 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4064 
4162 
4063 
4064 
4065 
4066 
4067 


4n68 
4069 
4070 
4n71 
4072 
4n73 
4n74 
4075 
4076 
4077 
4078 
4079 
4080 
4084 
4082 
4083 
4084 
4083 
4n86 
4087 
4088 
4089 


4090 
4ngot 
4092 
4093 
4094 


ODELV 


GMOD 


SVAaL 


PUSH 


Pup 


PUSHW 


PUSEA 


SAVE 


REST 


F MODE 
ADO 


STZ 


CLEAR 


SHEAP 


STA 
TSXO 
TRA 
EAA 
ADA 
TSX0 
TRA 
LDX4 
ADX4 
LDA 
STA 
TRA 
LDX4 
SRX4 
SBx1 
STX4 
TRA 
LDQ 
sTQ 
XED 
TRA 


Lpa 
STQ 
TRA 
LDA 
STA 
XED 
TRA 
LDA 
EAA 
STA 
XED 
TRA 
DQ 
STQ 
TRA 
LDQ 
STQ 
TRA 
ZERO 
aos 
TRA 
.DXo 


STX0 
TRA 
$7Z 
TRA 


LDA 


PASS 2 


VALP 
STRNG 
ASOK 
OSDELV 
MSVOID,BL 
CAD 
ASOK 
LASTS 
TSDEF 
201 
FMOQnE 
ASQK 
ASWORK 
eLet 
ASWORK 
VALP 
ASQK 
Q,AL 
ASSTACK, 1D 
TSSOVF 
ASOK 


ASSTACK,DI 
Q,AL 

ASQK 

OAL 
ASWORK,ID 
TSWOVF 
ASQK 

O,AL 

Q, AU 
ASWORK, ID 
TSWOVF 
ASQOK 
DECLR 

Os AL 

ASQOK 

0, AL 
DECLR 
ASQK 


O,AL 
ASQOK 
Q,Du 


OAL 
ASOK 
O,AL 
ASOK 
OSHGEN, DU 
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AND STORE JN VALUE CONTROL BLOCK POINTER 
COERCE VALUE 70 VOID 

AND EX]? 

GET DELETE VALUE CODE IN aU 

ADD VOI® MODE To AL 

AND ADD TO OUTPUT CODE 

AND EXIf 

GET RELATIVE POINTER TO DEF TABLE ENTRY 
MAKE POINTER ABSOLUTE 

GET MODE OF LAST IDENTIFIER 

AND STORE FOR DECLARATION ROUTINES 

AND EX]? 

GET POINTER TO END OF WORKING STACK 
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GET POINTER TO LAST CONTROL BLOCK IN XR - 4 


MAKE POINTER RELATIVE 

AND STORE aS GURRENT VALUE POENTER 
AND EX[? 

FETCH INDICATED DaTA 

AND SAVE IN CONTROL STACK 

CHECK FOR STACK OVERFLOW 

AND EX]F 


RECOVER pATA IN Q REGISTER 

AND RESTORE TO INDICATED PLACE 
AND EX] 

GET WORD SPECIFIED BY ARGUMENT 
AND PUSH {£7 INTO WORKING STACK 
CHECK FOR STACK OVERFLOW 

AND EXIT 

GET WORD SPECIFIED BY ARGUMENT 
ZERO OUT LQWER WALF 

AND PUSH ftY INTO WORKING STACK 
CHECK FOR STACK OVERFLOW 

AND Ex1f 

GET CURRENT DECLARER 

AND STORE JN DESIGNATED LOCATION 
AND EX]? 

FETCH FROM DESIGNATED LOCATION 
AND STORE AS CURRENT DECLARER 
AND Ex]? 


ADD ONE TO LOCATION SPECIFIED BY ARGUMENT 
AND EX]? 
GET A WALF WORD ZERO 


AND 
AND EX]? 

ZERO OUT WORD SPECIFIED BY ARGUMENT 
AND EXI[? 

GET HEAP GQpe 


STORE IN UPPER HALF OF ARGUMENT 


01557 


END 


END 


U4 O5"26-72 
2 

013270 U16466 
013271 006210 
013272 016534 
013273 016466 
043274 006210 
43275 016466 
013276 006219 
013277 616466 
0143300 006210 
013301 0416537 
013302 016466 
013303 096210 
013304 0416466 
043305 006210 
013306 046534 
043307 046466 
013310 006210 
OF BINARY CARD 
013341 046677 
043312 043333 
043313 016702 
043314 043333 
043345 016705 
043316 0413333 
043317 016710 
0133290 043333 
013324 0167143 
043322 043333 
0143323 046716 
043324 043333 
043325 046724 
043326 043333 
0143327 046724 
043339 043333 
043334 046727 
013332 043333 
0143333 046457 
01433534 000004 
013335 012614 
013336 096210 
OF BINARY CARD 
043337 046732 
013340 012614 
013341 096210 
0143342 013444 
043343 043459 
0143344 043445 
043345 000004 
043346 013446 
043347 0141357 


17,863 


7590 
74Q0 
2350 
7550 
7100 
4540 
7400 
2340 
6010 
23590 
7590 
7109 
2340 
6010 
2350 
7590 
7400 


00000235 


6350 
7490 
6350 
7400 
6350 
7490 
6350 
7400 
6350 
7400 
6350 
7490 
6350 
74900 
6350 
7400 
6350 
7490 
0750 
0750 
7000 
7400 


00000214 


6350 
7000 
7400 
4500 
3350 
7550 
2200 
4400 
2210 


00 


00 
90 
90 
90 
00 
it 
Q5 
00 
00 


ALGOL68 


4095 
4096 
4N97 
4098 
4N99 
4100 
4101 
4102 
4103 
4404 
4105 
4106 
4407 
4108 
4409 
4410 
4411 


4412 
4413 
4414 
4415 
4416 
4417 
4118 
4419 
4120 
4121 
44122 
4423 
4124 
4425 
4126 
4427 
4428 
4429 
4130 
4431 
4432 
4133 


4434 
4135 
4436 
4137 
4438 
4439 
4440 
4441 
4142 


SLOC 


SBLNK 


SHPBK 


SLCBK 


S8CT 
WB 
UPB 
NLWB 
EPTY 
OLWB 
OUPB 
OF IX 
OFLEX 


ACNT 


OSUB 


OBUS 


STA 
TRA 
LDA 
STA 
TRA 
STZ 
TRA 
SZN 
TNZ 
WDA 
STA 
TRA 
SZN 
TNZ 
LDA 
STA 
TRA 


EAA 
TRA 
EAA 
TRA 
EAA 
TRA 
EAA 
TRa 
EAA 
TRA 
EAA 
TRA 
EAA 
TRA 
EAA 
TRA 
EAA 
TRA 
ADA 
ADA 
¥SXxo0 
TRA 


EAA 
TSX0 
TRA 
$TZ 
LCA 
STA 
| OX0 
SXL0 
LOX4 


FASS 2 


GTYPE 
ASOK 
OSLGEN, BY 
GTYPE 
ASOK 
GTYPE 
ASQOK 
GTYPE 
ASOK 
OSHGEN, DU 
GTYPE 
ASOK 
GTYPE 
ASOK 
OSLGEN, DU 
GTYPE 
ASOK 


OSVSBCT 
ACNT 
O8VLWB 
ACNT 
OSVUPB 
ACNT 
OSVNLWB 
ACNT 
OSVEPTY 
ACN? 
OSLwe 
ACN? 
OSUPB 
ACNT 
OSF IX 
ACNY 
OSFLEX 
ACNT 
CNT 
1,DL 
CaD 
ASQK 


O$SUB 
CaD 
ASOK 
BUSF 
SBCNT 
BUSC 
4,0u 
BUSN 
RNGE 


STORE FOR TYPE OF GENERATOR 


AND EX]T 
GET OC CODF 


STORE FOR TYPE OF GENERATOR 


AND EXIT 


SET TYPE OF GENERATOR TO UNSPECIFIED 


AND EXIT 


IS DECLARER TYPE UNSPECIFIED 


NO we NOTHING TO DO 
GET HEAP CONE 


AND STORE FOR TYPE OF GENERATOR 


AND EX{T 

HAS GENERATOR A TYPE YET 
YES © EXIT 

GET LOCAL GENERATOR CODE 


AND STORE aS TYPE OF GENERATOR 


AND EX]F 


GET SUBSCRIPT CODE 

GO ADD SUBSCRIPT POSITION 
GET LOWER BOUND CODE 

GO ADD SUBSCRIPT POSITION 
GET YPPER BOUND CnpE 

GO ADD SUBSCRIPT POSITION 
GET NEW LOWER BOUND CODE 
GO aDN SUBSCRIPT POSITION 
GET EMPTY POSITION CODE 
GO ADD SUBSCRIPT POSITION 
GET SET LOWER BOUND CODE 
GO ADN SyRBSERIPYT POSITION 
GET SET UPPER BOUND CODE 
GO ADA SUBSCRIPY POSITION 
GET SET FIXED CoDE 

GO ADA SUBSCRIPY POSITION 
GET SEY FLEXIBLE CODE 

GO ADD SUBSCRIPT? POSITION 
ADD SUBSCRIPT POSITION IN 


IN 


IN 
AL 


MAKE COUNTING START WITH ONE 


AND ADD ¥O CODE 
AND EX]Y 


GET SUB CODE 

AND aQD TO CODE 

AND EXIT 

ZERO OUT REFERENCE FLAG 


GET MINWS NUMBER OF SUBSCRIPTS IN gOX 


AND STORE FOR COUNTING 
GET A ONE IN XR = 9 
AND STORE IN COMMAND 


GET POINTER TO CURRENT RANGE IN XR =~ 4 


AL 
AL 
AL 
aL 
AL 
AL 
AL 
AL 
AL 


10 


01557 


END 


04 052423672 
2 
043350 035221 
013351 09n0N5 
043352 035234 
0143353 777777 
013354 000001 
043355 0143447 
U13356 04N630 
013357 O00000 
013360 016762 
043364 013371 
013362 0090006 
043363 013444 
0143364 oOnn001 
END OF BINARY CARD 
013365 0143447 
013366 Ognooy 
013367 010630 
013370 000000 
013371 016770 
043372 013375 
013373 016776 
043374 777777 
0143375 0413446 
013376 000001 
013377 043366 
0143400 000004 
013401 010630 
0143402 000000 
0143403 016770 
013404 0143407 
013405 016776 
013406 043444 
013407 000004 
013410 013446 
043411 012614 
013412 013446 
OF BINARY CARD 
013443 0134014 
043414 013447 
0143415 043445 
0434146 013423 
013447 013445 
013420 010630 
013424 000001 
013422 0413415 
013423 043444 
013424 043426 
013425 0127646 
013426 035234 
043427 777777 


17,863 


0610 
2260 
2210 
1610 
2270 
7470 
7000 
2200 
1000 
6010 
2350 
7590 
2200 


Qouodugis 


7400 
2270 
7000 
2200 
4000 
6000 
1000 
6010 
0540 
1660 
6050 
2270 
7000 
2200 
1000 
6000 
4000 
6010 
2270 
2350 
7000 
0540 


00000216 


7400 
2270 
2340 
6000 
0540 
7000 
2270 
74900 
2340 
6000 
7000 
2240 
1610 


O0 


00 
00 
00 
00 
Ou 
00 
17 
00 
00 
00 
00 
00 
41 


ALGOL68 


4443 
4144 
4145 
4446 
4447 
4148 
4149 
4150 
4454 
4452 
4453 
4454 
4455 


4156 
4457 
4458 
4159 
4160 
4461 
4462 
4163 
4464 
4465 
4166 
4167 
4468 
4169 
4170 
41714 
4472 
4473 
4174 
4475 
4176 
4177 


4178 
4479 
4180 
4181 
4182 
4183 
4184 
4185 
4486 
4187 
4488 
4489 
4190 


OBUS4 


OBUS2 


OBUS3 


On 


Ob2 


OBS 
O0b4 


OBUS6 


OBUS7 


ADX41 
,DX6 
LDX4 
SBX4 
LDX7 
STX7 
TSX0 
LDXO 
CMPX0 
INZ 
LDA 
STA 
LDXo 


STX9 
,DX7 
TSXo0 
LDxa 
CMPXQ 
Zé 
CMPXQ 
TNZ 
AOS 
SBX6 
TPL 
LDX7 
TSX0 
Oxo 
CMPXQ 
TZ 
CMPXG 
TNZ 
LDX7 
DA 
7SX0 
AOS 


TRA 
.DX7 
SZN 
TZE 
AOS 
7SX0 
Dx? 
TRA 
S$ZN 
TZE 
TSX0 
LDX4 
SBX4 


PASS 2 


TEPROG 
Joi 
ASWORK 
via 
1,1 
BUSM 
ASXFER 


OBUS2 


BUSF 
1,7 


0,7 
MSROW,DU 
OBUS3 
MSROWE, DU 
$ERROR 
BUSH 

1,Du 
OBUSL 

1,7 
ASXFER 
0,7 
MSROW, DU 
QB2 
MSROWE, DU 
QBS 

1,7 

SUSD 

CaD 

BUSD 


OBL 
BUSM 
BUS¢ 
OBUS6 
BUS¢ 
ASXFER 
1.7 
084 
BUSF 
QBUS7 
EREFY 
ASWORK 
wt 


PAGE 


MAKE POINTER ABSOLUTE 

GET NUMBER OF COMMAS IN RANGE 

GET POINTER TO END OF WORKING STACK 
GET POINTER TO LAST BLOCK IN XR w 4 
GET MODE OF BASE IN XR «= 7 

SAVE MOME OF SLICE 

MAKE MODE POINTER ABSOLUTE 

GET TYPE OF MODE IN XR » 

IS IY A REFERENCE MODE 

TRANSFER IF NOT REFERENCE 

GET FLAG FOR REFERENCE SLICE 

AND STORE IN BUS FLAG 

GET DEREFERENCEN MODE IN XR & Qg 


AND SA 

Gee DEREFERENCED MODE IN XR & 7 
MAKE !T ABSOLUTE 

GET TYPE OF MODE IN XR e& 9 

}3 IT A ROW MODE 

YES » OK 

1S If AN END ROW MODE 

NO = CANNOT SUBSCRIPT A NONROW BASE 
INCREMERT COMMAND TO NEXT POSITION 
DECREMENT NUMBER OF COMMAS LEFT 
TRANSPER IF MORE TO GO 

GET DEROWED MODE IN XR w 7 

MAKE MODE POINTER ABSOLUTE 

GET TYPE OF MODE IN XR # 7 

1S If A ROW MODE 

YES » TRANSFER 

JS IT AN END ROW MODE 

NO = TRANSFER 

GET DEROWED MODE IN XR « 7 

GET EMPYY POSITION COMMAND 

AND ADD 70 OyfPyT CODE 

STEP YO NEXT POSITION 


AND 1,00P 


GET POSSIBLY DEREFERENCED MODE OF gaSE 


ARE THERE ANY MORE SUBSCRIPTS 
NO » TRANSFER 


DECREMENT NUMBER OF REMAINING SUBSCRIPTS 


MAKE MODE POINTER ABSOLUTE 

GET DEROWED MODE {N XR & 7 

AND |00P 

IS If A REFERENCE SLICE 

TRANSFER IF NOT REFERENCE 
REFERENCE MODE OF ELEMENY 

GET POINTER TO END OF WORK 

GET POINTER TO RASE CONTROL BLOCK 


101 


01557 


END 


END 


04 U5"260-72 
2 

0434390 conont 
0143451 00N0N0 
01434352 00022 
043453 016735 
0143454 043444 
0434355 0126144 
0143436 035234 
043437 777777 
0134490 035224 
OF BINARY CARD 
013441 000002 
013442 000002 
013443 006210 
043444 000000 
043445 000000 
043446 016713 
013447 000000 
043450 0900000 
043454 777773 
0143452 016446 
043453 000007 
013454 0146469 
043455 045072 
0143456 096240 
043457 043472 
043460 777777 
043464 O00004 
0143462 013472 
043463 006210 
043464 013472 
013465 043467 
043466 777777 
OF BINARY CARD 
043467 0000014 
043479 0143472 
013471 006210 
013472 on0000 
043473 016462 
043474 0062140 
043475 016457 
0143476 000004 
013477 040000 
0435090 000000 
013504 043517 
0143502 020000 
013503 000002 
043504 000000 
043505 0413517 
013506 046457 
043507 000001 


17,808 


7479 41 
6359 1/7 
7710 00 
Q7>n 085 
U750 00 
7900 09 
2210 00 
1610 11 
7200 00 
oovoues 
1600 $1 
4490 41 
7100 09 
oo00u0 
o00000 
oogo00 
go00u9 
goo0ud 
2240 03 
7410 00 
6350 00 
7550 00 
7000 00 
7400 00 
2340 0 
6040 00 
2350 08 
7550 00 
7400 00 
2340 09 
6000 80 
6050 00 
90000218 
3350 03 
7550 00 


7400 00 


ALGOL68 


4194 
4192 
4493 
4494 
4495 
4496 
4497 
4498 
4499 


4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4244 
4215 
4216 
4247 
4218 
4249 
4220 
4221 


4222 
42235 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
42314 
4232 
4233 
4234 
4235 
4236 
4237 
4238 


BUSF 
BUSC 
BUSD 
BUSM 


SBCNT 
SINT 


SacT 


SVIRT 


SV4 


DFLG 
STID 


PARN 


BALa 


BALZR 


STX7 
EAA 
ARL 
ADA 
ADA 
YSX0 
LOXd 
SRX4 
LXbL 0 


SBXO 
SX1.0 
TRA 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
LDX4 
STX4 
EAA 
STA 
TSX0 
TRA 
$ZN 
TM] 
LDA 
STA 
TRA 
SZN 
TZE 
TPL 


LCA 
STA 
TRA 
ZERO 
STX7 
TRA 
LDA 
ADA 
ADA 
na 
TRA 
LDA 
ADA 
,0Q 
TRA 
LDA 
ADA 


PASS 2 


1,1 

0,7 

18 
O$8uS,DU 
BUSF 

CAD 
ASWORK 
w4dat 
TSCODE 


OSVEPTY,0 


2#5,DU 
VAP 
MBSINT 
DECLR 
STRNG 
ASQK 
DFLG 
SERROR 
1,04 
DFLG 
ASOK 
DFLG 
SV4 
$ERROR 


1,DuU 
DFLG 
ASQK 


TONT 
ASOK 

CnT 

1,DL 
WEPAR, DU 
Q,DU 
BALNYL 
WSBal,DU 
2,0L 
0,Du 
BALN1L 
CNT 

4,.DL 


PAGF 192 


STORE NEW MODE IN CONTROL BLOCK 

GET MODE OF RESULT IN AU 

MOVE YO AL 

ADD BUS CODE 

CHANGE BUS YO RRUS IF REFERENCE SLICE 
AND AND YO CODE 

GET POINTER YO END OF WORKING STACK 
GET POINTER TO SLICE CONTROL BLOCK 
GET POINTER TO END OF CODE 


SUBTRACT ADDRESS OF START OF SLICE CODE 
AND STORE AS NEW SLICF CODE LENGTH 
AND EXIT 


GET RELATIVE POINTER TO LAST CONTROL ALOCK 
AND STORE aS POINTER TO CURRENT BLOCK 
GET AN INTEGRAL MODE 

AND STORE AS DESIRED MONE 

MAKE BOUND AN INTEGER 

AND EXIT 

CHECK VIRTUALJACTUAL FLAG 

ERROR #» ALREADY VIRTUAL 

GET acCTual FLAG 

AND STORE IN VIRTUAL/ACTUAL FLAG 

AND EXx|{? 

CHECK VIRTUAL/ACTUAL FLAG 

TRANSFER {Ff NOT YET SET 

ERROR » ALREADY aCTyAL 


GET VIRFUAL FLAG 
AND STORE IN VIRTUAL/ACTUAL FLAG 
AND EX]? 


STORE POINTER To LaST SYMBOL IN IDNY 
AND Ex]?t 

GET NUMBER OF UNITS 

ADD ONE FOR THE LAST UNIT 

ADD CONTROL WORD 

GET A ZERO FOR NO RANGE INFORMATION 
AND CONTINUE 

GET CONTROL WORD 

ADD NUMBER OF UNITS 

GET aA ZERO FOR NO RANGE INFORMATION 
AND CONYVINVE 

GET NUMBER OF UNIS 

ADD ONE FOR YHE LAST UNIT 


01557 


END 


END 


04 0526-72 
2 

013510 020000 
013541 Oono0o 
013512 013517 
013513 016457 
013514 onnoo1 
OF BINARY CARD 
013545 020000 
013516 011357 
013517 035234 
013520 005754 
013521 000000 
013522 090022 
033523 035234 
013524 095754 
013525 035235 
013526 000000 
013527 035234 
013530 005754 
013531 035234 
013532 0095754 
013333 000005 
013534 035234 
013535 095754 
043536 006210 
013537 035234 
013549 «©66035244 
013541 035235 
013542 0095742 
OF BINARY CARD 
013543 043573 
0143544 035235 
013545 005742 
0143546 043573 
013547 096210 
013550 035234 
043554 777777 
043552 043573 
013553 000003 
013554 000004 
043555 035235 
043556 043573 
043557 035235 
0143560 035214 
013561 043570 
043562 035234 
013563 013570 
0143564 777777 
013565 0090003 
013566 O00004 
013567 09003 


17,863 


0750 
2360 
7400 
2350 
070 


00000419 


0750 
236n 
7550 
7470 
6350 
7710 
7550 
7170 
2350 
6350 
7550 
7470 
4500 
7470 
6350 
7550 
7470 
7490 
2200 
1600 
7400 
7170 


Q0000220 


2350 
7550 
7470 
4500 
7400 
2200 
4600 
2350 
2550 
7350 
2750 
7550 
2200 
0600 
7400 
2210 
7400 
1610 
2350 
7350 
7550 


05 
Vo) 
00 
00 
07 


05 
00 
56 
00 
62 
00 
56 
00 
54 
Q5 
56 
00 
56 


00 


ALGOL68 


4239 
4240 
4241 
4242 
4243 


4244 
4245 
4246 
4247 
4248 
4249 
4250 
4254 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4259 
4260 
4264 
4262 
4263 
4264 
4265 


4266 
4267 
4268 
4269 
4270 
4274 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4263 
4284 
4285 
4286 


BALN 


BALN4G 


INL 


ORLL 


ORLLG 


ADA 
AQ 
TRA 
LDA 
ADA 


ADA 
LQ 
STA 
XED 
EAA 
ARL 
STA 
XED 
LDA 
EAA 
STA 
XED 
$7Z 
XED 
EAA 
STA 
XED 
TRA 

LDX0 
$BX0 
STX0 
XED 


LDA 
STA 
XED 
STZ 
TRA 
LDXx0 
SBX0 
WDA 
ORSA 
ALS 
ORA 
STA 
Xo 
ADXO 
STX0 
LDX1 
TRA 
SBX4 
LDA 
ALS 
STA 


PASS 2 


WEBaL,DU 
Q,Du 
BALN1 
CNT 

1,DL 


WEBAL,DU 
RNGE 
ASWORK, ID 
TSWOVE 
0,9uU 

18 
ASWORK,ID 
TSWOVE 
ASSTACK,D!I 
OAL 
ASWORK, 1D 
TSWOVF 
AGWORK, 1D 
TSWOVF 

5 
ASWORK, #D 
TSWOVF 
ASOK 
ASWORK 
TSWORK 
ASSTACK, [D0 
TSSOVF 


RL 
ASSTACK, 1D 
TSSOVF 

REL 

AS$QOK 
ASWORK 
4,0 

RELL 

3,0 


1 
ASSTACK,DI 
RLL 
ASSTACK,D! 
TSEWORK 
ORLL2 
ASWORK 
ORLL2 

wid 

3,1 

1 

Se 
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ADD CONTROL WORD 

GET A ZERO FOR NO RANGE INFORMATION 
AND CONTINUE 

GET NUMBER OF UNITS 

ADD ONE FOR THE LAST UNIT 


ADD CONTROL WORD 

GET CURRENT RANGE NUMBER IN QU 
AND STORE IN WORKING STACK 
CHECK FOR STACK OVERFLOW 

GET RANGE NUMBER OR ZERO IN AU 
MOVE TO LOWER HaLF OF MODE WORD 
AND STORE IN WORKING STACK 
CHECK FOR STACK QVERFLOW 

GET POINTER YO START OF CODE FOR VaLUE 
PUT IN AU 

STORE LOcsLEN IN WORKING STACK 
CHECK FOR STACK OVERFLOW 

STORE ZERO IN WORKING STACK 
CHECK FOR STACK QVERFLOW 


GET LENGTH OF CONTROL ELEMENT IN WORKING STACK 


STORE JW WORKING STACK 

CHECK FOR STACK OVERFLOW 

AND EX]¥ 

GET POINTER TO END OF CURRENT WORKING STack 
MAKE POYNTER RELATIVE ’ 
AND SAVE IN CONTROL STACK 

CHECK FOR STACK OVERFLOW 


GET CURRENT RANGE LI WORD 

AND SAVE IN CONTROL STACK 

CHECK FOR STACK OVERFLOW 

INITIALYZE LL WORD FOR NEW RANGE 
AND EX]? 

GET POINTER TO END OF WORKING STACK 
GET POINTER TO LAST BLOCK IN WORKING STack 
GET CURRENY RANGE LL WORD 

AND OR {7 INTO LAST CONTROL BLOCK 
GET LL WORD FOR NEXT OUTER RANGE 

OR IN SAVED LL FROM PREVIOUS OUTER RANGE 
AND STORE AS CURRENT LL WORD 

GET LENGTH OF WORK ON RANGE ENTRY 
MAKE POINTER ABSOLUTE 

AND STORE FOR COMPARES 

GET POINTER TO END OF WORKING STACK 
GO TO END CHECK 

GET POINTER TO PREVIOUS BLOCK 

GET LL WORD IN BLOCK 

SHIFT TO OUTER RANGE REPRESENTATION 
AND RESTORE LL WORD 


01557 


END 


END 


END 


04 0526-72 
2 

0143570 don0nno 
OF BINARY CARD 
043571 013564 
013572 0096210 
013573 090000 
013574 490000 
0143575 035234 
013576 005754 
043577 016460 
013600 000000 
043601 035234 
043602 005754 
013603 035224 
013604 od0n0N0 
013605 000001 
013606 035234 
013607 0095754 
043610 035234 
013611 0095754 
0436142 000005 
013613 035234 
043614 0095754 
043615 000000 
043616 035224 
OF BINARY CARD 
013617 095663 
013620 016460 
013621 000022 
043622 016466 
013623 777777 
043624 046469 
013625 010639 
0143626 000001 
043627 010562 
0143630 043640 
043651 016460 
0143632 777777 
013633 016749 
0143634 042614 
043635 035234 
043636 777777 
043637 0090002 
013640 006219 
043641 000000 
043642 090022 
043643 046504 
013644 035234 
OF BINARY CARD 
013645 777777 
013646 035234 


17,863 


1010 


O0NNV221 


6010 
7400 


QS 


00 
90 


000090 


6350 
7590 
71470 
2350 
6350 
7550 
7470 
2350 
6320 
0750 
7590 
7470 
4500 
7470 
6350 
7550 
7470 
6390 
2210 


gng00222 


7000 
2350 
7740 
0750 
7550 
2270 
7000 
2270 
7000 
7400 
2350 
3750 
0750 
7000 
2240 
1610 
0540 
7400 
6350 
7710 
0750 
22140 


Qn0002235 


1610 
1670 


90 
00 
00 
00 
$1 
00 
00 
47 
00 
00 
00 
07 


41 
00 


ALGOL68 


4287 


4288 
4289 
4290 
4294 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4304 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 


4310 
4311 
4312 
43135 
4344 
4345 
4316 
43147 
4318 
4319 
4320 
4321 
4322 
43238 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4334 


4332 
4333 


ORLL2 


REL 
WGEN 


wGENX 
ENYL 


CMPX4 


TNZ 
TRA 
ZERO 
EAA 
STA 
XED 
LDA 
EAA 
STA 
XED 
LDA 
EAA 
ADA 
STA 
XED 
STZ 
xED 
EAA 
STA 
XED 
EAA 
~OX4 


TSX0 
LDA 
ARL 
ADA 
STA 
9X7 
TSX 
0X7 
TSXo 
TRA 
DA 
ANA 
ADA 
TSX0 
LDX4 
SeX4 
AOS 
TRA 
EAA 
ARL 
ADA 
LDX4 


SBX4 
SBX1 


PASS 2 


ee, 0U 


ORLLI 
AtOK 


WEVALUE 
ASWORK, ID 
TEWOVE 
DECLR 
0,AU 
ASWORK, ID 
TEWOVE 
TECODE 
Q,AL 

41,DL 
ASWORK, 1D 
TEWOVF 
ASWORK, ID 
TSWOVE 


5 
ASWORK, 1D 
TSWOVF 


0 
TSCODE, DU 


TSAL QC 
DECLR 
48 
GTYPE 
194 
DECLR 
ASXFER 
1.7 
ASRCHK 
WGENX 
DECLR 
74eDL 
OSBOUND, DU 
Cad 


OSLBL, DU 
ASWORK 


w1yt 
ASWORK 


PAGE 


IS THIS WHERE STACK WAS MARKED 


TRANSFER JF MORE BLOCKS TO MODIFY 
AND EXIT 


GET HEADER WORD IN A 

STORE IN WORKING STACK 

CHECK FOR STACK OVERFLOW 

GET CURRENT DECLARER IN A 

CLEAN OFF BOUNDS INFORMATION 

STORE IN WORKING STACK 

CHECK FOR STACK OVERFLOW 

GET POINTER TO ENN OF CODE 

PUT IN aU 

GENERATE LOC/LEN WORD 

STORE IN WORKING STACK 

CHECK FOR STACK OVERFLOW 

ZERO OUT LL WORD 

CHECK FOR STACK OVERFLOW 

GET NUMBER OF WORDS IN CONTROL BLOCK 
STORE IN WORKING STACK 

CHECK FOR STACK OVERFLOW 

ALLOCATE ONE WORD 

GET POINTER TO CODE TABLE CONTROL WORD 


GET A WORD IN CODE 

GET CURRENT DECLARER 

MOVE MODE fO AL 

ADD LOCAL OR HEaP GENERATOR 

STORE IN CODE 

GET MODE OF DECLARER IN yR « 7 

MAKE MORE ROINTER aBSOLUTE 

GEY DEREFERENCED MODE IN XR @ 7 

SEE JF YWERE 1S & BOUND PART IN DECLARER 
TRANSFER IF NO ROUND PART IN DECLARER 
GET BOUND PART OF DECLARER IN al 
ZERO CUT aU 

ADD BOUND CODE 

AND aDD YO CONE 

GET POINTER TO END OF WORKING STACK 
GET POINTER TO LAS¥Y BLOCK IN WORK 
INCLUDE BOUND CODE IN VALUE 

AND EXI¥ 

GET LABEL JN AU AND INCREMENT LABEL 
MOVE LABEL YO AL 

ADD DEF TNE LABEL CODE 

GET POJNTER TO END OF WORKING STACK 


104 


GET POINTER TO LAST BLOCK IN WORKING STACK 


MAKE CURRENT VALVE POINTER RELATIVE 
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2 PASS 2 
013647 016446 7410 00 4334 STX4 VALP AND STORE FOR INSERTION ROUTING 
013650 012403 7000 00 4335 TSXO INS INSERT ONE WORD IN FRONT OF CODE 
013651 006210 71u0 00 4336 TRA ASOK AND EXIT 
013652 013653 0110 56 4337 B1 NOP B1x,1D 
043653 00N90M0 O00 On 4338 81x TALLY ae 
043654 000000 Qou0NU8 4339 B1S ZERO 
013655 0413656 0110 36 4340 B2 NOP B2X,1D 
013656 000000 Onur Ou 4341 Bex TALLY 
013657 000000 o0V008 4342 B2s ZERO 
013660 0090000 oB800u0 4343 41 ZERO 
013661 035234 2210 Ov 4344 ENTC LOX4 ASWORK GET POINTER TO END OF WORKING STACK 
013662 777777 1610 $1 4345 SBX4 “4,4 MAKE XR » 1 POINT TO LAST CONTROL BLOCK 
013663 000001 2270 41 4346 LDX7 4,4 GET MODE OF LHS TERTIARY 
013664 035234 1610 00 4347 SBX1 ASWORK MAKE CURRENT VALUE POINTER RELATIVE 
013665 016446 7410 00 4348 STX¢ VaALP AND STORE FOR INSERTION ROUTING 
013666 013714 4470 09 4349 SX..7 ENTC?T AND SAVE MODE 
043667 010630 7000 00 4350 TSX0 ASXFER MAKE MODE UNIQUE AND ABSOLUTE 
013670 000004 2350 47 4354 LDA 1.7 GET DEREFERENCED MODE IN aU 
043671 090022 7710 00 4352 ARL 18 MOVE MODE YO AL 
013672 016942 0750 O38 4353 ADA OSCONF, DU ADD CONFORMITY GHECK CODE 

END OF BINARY CARD 00000224 
013673 012403 7000 90 4354 TSX0 INS INSERT CODE IN FRONT OF VALUE 
013674 013652 2350 514 4355 LDA Bi,! GET CURRENT LABEL IN BLOCK ONE 
013675 000022 7740 G0 4356 ARL 7 PUT IN @L 
013676 016545 0750 43 4357 ADA OSTF,DU ADD TRANSFER IF FALSE CODE 
013677 012403 7000 90 4358 TSXO JNS {NSERT cone IN FRONT OF VALUE 
013700 017020 6350 00 4359 EAA OSMREF GET MAK® REFERENCE VALUE BLOCK COMMAND 
013701 0142403 7o00 OO 4360 7SX0 JNS AND INSERT {7 IN FRONT OF VALUE 
043702 043714 2350 G0 4364 LDA ENTet GET MOD® OF TERTIARY IN AL 
013703 046553 O750 O5 4362 ADA OSCASGN, DU GET CONFORMITY ASSIGN IN AU 
043704 012614 7000 00 4365 TSX0 CAD ADD AFTER YERTIARY 
013705 013655 6350 29 4364 EAA B2,a GEY NEX¥ BLOCK YWO LABEL IN AU 
0143706 000022 7710 00 4365 ARL 18 MOVE LABEL FO AL 
013707 016507 Q750 O8 4366 ADA QS JUMP, DU ADD UNCONDITIONAL YUMP CODE 
013710 012614 7900 80 4367 TSX0 Gad AND ADD ¥O END OF OUTPUT CODE 
043711 017029 6350 oO 4368 EAA OSMREF GET MAKE REFERENCE VALUE BLOCK COMMAND 
043712 012644 7000 a0 4369 1SX0 CaD AND ADD 70 CODE AFTER VALUE 
013743 014100 7400 00 4370 TRA DELV GO TO DELETE VALUE 
013714 000000 Qn0000 4371 ENTCT ZERO 
0143715 090090 On00u0 4372 ZERO 
043716 016463 4500 00 4373 CS¢T SsTz RELF SET CONFORMITY FLAG TO CONFORMS To 
043717 006210 7100 60 4374 TRA ASOK AND EXIT 
0143720 0000041 2350 O$ 4375 CSC€TB \ (DA 1, Du GET A NONZERO NUMBER 
END OF BINARY CARD 00000225 

013721 016463 7550 a0 4376 STA RELF SET FLAG TQ CONFORMS TO AND BECOMES 
013722 006240 7400 OOo 4377 TRA ASOK AND EX]? 
013723 016464 7200 a9 4378 CUNF {LXLO GLBL GET A UNIQUE LABEL 
013724 016464 9540 00 4379 aos GLBL STEP LABEL GENERATOR 
0143725 013669 7400 OO 4380 STX0 Lt AND STORE JN Li 


0143726 011357 2210 50 43614 LDX4 RNGE GET POINTER TO CURRENT RANGE 


U1557 


END 


END 


O01 u5"26-72 
2 

043727 035221 
043750 ugnons 
043751 090922 
G13752 O000N2 
043733 046464 
0143754 016464 
043735 u13653 
043736 0413654 
043737 016464 
013740 016464 
043744 013656 
043742 43657 
0143743 013660 
013744 uvogn0?2 
0143795 016507 
0143746 012614 
OF BINARY CARD 
043747 017020 
0143750 012614 
043751 96210 
043752 035234 
043753 777777 
013754 035234 
013755 016446 
0143756 0415101 
043757 777773 
043760 016446 
043761 013655 
043762 000022 
013763 016507 
043764 012403 
043765 043669 
013766 000022 
013767 016504 
013770 012403 
043774 017026 
043772 012403 
0143773 047023 
0143774 0126144 
OF BINARY CARD 
043775 043654 
043776 000022 
043777 016507 
044000 0142614 
014001 013657 
0144002 013656 
044003 035234 
0144004 090005 
0144005 0090002 
014006 0009002 


17,303 


0610 
2350 
7710 
0750 
7200 
0550 
7490 
7400 
7200 
Q590 
7490 
7400 
2350 
77140 
0750 
7000 


00000226 


6350 
7000 
7400 
2210 
1610 
1610 
7410 
7000 
6210 
7410 
6350 
7710 
0750 
7000 
2350 
7740 
0750 
7000 
6350 
7000 
6350 
7000 


good0227 


2350 
7740 
0750 
7090 
2200 
74900 
2210 
1610 
2350 
0550 


00 


00 
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4382 
4383 
4384 
43B5 
4386 
4387 
4388 
4389 
4390 
43914 
4392 
4393 
4394 
4395 
4396 
4397 


4398 
4399 
4400 
4401 
4402 
4463 
4404 
4405 
4406 
4407 
4408 
4499 
4410 
4441 
4412 
4443 
4444 
4445 
4446 
4447 
44718 
4449 


4420 
4421 
4422 
4428 
4424 
4425 
4426 
4427 
4428 
4429 


CONE 


ADX4 
LDA 
ARL 
ADA 
L XLO 
ASA 
STXO0 
STX0 
LxLO 
ASA 
STX0 
STXO 
LDA 
ARL 
ADA 
TSX0 


EAA 
TSX0 
TRA 
LOX1 
SBX1 
SBX1 
STX4 
7Sx0 
EAXL 
STX4 
SAA 
ARL 
ADA 
¥SXo 
LDA 
ARL 
ADA 
¥SX0 
EAA 
TSXO 
EAA 
TSXO0 


LDA 
ARL 
ADA 
TSXo0 
.DX0 
STX0 
LOX4 
SBX4 
LDA 
ASA 


PASS 2 


TSPROG 
Set 

18 
2.0L 
GLBL 
GLBL 
yx 
b4¢S 
GLBL 
GLBL 
B2X 
B2S 

Lt 

18 
OSJUMP, DU 
GAD 


OSMREF 
CAD 
ASOK 
ASWORK 
w4at 
ASWORK 
VALP 
FIRM 
25 
VALP 
B2,a 
18 
OSJUMP, BU 
INS 

Gi 

18 
O$LBL,DU 
INS 
OSMAX 
INS 
OSCONE 
CaD 


Bais 

48 
OSJUMP, DU 
CaD 

B2eS 

B2x 
ASWORK 
5,Du 

2,0L 

2s1 


MAKE 
GET 
MOVE 
GET 
GET 


PAGE 196 


TT ABSOLUTE 
NUMBER OF COMMAS IN AU 

TO AL 
NUMBER OF UNITS PLUS ONE IN AL 
STARTING LABEL OF BLOCK 


INCREMENT LABEL GENERATOR TO END OF BLOCK 


AND 
AND 
GET 


STORE STARTING LABEL IN BLOCK 
SAVE START OF BLOCK 
STARTING LABEL OF BLOCK 


INCREMENT LABEL GENERATOR TO END OF BLOCK 


AND 
AND 
GET 
PUT 
ADD 
AND 


GET 
AND 
AND 
GET 
GET 
MAKE 
AND 
MAKE 
GET 
AND 
GET 
MOVE 
ADD 
{NSE 
GET 
MOVE 
ADD 
INSE 
GET 
AND 
GEY 
AND 


GET 
MOVE 
aDD 
AND 
GEr 
AND 
GET 
GET 
GET 
AND 


STORE STARTING LABEL IN BLOCK 
SAVE START OF BLOCK 

A LABEL 

IT IN AL 

UNCONDITIONAL JUMP CONE 

ADD TO OUTPUY CODE 


MAKE REFERENCE VALUE BLOCK COMMAND 
ADD TO OUTPUT CODE 
EXIT 
POINTER TO END OF WORKING STACK 
POINTER TO LAST CONTROL BLOCK IN XR = 4 
CURRENT VALUE POINTER RELATIVE 
STORE FOR INSERTION ROUTING 
RIGHT TERTIARY FIRM 
POINTER YO LaST CONTROL BLOCK IN WORK 
STORE FOR INSERTION ROUTINE 
NEXT ADDRESS {N BLOCK Two 
LABEL TO AL 
UNCONDE TIONAL JUMP CODE 
R® CODE IN FRONT OF VALUE 
LABEL SAVED JIN Li 
LABEL TO AL 
DEFINE LABEL CODE 
R’ CODE IN FRONT OF VALUE 
SET STACK POINTER TO MAXIMUM GONMAND 
INSERY IN FRONT OF VALUE 
CONFORMITY CLEANUP COMMAND IN a 
ADD AFYER VaLUE 


SYARY OF BLOCK ONE IN A 
LABEL TO AL 
UNCONDITIONalL YUMP CODE 
ADD To OUTPUT CODE 
SyYARy QF BLACK WO 
RESTART BLOCK TWO 
POINTER TO END OF WORKING STACK 
POINTER TO LAST VALUE CONTROL BLOCK IN WORK 
NUMBER OF WORDS ADDED YO CODE aFYER VaLUS 
ADD TO WORD COUNT IN VALUE CONTROL BLOCK 
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2 PASS 2 
014007 006240 7400 OO 4430 TRA ASOK AND EXIT 
014010 035234 2210 ov 4431 DIF LOX1 ASWORK GET POINTER TO END OF WORKING STACK 
014011 777777 1610 11 4432 SRX4 wtot GET POINTER TO LAST CONTROL BLOCK IN XR ~ 4 
014042 035234 1610 Oy 4433 SBX4 ASWORK MAKE POINTER RELATIVE 
0140135 016446 7419 00 4434 STX4 VALP AND STORE aS POINTER TO CURRENT VALUE 
014014 011357 7200 90 4435 LX, 0 RNGE GET POINTER TO HIGHEST RANGE NUMBER 
014015 035271 0600 00 4436 ADXO TSPROG MAKE POINTER ABSOLUTE 
014016 777777 0600 40 4437 ADXO #4,0 STEP POINTER TO NEXT RANGE 
014017 000001 0600 03 4438 ADXO 4, DU STEP OVER LINK WORD 
014020 000005 2210 19 4439 WOX4 5,0 GET NUMBER OF COMMAS IN FOLLOWING RANGE 
014021 014064 6000 00 4440 TZE DIF4 TRANSFER !F NO COMMAS » MUST BE IF STATEMENT 
014022 000003 2210 10 4444 LOX 3,0 GET NUMBER OF SEMICOLONS IN FOLLOWING RANGE 
END OF BINARY CARD QAUOU228 
014023 014064 6010 OY 4442 TNZ DIFs TRANSFER IF SEMICOLONS » MUST BE IF STATEMENT 
014024 035221 1600 00 4443 $8X0 TSPROG MAKE XR » Q RELATIVE 
014025 014034 7400 80 4444 STX0 DIF xO SAVE XR « Q 
014026 000007 6350 00 4445 EAA MSINT GET AN INTEGRAL MODE IN AU 
044027 016469 7550 O09 4446 STA DECLR AND STORE aS TARGET MODE 
014050 015072 7ou0 40 4447 TSXo STRNG COERCE CONDITION OF CASE TO INTEGRAL MODE 
014031 0000%0 2200 935 4448 DIFXo LDxo #e,DU RESTORE XR «# 0 
0140352 035221 0600 90 4449 ADXO TSPROG AND MAKE IT ABSOLUTE 
014053 000005 2350 40 4450 LDA 540 GEY NUMBER OF COMMAS IN FOLLOWING RANGE 
014054 000022 7710 OC 4454 ARL 18 PUT NUMBER OF COMMAS IN AL 
014055 000002 0790 07 4452 ADA 2.0L ADD 2 TO G&? NUMBER OF TRANSFERS IN CASE 
044056 016464 7200 oY 4453 LXLo GLBL GET STARTING LABEL OF A UNIQUE BLOCK 
014037 046464 0550 O00 4454 ASA GLBL STEP LABEL GENERATOR TO END OF BLOck 
014040 045656 7400 00 4455 STX0 B2Xx INITIALYZE LOCAL LABEL GENERATOR 
044041 013657 7490 00 4456 STX0 B2S SAVE STARTING LOCATION OF LOCAL LABEL GENERATBAR 
014042 000001 1750 97 4457 SBA 4,01 GET MAXIMUM VALID INDEX IN CASE STATEMENT IN al 
014043 090000 6270 05 4458 EAX7 0.AL AND SAVE IN XR - 7 
014044 016559 0750 as 4459 ADA OSCaSE, Du ADD CASE BRANCH COMMAND 
014045 012614 700 90 4460 TSX0 CAD AND ADD TO END OF OUTPUT c@aDE 
014046 016464 2350 ny 4464 LDA GLBL GET LABEL JUST REYOND END OF LaBEL BLOCK 
014047 777777 3750 07 4462 ANA e4,DL CLEAN UP LABEL 
014050 090001 1750 67 4463 SBA 1,DL GET LAST LABEL IN BLOCK IN aL 
END OF BINARY CARD 00000229 
014051 016507 0750 03 4464 ADA OSJUMP, BU ADD UNCONDITIONAL JUMP CODE 
014052 0142614 7000 00 4465 TSX0 CAD AND ADD TO END OF OUTPUT CODE 
014053 013655 6350 20 4466 DIFL EAA BQ, GET NEXY¥ LABEL IN LOCAL BLOCK IN ay 
014054 000022 7710 00 4467 ARL 18 MOVE LABEL 70 AL 
014055 016507 0750 OS 4468 ADA OSJUMP, DU ADD UNCONDSTIONAL YUMP CODE 
014056 012644 7000 00 4469 TSX0 CAD AND ADD TO END OF OUTPUT GQDE 
014057 000001 1670 03 4470 SBX7 4, DU DECREMENT NUMBER OF LABELS LEFT TO app 
014060 014053 60140 00 4474 TNZ DIFL TRANSFER IF MORE LABELS TO ADD 
014061 013657 2200 80 4472 .DX0 B2s GET STARTING LAREL IN BLOCK 
014062 013656 7400 00 4473 STxXo0 B2Xx AND REINITIALIZE LOCAL LABEL GENERATOR 
014063 014190 7400 OO 4474 TRA DELV GO DELEVE CONDITION CONTROL BLOCK FROM wORK 
014064 090003 6350 00 4475 DIF1 EAA MEBOOL GET A BOOLEAN MODE IN AU 
014065 016460 7550 00 4476 - STA DECLR AND STORE aS TARGET MODE 


014066 015072 7000 90 4477 TSX0 STRNG COERCE CONDITION TO BOOLEAN MODE 


01557 


END 


END 


01 05620672 
2 

014067 046464 
014070 016464 
044071 0143656 
014072 013657 
0144073 vUonndo 
014074 Uugn022 
0144075 016545 
014076 u12614 
OF BINARY CARD 
014077 014100 
0141090 090000 
014104 035234 
014102 00N000 
0441403 777777 
0144104 0990038 
014105 000000 
0414106 014116 
044407 044116 
014410 090091 
014141 0141403 
044442 035234 
044113 035234 
01414144 014112 
014415 096210 
014116 009000 
0141447 014136 
014129 035220 
044123 777777 
014122 0900091 
014123 090000 
014124 044121 
OF BINARY CARD 
014425 000001 
014126 096413 
0144127 0141421 
014150 090002 
014131 013257 
014432 035229 
0144133 04141356 
014134 0141731 
0141455 006210 
014136 0090001 
0141357 044202 
014140 015067 
014144 0113557 
014142 096469 
014143 Oonon1 
044144 035222 
044145 096437 
014146 045036 


17,805 


7200 Oy 
0540 OU 
7400 Og 
74y0 Ou 
6350 1 
7710 00 
0750 O08 
7000 0U 
00000250 
7100 00 
2220 08 
2210 00 
2350 07 
1610 &1 
2750 41 
7200 41 
7400 00 
0620 00 
1620 03 
6050 00 
Q410 $4 
4010 09 
6010 Ou 
7400 QQ 
000000 
2210 00 
0640 00 
0610 41 
0610 93 
7200 &1 
6000 00 
00000234 
2200 £1 
1000 03 
6010 00 
2350 41 
7550 00 
610 900 
440 00 
74140 OO 
7400 00 
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4478 
4479 
4480 
4464 
4482 
4483 
4484 
4485 


4486 
4467 
4488 
4489 
4490 
4494 
4492 
4493 
4494 
4495 
4496 
4497 
4496 
4499 
4500 
4501 
4502 
4593 
4504 
4505 
45096 
4507 


4598 
4509 
4540 
4544 
4512 
4543 
4544 
4515 
4516 
4547 
4548 
4549 
4520 
4524 
4522 
4523 
4524 
4525 


DELV 


DEL V4 


DEL V2 


DeELVT 
OJVDNY 


OLBY4 


OPNT 
FOP 


FOP, 


LXL 0 
AOS 
STX0 
STXO 
EAA 
ARL 
ADA 
TSX0 


TRA 
LDx2 
LOXL 
LDA 
SBX1L 
ORA 
LxL0 
STX0 
ADX2 
SBX2 
TPL 
NOP 
CMPX1 
YNZ 
TRA 
ZERO 
LOX4 
ADX4 
ADX4 
ADX1 
X40 
TZE 


LDXO 
CMPXQ 
TNZ 
DA 
TA 
SBX4 
S¥X4 
STX4 
TRA 
ZERO 
STX7 
STX7 
LDXx0 
STXO 
EAX4L 
ADX4 
7SX0 
TRA 


PASS 2 


GLBL 
GLBL 
Bax 

82S 

0.0 

18 
OFTF,DY 
CAD 


DELV 
0,0U 
ASWORK 
O,DL 
wield 
Sot 
0,1 
DELVT 
DELVT 
1,DuU 
DELVL 


ASWORK,DI 


ASWORK 
DELV2 
ASOK 


OPNT 
TSDEF 
oe ee | 
1,DuU 
0,4 
OIDy1 


1,1 
DSOP,DU 
QIDy1 
2e4 
FMODE 
TSDEF 
OPNT 
LASTS 
ASOK 

i 

COPER 
CoPeT 
RNGB 
ASLEVEL 
ASDF,7 
TSSTAB 
ASTLU 
COPEP 
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GET A UNIQUE LABEL 

STEP LABEL GENERATOR TO ANOTHER LABEL 

INITIALYTZE LOCAL LABEL GENERATOR TO UNIQUE LAREL 
AND STORE LABEL AS START OF BLOCK 

GET LABEL IN AU 

MOVE LABEL TO AL 

ADD TRANSFER IF FALSE CODE 

AND ADD TO END OF OUTPUT CODE 


AND DELETE CONTROL 8LOCK FOR CONDITION VALUE 
INITIALIZE COUNT TO ZFRO 

GET POINTER TO END OF WORKING STACK 
INITIALIZE LL WORD 

STEP BACK ONE CONTROL BLOCK 

OR IN Li OF THIS VALUE 

GET NUMBER OF ADDITIONAL BLOCKS IN THIS VALUE 
AND STORE 

INCREMENT NUMBER OF BLOCKS To STEP 

DECREMENT NUMBER JUST STEPPED 

TRANSFER IF MORE BLOCKS TO STEP 

DELETE a WORD FROM THE WORKING STack 

ARE ALL BLOCKS nELETED 

TRANSFER {FF MORE fO DELETE 

AND EX [? 


GET POINTER TO LAST OPERAYOR DEFINITION 
MAKE POINTER ABSOLUTE 

STEP TO NEXT DEFINITION TaBLE ENTRY 
STEP OVER LINK WORD 

GET LL OF NEW DEFINITION 

SKIP ENTRY IF LLO BY TRANSFERING 


GET TYPE OF DEFINITION IN XR - O 

IS IT AN OPERATOR DEFINITION ENTRY 

TRANSFER {F NOT 

GET MODE oF OPERATOR 

AND STORE IN FMODE FOR PECLARATION ROUTINES 
MAKE POYNTER RELATIVE 

AND STORE aS CURRENT OPERATOR DEFINITION 
AND STORE AS DEFINITION OF LAST SYMROL READ 
AND EX]? 


SAVE POINTER TO OPERATOR SYMBOL 

SAVE OPERATOR POINTER FOR POSSIBLE ERROR MESSaGE 
GET CURRENT RANGE NUMBER 

AND STORE FOR TABLE LOOK UP ROUTINE 

GET SYMBOL POINTER IN XR @ ¢ 

MAKE 17 a~BSOLUTELY POINT TQ DEFINITION CHAIN 
LOOK UP OPERATOR IN SYMBOL TABLE 

TRANSFER {Ff CANNOT IDENTIFY OPERATOR PRIORITY 


01557 


END 


2 
014147 do0001 
014150 006414 
014151 014145 
U14152 090002 
END OF BINARY CARD 
014153 046474 
014154 044624 
014155 014620 
014156 035234 
0144157 005754 
014160 004090 
0144164 000000 
044162 0146475 
014163 09N000 
044164 035214 
014165 016475 
014166 044202 
014467 035234 
014170 005754 
014174 046474 
014172 035234 
044173 005754 
014474 035234 
044175 005754 
0144176 000005 
0441477 035234 
014200 005754 
OF BINARY CARD 
014201 006210 
014202 000000 
0144203 016474 
044204 044621 
014205 014620 
014206 0062140 
0144207 035235 
014210 005742 
014211 0062140 
014212 035235 
0144213 044220 
044214 0415071 
014215 044624 
014216 014633 
044217 006210 
014220 0090003 
014221 014317 
044222 035234 
044223 777777 
014224 035234 
014225 046446 
044226 0415103 


17,863 


2229 
1n20 
6010 
2220 


00000282 


7420 
7500 
7490 
6200 
7470 
6350 
7550 
2220 
4420 
1690 
7400 
2350 
7550 
7470 
2350 
7550 
7470 
4590 
7470 
6350 
7550 
7470 


Q0000855 


71400 


41 
IK) 
00 
41 


Oy 
90 
00 
56 
00 
90 
£0 
60 
$0 
QU 
00 
00 
56 
00 
00 
56 
00 
56 
00 
00 
36 
00 


09 


000000 


4500 
7500 
7400 
7100 
7470 
7470 
7400 
gene 
2350 
7550 
7590 
7400 
7400 


90 


777777 


4500 
2240 
1610 
1610 
7440 
7000 


90 
00 
41 
00 
00 
00 
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4826 
4527 
4528 
4529 


4530 
4331 
4832 
4533 
4534 
4535 
4536 
4837 
4538 
4339 
4540 
4544 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4854 


4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4364 
4565 
4566 
4367 
4868 
4569 
4570 
4574 
4572 
4573 


COPER 
FOPS 


WMOP 


MOP 


MOPC 
SELCT 


LDx2 
CMPX2 
TNZ 
,,DX2 


STX2 
STC2 
TRA 
EAXO 
XED 
EAA 
STA 
LOx2 
SXL2 
SBX0 
STX0 
DA 
TA 
XED 
LDA 
STA 
XED 
$TZ 
XED 
EAA 
STA 
XED 


TRA 
ZERO 
$7¥Z 
§TC2 
TRA 
TRA 
STX7 
KED 
TRA 
DX4 
DA 
STA 
$TC2 
TRA 
TRA 
ZERO 
$?Z 
LDX4 
SBX4 
SBX4 
STX4 
TSX0 


PASS 2 


1,1 
DSPRIOR,DU 
FOP, 

201 


CPR 

COPx 

COP 
ASWORK, ID 
TSWOVE 
WSOP 

0,0 

OPT 

0,0 
TEWORK 
OPT 

COPER 
ASWORK. 4D 
TSWOVF 
CPR 
ASWORK, ID 
TSWOVF 
ASWORK,1D 
TSWOVF 

5 
ASWORK: £D 
TSWOVE 


ASOK 


CPR 

COPx 

COP 

ASOK 
ASSTACK, 10 
TESOVF 
ASOK 
ASSTACK,DI 
MOPC 

OPF 

COPY 

copm 

ASQOK 

3,4 

SELF 
ASWORK 
w4it 
ASWORK 
VALP 

WEAK 
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GET TYPE OF DEFINITION IN XR & 2 
1S IT A PRIORITY DEFINITION 
TRANSFER IF NO «- KEEP SEARCHING 
GET PRIORITY OF OPERATOR IN XR © 2 


AND STORE PRIORITY AS CURRENT PRIORITY 
SAVE RETURN 

FORCE HIGHER PRIORITY OPERATORS 

GET A WORD IN THE WORKING STACK 
CHECK FOR STACK QVERFLOW 

GET HEADER WORD FOR OPERATOR BLOCK 
AND STORE IN WORKING STACK 

GET POINTER YO LAST OPERATOR BLOCK 
AND STORE IN LOWER HALF OF READER 
GET RELATIVE POINTER TO THES BLOCK 
AND STORE NEW LINK TO OPERATOR BLOCK 
GET POINTER YO OPERATOR SYMBOL 

AND STORE JN WORKING STACK 

CHECK FOR STACK OVERFLOW 

GET PRIORITY OF CURRENT OPERATOR 
STORE JN WORKING STACK 

CHECK FOR STACK QVERFLOW 

STORE A ZERO IN THE WORKING STACK 
CHECK FOR STACK OVERFLOW 

GET NUMBER OF WORDS IN THIS CONTROL BLOeK 
AND STORE IN WORKING STACK 

CHECK FOR SYACK OVERFLOW 


AND EX]? 


SET CURRENT PRIORITY TO ZERO 

SAVE RETURN 

FORCE OUT ALL OPERATORS 

AND EXIY 

STORE OPERATOR SYMBOL IN CONTROL STACK 
CHECK FAR STACK OVERFLOW 

AND EX]¥ 

GET POINTER TO OPERATOR SYMBOL IN XR ~ 4 
GET UNARY QPERATOR FLAG 

AND STORE FLAG 

SAVE RETURN 

DO UNAR¥ OPERATOR 

AND EX|? 


RESEY REFERENCE FLAG 

GET POINTER TO END OF WORKING STACK 
GET POINTER TO LAST CONTROL BLOCK 
MAKE POINTER RELATIVE 

AND STORE aS POINTER TO CURRENT VaLUE 
DO WEAK COERCION ON SELECTEE 


01557 


END 


END 


01 0526-72 
2 
END OF BINARY CARD 
U14227 046203 
044250 u19639 
014231 dOQgnondD 
014232 046757 
014233 0144245 
044234 046762 
0442355 014395 
014236 090001 
014237 040639 
014240 000000 
014241 046757 
014242 044305 
014243 000003 
014244 014317 
014245 035235 
014246 777777 
014247 000000 
014250 046556 
014251 000001 
014252 014305 
0144253 000004 
014254 000004 
OF BINARY CaRQ 
014255 0090000 
044256 044316 
0144257 014316 
0142690 014251 
014261 035216 
014262 014347 
044263 012614 
014264 035216 
014265 090000 
0144266 010630 
014267 035216 
014270 014317 
014274 014273 
014272 012646 
014273 0090000 
014274 0090022 
014275 016564 
044276 vu12614 
0144277 035234 
014300 777777 
014301 000062 
014302 000002 
OF BINARY CARD 
0144303 000004 
014304 096210 
044305 014340 


17,863 


Onunu2s4 


2270 
70u0 
2220 
1020 
6009 
102Nn 
6010 
2270 
7000 
2220 
1020 
6040 
2350 
7550 
2200 
2220 
6250 
6350 
4620 
6000 
0650 
0750 


00000255 


7240 
7440 
4000 
6010 
16350 
Q750 
70y0 
06350 
2270 
7000 
1670 
2340 
6000 
7090 
6350 
7740 
0750 
7000 
2210 
1610 
2350 
9550 


000002856 


Ny 
Ou 
17 
os 
00 
038 
00 
$7 
00 
17 
HR) 
00 
0S 
00 
54 
47 
47 
00 
95 
00 
035 
Q7 


7470 41 


7400 
2330 


00 
00 


ALGIL68 


4574 
4575 
4576 
4577 
4578 
4579 
4580 
45614 
4582 
4583 
4584 
4565 
4586 
4587 
4588 Selo 
4589 
4590 
4594 
4592 SEL1 
4593 
4594 
4595 


4596 
4597 
4598 
4599 
44600 
4604 
4692 
4603 
4604 
4605 
4606 
4607 
4498 
4499 
4610 SEL2 
4614 
4642 
4413 
4614 
46415 
4616 
4417 


4618 
4619 
4620 SELE 


LDX7 
TSXO0 
LDX2 
CMPX2 
TZE 
CMPX2 
TNZ 
LDXx7 
TSX0 
|. DX2 
CMPX2 
TNZ 
LDA 
STA 
LDX0 
LDX2 
EAX3 
EAA 
SBX2 
TZE 
ADX3 
ADA 


XL 4 
STX4 
CMPXQ 
TNZ 
SBx3 
ADA 
TSXQ 
ADX3 
LDXx7 
TSX0 
SBX7 
SZN 
TZE 
YSxo 
EAA 
ARL 
ADA 
TSX0 
LDX1 
SBX41 
LDA 
ASA 


S¥X7 
TRA 
LDA 


PASS ? 


TMONE 
ASXFER 
0,7 


MESTRCT,DU 


SELN 
MSREP ,DU 
SELE 

1,7 
ASXFER 
0:7 


MESFRCT, DU 


SELE 
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GET MIDE OF SELFCTAND 

MAKE JT UNIQUE AND ABSOLUTE 

GET TYPE OF MODE IN XR - 2 

1S If A STRUCTURED MODE 
TRANSFER IF SFRUCTUREN MONE 

IS t7 A REFERENCE MODE 

TRANSFER IF NOT » ERROR 

GET DEREFERENCED MODE IN XR © 7 
MAKE [{T UNJQUE AND ABSOLUTE 

GET TYPE OF DEREFERENCED MODE IN XR » 2 
IS 17 A STRUCTURED MODE 

NO » SELECTION ERROR 


OFRSLOTROSSELC’,DU GET CONSTANT TO CONVERT CODE TO REFERENCE 


SELF 


ASSTACK,D! 


"1,7 
0,7 
OfSELCT 
SELE 
1,0U 
1; Dt 


0,3 
SELT 
SELT 
SEkdt 
TEMODE 
SELF 
CaD 
TSMODE 
9,38 
ASXFER 
TEMODE 
SELF 
SEL 2 
EREFL 
0,7 


18 
OSETC, DU 
CAD 
ABWORK 
wLat 
2,DL 

2,1 


1.l 
ASOK 
SELEM 


AND STORE IN REFERENCE FLAG 

GET POJNTER TO TAG SYMBOL IN XR = g 

GET NUMBER OF FIELDS PLUS ONE [IN XR & 2 
GET POINTER TO FIELDS IN XR « 3 

GET CODE FOR SELECTION IN AU 

DECREMENT NUMBER OF REMAINING FIELDS 
TRANSFER IF NO MORE @ ERROR 

STEP FIELD POINTER YO NEXT FIELD 

STEP FIELD NUMBER IN CODE 


GET TAG FOR FIELD IN XR w# 4 

AND STQRE FORE COMPARE 

SEE JF PROPER FIELD HAS SEEN FOUND 
TRANSFER IF NOT © KEEP iOOKING 
MAKE FIELN POINTER RELATIVE 

CHANGE O$SELCT 7O OSRSLCT IF REFERENCE SELECTION 
ADD SELECT CODE TO OUTPUT CODE 
MAKE FIELD POINTER ABSOLUTE 

GET MODE OF FIELD IN XR w= 7 

MAKE MODE UNIQUE AND ABSOLUTE 

MAKE MODE RELATIVE 

JS THIS a REFERENCE TYPE SELECTION 
TRANSFER IF NOT 

REFERENCE MODE OF FIELD 

GET MODE OF SELECTION IN ay 

PUT MODE OF FIELD IN AL 

ADD EfC CODE 

AND ADD TO OUTPUT CODE 

GET POINTER TO END OF WORKING STACK 
GET POINTER TO LAST CONTROL BLOCK 
GET NUMBER OF WORDS ADDED TO VaLuUE 
AND INCREMENT LENGTH OF VALUE 


ALSO STORE MODE OF SELECTION IN VALUE 
AND EXIT 
GET TALLY WORD FOR ERROR MESSAGE 


01557 04 05°26+72 17,863 
2 
014306 006562 7000 00 
014307 006244 7400 00 
014340 014311 O022 49 
014311 411114114105 
044312 107101114040 
044313 123105114105 
014314 103124111117 
0144315 116040040040 
0143146 Con000 on0000 
014317 000000 oo00VU0 
014320 035235 2210 54 
044321 046460 7410 00 
014322 035234 2710 00 
044323 777777 1410 t14 
014324 035234 1610 00 
044325 046446 7410 00 
014326 045072 7000 o0 
014327 035234 2210 09 
014330 777777 1610 %4 
END OF BINARY CARD 00000257 
014351 035234 1610 00 
014332 016446 7410 00 
014353 046611 6350 a9 
014334 042403 7000 Oo 
014355 016446 2210 O90 
044336 035234 94640 00 
044357 090000 6240 $1 
014349 777777 1610 $1 
014344 000004 2270 $1 
044342 010630 7000 60 
044343 000000 22350 47 
014344 0147004 4n30 93 
0144345 777777 6010 00 
044346 777777 0670 47 
044347 777777 2350 47 
014350 000004 7550 44 
0144354 0090022 7740 00 
014352 046520 0750 43 
044353 042614 7000 40 
014354 046446 2210 60 
044355 035234 9610 00 
014356 000094 2350 97 
END OF BINARY CARD 900002358 
044357 090002 0550 $1 
0143690 000000 0550 41 
014361 012530 7000 00 
014362 006210 7100 40 
044363 035234 2290 n9 
044364 035214 1600 00 
044365 035235 7400 56 
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4621 
4622 
4623 SELEM 
4624 


4625 SELT 
4626 SELF 
4627 CALL 
4628 
4629 
4630 
4631 
4632 
4635 
4634 
4635 


4636 
4637 
4638 
4839 
4840 
4844 
4642 
4643 
4644 
4645 
4446 
4647 
4548 
4449 
4850 
4651 
4652 
4658 
4654 
4655 
4656 
4657 


4658 
4659 
4660 
44661 
4662 MARK 
4663 
4664 


TSX0 
TRA 
TALL YB 
UaSC] 


ZERO 
ZERO 
LDX4 
STX4 
DX4 
SBX4 
SBX4 
STX4 
TSX0 
LDX4 
SBX4 


SBX4 
STX4 
EAA 
TSX0 
LDX2 
ADX4 
EAX4 
SBX4 
| DX7 
TSX0 
LDXx3 
CMPX3 
TNZ 
ADX? 
LDA 
STA 
ARL 
ADA 
TSX0 
,DX4 
ADX4 
DA 


ASA 
ASA 
TSX0 
TRA 
LDXx0 
SBX0 
STX0 


PAGE 111 
PASS 2 
LEXXX AND TYPE ERROR MESSAGE 
ASERRFE AND PRINT FOLLOWING SYMBOLS 
el 1741 


S,ILLEGAL SELECTION 


ASSTACK,D! 
DECLR 
ADWORK 
wlid 
ASWORK 
VALP 

STRNG 
ASWORK 
wiet 


ASWORK 
VAP 
OSMSCW 
INS 
VaLP 
ASWORK 
Ord 
shri 
iid 
ASXFER 
0,7 
MSPROC,DU 
SERROR 
mi,7 
e1,7 
1,4 

18 
OSENTER,DU 
CaD 
VALP 
AZWORK 
4,9L 


2,14 

Od 

DELW 

ASOK 
ASWORK 
TSWORK 
ASSTACK, ID 


GET MODE OF PROCEDURE 

STORE aS TARGET MODE FOR ACTUAL PARAMETERS 
GET POINTER TO END OF WORKING STACK 

GET POJATER TO LAST CONTROL BLOCK IN XR - 4 
MAKE POINTER RELATIVE 

AND STORE POINTER aS CURRENT VaLUE 

COERCE ACTVAL PARAMETERS TO FORMAL PARAMETERS 
GET POJNTER TO END OF WORKING STACK 

GET POINTEE TO LAST CONTROL BLOCK 


MAXE POINTER RELATIVE 


AND STORE JN CURRENT VALUE CONTROL BLOCK POINTER 


GET MARK SYACK COMMAND 

AND INSERT IN FRONT OF ARGUMENT CODE 

GET POINTER TO aRGUMENT COBE CONTROL BLOCK 
MAKE POINTGR ABSOLUTE 

SAVE POINTER TO VALUE CONTROL BLOCK 

GET POJNTER TO SECOND TO LAST CONTROL BLOCK 
GET MODE OF PROCEDURE IN XR - 7 

MAKE MOBE UNIQUE AND ABSOLUTE 

GET TYPE OF MODE IN XR © 3 

SEE [fF 1% [S A PROCEDURE MODE 

ERROR » PROCEDURE CALL MUST BE ON a PROCEDURE 
GET POINTER YO END OF PROCEDURE& MODE PLUS ONE 
GET MODE OF RESULT OF PROGEDURE IN a 

STORE MODE OF RESULT IN VALUE CONTROL BLOCK 
PUT RESULT MODE IN AL 

GET AN ENTER PROCEDURE CODE 

AND ADD YO OUTPUT CODE AFTER ARGUMENT Cope 
GET POINTER TO aRGUMENT CODE CONTROL BLOCK 
MAKE POTNTER ABSOLUTE 

GEF Ag IN AL 


INCREMENT LENGTH FIELD IN LAST CONTROL BLOCK 
PUT & ONE IN NUMBER OF KEYED CONTROL BLOCKS 
COMBINE LaST TWO GONTROL BLOCKS 

AND EXI? 

GET POINTER TO CURRENT END OF WORKING STACK 
MAKE {7 RELATIVE 


AND STORE MARK IN CONTROL STACK 


01557 


END 


END 


VU, US#26.72 


2 
014366 005742 
0144367 035234 
014370 005754 
014371 Un6219 
014372 2090000 
044373 646567 
014374 046465 
014375 012572 
014376 006210 
014377 100000 
014400 016572 
014401 016465 
014402 012572 
014403 096210 
014404 016606 


OF BINARY CARD 


014405 044407 
014406 0146603 
014407 490000 
014410 016465 
014411 012572 
014412 035234 
014413 090005 
044414 0090003 
014415 690001 
014416 006210 
014417 011731 
0444290 035220 
014421 000002 
014422 016469 
014423 0962109 
014424 041731 
014425 0090022 
014426 016644 
014427 012614 
014430 041734 
014454 435220 
044432 011654 


OF BINARY CARD 


014433 041731 
044434 035229 
0144435 090000 
0144436 096210 
044437 035232 
014440 090000 
014441 0095663 
014442 041731 
044443 777777 
014444 0096210 
014445 016460 


17,3068 


7470 99 
4500 56 
7170 OY 
7100 00 
6369 ou 
6350 OU 
45u0 OU 
70Q0 O00 
7400 00 
6360 OY 
6350 00 
4500 00 
7000 00 
7400 00 
6350 OU 
00000239 
7400 Q0 
6350 Ou 
6360 00 
4500 00 
7000 90 
2210 00 
1610 43 
6350 00 
7550 41 
7400 00 
2210 00 
0610 00 
2350 £1 
7550 00 
7400 00 
2350 a0 
7740 00 
9750 3 
7000 09 
2240 00 
06140 00 
7000 a0 
00900240 
2210 Oo 
0610 00 
7200 41 
6010 00 
2210 03 
6350 00 
7000 00 
2350 00 
7550 $1 
7400 90 
2350 Ou 


ALGOL68 


4665 
4666 
4667 
4668 
4669 
4670 
4674 
4672 
4673 
4674 
4675 
4676 
4677 
4678 
4679 


4660 
4681 
4682 
4683 
4684 
4685 
4686 
4687 
4688 
4689 
4690 
4694 
4692 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4704 


4702 
4703 
4704 
4705 
4796 
4707 
4708 
4709 
4710 
4711 
4742 


ESKIP 


ENTL 


EFALS 


ETRYE 
ETRy 


SDELR 


OJON 


OIDN2 


OENTR 


XED 
STZ 
XED 
TRA 
EAQ 
EAA 
SYZ 
TSX0 
TRA 
EAQ 
EAA 
STZ 
TSXO 
TRA 
EAA 


TRA 
EAA 
EAQ 
STZ 
TSXO 
DX4 
SBX1 
EAA 
STA 
TRA 
LDX4 
ADX4 
LDA 
STA 
TRA 
LDA 
ARL 
ADA 
TSX0 
LDX4 
ADX4 
TSX0 


WwOX4 
ADX¢ 
L XL 0 
TNZ 
LDXL 
EAA 
TSXo 
LDA 
STA 
TRA 
,,DA 


PASS 2 


TSSOVF 


ABWORK, ID 


TSWOVE 
ASOK 
WESSKIP 
OSSKIP 
CL 


ASOK 
OSFALSE 


ETR¢ 
OSTRUE 
WS VALUE 
a 

WAD 
ASWORK 
5,Du 
MSBOOL 
1.1 
ASOK 
LASTS 
TSDEF 
204 
DECLR 
ASQK 
LASts 


18 
OSJDNTY, DU 


Cab 
LASTS 
YSDEF 
LK 


LASTS 
TSDEF 


Od 
ASOK 


TSSNEF, BU 


ded 
TSALOC 
LASTS 
wield 
ASOK 
DECLR 
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CHECK FOR STACK OVERFLOW 

INSERT SPACE FOR HEADER WORD IN WORKING STACK 
CHECK FOR STACK OVERFLOW 

AND EXIT 

GET HEADER FOR SKIP CONTROL BLOCK 

GET CODE FOR SKIP 

ZERO OUT LL, FOR SKIP 

ENTER CODE AND CONTROL BLOCK FOR SKIP 
AND EXIT 

GET HEADER FOR NIL CONTROL BLOCK 

GET CODE FOR NIL 

ZERO OUT LL FOR NIL 

ENTER CODE AND CONTROL ALOCK FOR NIL 
AND EXIT 

GET FALSE CODE WORD 


AND CONTINUE 

GET TRUE CODE WorRD 

GET HEADER FOR CONTROL BLOCK IN Q 

ZERO QUT LiL FOR BOOLEAN DENCTATION 

ENTER CODE aND CONTROL BLOCK FOR ROOLEAN VALUE 
GET POINTER TO END OF WORKING STACK 

GET POJNTER TO LAST CONTROL BLOCK 

GET MODE OF BOOLEAN DENOTATION 

AND SORE IN CONTROL RLOCK 

AND EXIT 

GET POINTER TO DEFINITION OF LAST pECLARER 
MAKE {Tf ABSOLUTE 

GET DECLARER IN a REGISTER 

AND STORE aS CURRENT DECLARER 

AND EX]T 

GET POINTER YO LAST IDENTIFIER DEFINITION 
MOVE 70 AL 

ADD IDENTITY DECLARATION CODE 

AND ADD TO OUTPUT CODE 

GET POINTER TO LAST IDENTIFIER 

MAKE NEFINITION POINTER ABSOLUTE 

LINK DEFINITION TO CHAIN FOR CURRENT LL 


GET POINTER TO LAST IDENTIFIER 
MAKE DEFINITION POINTER ABSOLUTE 
GET LEVEL OF IDENTIFIER IN XR » O 
TRANSFER IF NOT ZERO 

GET POINTER TO SYMDEF TABLE CONTROL WORD 
PREPARE YO ALLOCATE ONE WORD 
ALLOCATE ONE WORD IN SYMDEF TABLE 
GET POINTER TO DEFINITION IN ay 
AND STORE JN SYMDEF TABLE 

AND EX]? 

GET MODE OF CURRENT DECLARER 


01557 


END 


END 


61 05°26«72 
2 

014446 000022 
014447 016617 
014450 012614 
0144514 096210 
014452 046469 
014453 u90022 
014454 046633 
014455 012614 
014456 0096210 
014457 041731 
0144469 090022 
OF BINARY CARD 
044461 016622 
014462 012614 
014463 096210 
044464 006462 
014465 0416465 
014466 043573 
0144467 041734 
014470 090022 
044474 046625 
044472 400000 
014473 012572 
014474 035234 
014475 777777 
014476 041734 
0144477 035220 
014500 000002 
014501 000001 
044502 006210 
014503 000009 
014504 035222 
0144505 000091 
014506 000022 
OF BINARY CARD 
014507 016630 
0145190 490000 
014511 016465 
014512 012572 
0145143 000001 
014514 035222 
014515 090000 
014516 777777 
014517 035279 
014520 000001 
014521 006416 
044522 777777 
014523 635234 
014524 777777 
014525 00N00N2 


17,863 


7710 
Q750 
7000 
7100 
2350 
7740 
9750 
7000 
7400 
2350 
7740 


ongoo241 


0750 
7000 
7400 
7600 
7550 
2590 

350 
7740 
0790 
6380 
7000 
2240 
1610 

220 
0620 
2550 
7650 
74Q0 
6210 
0610 
2850 
7710 


g0000242 


0750 
6360 
4590 
7000 
6210 
0610 
2220 
6040 
0620 
2250 
inso 
6010 
2210 
1619 
2350 


00 
nN) 
00 
00 
00 
00 
05 
00 
00 
00 
00 


OS 
OV 
00 
00 
00 
00 
00 
00 
05 
00 
00 
00 
41 
00 
00 


03 


ALGOL68 


4713 
4714 
4715 
4716 
4747 
4718 
4719 
4720 
4721 
4722 
4723 


4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4744 
4742 
4743 
4744 
4745 


4746 
4747 
4748 
4749 
4750 
47514 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4760 


DASGN 


OF ORM 


WIDEN 


WUEN 


ARL 
ADA 
TSxo0 
TRA 
DA 
ARL 
ADA 
TSX0 
TRA 
LDA 
ARI, 


ADA 
TSX0 
TRA 
TSX0 
STA 
ORSA 
LDA 
ARL 
ADA 
EAQ 
TSX0 
DX4 
SBX4 
LDX2 
ADX2 
LDA 
STA 
TRA 
BAX 
ADX4 
LDA 
ARL 


ADA 
EaQ 
STZ 
TSXo 
EAX4 
ADX4. 
LDX2 
TM] 
ADX2 
LDXx3 


CMPX3” 


TNZ 
LDX4 
SBX4 
LDA 


PASS 2 


18 
OfSIJNNTE, DU 
CaD 

ASOK 
DECLR 

18 
OFASGN, AY 
CAD 

ASOK 
LASTS 

18 


OSF ORMP, DU 
CAD 
ASOK 
ASGLIi, 

he L 

R he by 
LASTS 
48 
OSJDENT,DU 
WSEVALUE 
WAD 
ASWORK 
Lat 
WASTS 
TSDEF 
ase 

4st 
ASQOK 
0.7 
TSSTAaB 
ASDF. 
418 


OSDENOT, DU 
WSVALUE 

Lh 

WaD 

ASDF ,7 
TSSTAB 

0,1 

SERROR 
TSDEF 

1,2 
DSDENOT,DU 
$ERROR 
ASWORK 
“i9t 

2:2 
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MOVE TO AL 

ADD DO IDENTITY DECLARATION CODE 
AND ADD TO OUTPUT CODE 

AND EXIT 

GET MODE OF CURRENT DECLARER 
MOVE TO AL 

ADD ASSIGN OPERATOR CODE 

AND ADD 70 OUTPUT CODE 

AND EXIT 

GET LAST SYMBOL OR FORMAL PARAMETER 
GET DEF TABLE POINTER IN AL 


GET FORMAL PARAMETER CODE 

ADD TO OUTPUT CODE 

AND EX]? 

GET LL OF IDENTIFIER 

SAVE FOR VALUE CONTROL BLOCK INSERTION ROUTINE 
OR INTO RANGE LL WORD 

GET POINTER TO MEFINITION OF IDENTIFIER 
PUT [? EN AL 

ADD IDENTIFIER CODE 

GET HEADER FOR CONTROL BLOCK IN Q 

ADD CONTROL BLOCK AND OUTPUT CODE 

GET PO[NTER TO END OF WORKING STACK 

GET POINTER TO LAST CONTROL BLOCK 

GET POINTER TO !DENTIFIER DEFINITION 

MAKE IT ABSOLUTE 

GET DECLARER FOR {pENTIFIER 

AND STORE IN CONTROL BLOCK FOR IDENTIFIER 
AND EX]¥ 

GET POINTER TO SY¥AB IN XR w 4 

MAKE POINTER ABSOLUTE 

GET POIATER TO DENOTATION DEFINITION IN AU 
PUT JT EN AL 


GET DENOTATION CODE 

GET HEADER FOR CONTROL BLOCK 

ZERO OUT LL FOR DENOTATION 

AND ADD CONTROL BLOCK AND OUTPUT cone 

GET POINTER TO DEFINITION CHAIN IN XR - 4 
MAKE 17 A@SOLUTE 

GET POINTER TO NEFINITION IN XR w 2 

NO DEFINITION © COMPILER ERROR 

MAKE IT ABSOLUTE 

GET TYPE OF DEFINITION IN XR - 3 

IS IT A DENOTATION 

NO » COMPILER ERROR 

GET POINTER TO END OF WORKING STACK IN XR = 1 
GET POINTER TO LAST CONTROL BLOCK 

GET DECLARER FOR DENOTATION 
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2 PASS 92 

014526 U0N001 7559 11 4761 STA 4 STORE IN DENOTATION CONTROL BLOCK 
014527 096210 /100 OV 4762 TRA AtOK AND EXIT 
014530 614612 7400 Oo 4763 PCDR STXO PCDRX SAVE RETURN 
014531 014616 4479 Oy 4764 SXL7 PCUL4 STORE PROCEDURE MODE IN CODE SEQUENCE 
014532 u,0630 7oyo ng 4765 TSX0 AXFER MAKE MODE POINTER aBSOLUTE 
014533 777777 06/0 17 4766 ADX7 "407 GET POINTER TO ENN OF PROCEDURE MODE 
044554 777777 2270 47 4767 LDX7 7197 GET MODE OF RFSULT OF PROCEDURE 

END OF BINARY CARD 00000243 
014535 014613 4479 Og 4768 SXL7 PCDL1 AND STORE IN CONDE SEQUENCE 
014536 016464 2359 Og 4769 LDA GLBL GET aA NEW LABEL IN AL 
0145357 016464 0540 O9 4770 aos GLBL STEP LABEL GENERATOR TO NEXT LABEL 
614540 016507 0750 03 4771 ADA O$SJUMP, DU ADD UNCONDITIONAL YUMP CODE 
014544 612403 7000 O99 4772 TSX0 JNS AND JNSERT IN FRONT OF FROCEDURED VALUE 
044542 0646464 2350 oY 4773 LDA GLBL GET A NEW LABEL IN AL 
0144543 046464 9540 OY 4774 aos GLBL STEP LABEL GENERATOR TO NEXT LABEL 
014544 016660 U750 05 4775 ADA OSEPDN, DU ADD ENTER PROCEDURE CODE 
014545 012403 7000 Ou 4776 TSXO INS AND INSERT IN FRONT OF PROCEDURED VALUE 
014546 016446 2210 OY 4777 LOX4 VALP GET POINTER TO CURRENT CONTROL RLOCK 
644547 035234 9610 00 4778 ADX1 ASWORK MAKE POINTER ABSOLUTE 
014550 011357 2220 Ov 4779 LOx2 RNGE GET POINTER TO CURRENT RANGE 
014551 014614 4420 OU 4780 SXL2 PCDL2 STORE RANGE NUMRER IN CCDE SEQUENCE 
014592 014562 6000 00 4784 TZE PCDR2 TRANSFER IF GLOBAL 
0144553 000003 2350 £1 4782 LDA Sil GET LL. WORD FOR PROCEDURED VaLUE 
014554 014562 6040 00 4783 PCBR« TMI PCDR2 TRANSFER IF SCOPE OF VALUE IS CURRENT RANGE 
044555 035221 0620 O09 4784 ADX2 TEPROG MAKE RANGE POINTER ABSOLUTE 
014556 000002 2220 12 4785 LDX2 242 GET POINTER FOR SURROUNDING RANGE 
044557 014562 6000 00 4786 YZE PCDR2 TRANSFER {Ff NO SURROUNDING RANGE 
0144560 O000%1 7350 Oy 4787 ALS 4 CHECK IF SCOPE 1S NEXT OUTER RANGE 
044561 0144554 7100 O09 4788 TRA PCDRY TRANSFER ¥Q SCOPE CHECK 
0144562 Q900N9 6350 42 4789 PCDR2 EAA 0:2 GET RANGE POINTER IN AU 

END OF BINARY CARD 00000244 
014563 000022 7710 O90 4790 ARL 18 MOVE TO AL 
014564 0466414 9750 03 4794 ADA OSLL » DY ADD LL CODE 
014565 012403 7000 O90 4792 TSX9 INS AND JNSERT IN FRONT OF PROCEDURED VALUE 
014566 046464 7200 50 4793 LXLO GLBL GET CURRENT VALUE OF LAREL GENERATOR 
014567 000002 1600 O08 4794 SBX0 2,Du GET VALVE OF FIRST GENERATED LABEL 
014570 014615 4400 00 4795 SXLO PCDL3 AND STORE IN CODE SEQUENCE 
014571 0000041 90600 O58 4796 ADXO 1,Du GET VALVE QF SECOND GENERATED LABEL 
014572 014617 4400 00 4797 SX40 PCDLS5 AND STORE IN CODE SEQUENCE 
014573 014617 2350 00 4798 LDA PCDLS GET NEXY cCQDE WORD 
014574 012375 7n00 00 4799 TSX0 ADD AND ADD TO CODE SEQUENCE 
014575 014616 2350 00 4800 LDA PCDL4 GET NEX¥? GQDE WORD 
014576 012375 7o00 60 4eot TSX0 ADD AND AND TO CODE SEQUENCE 
014577 0144615 2350 O9 4802 LDA PCDLS GET NEX¥® CODE WORD 
014600 012375 7n00 OO 4803 7SXo° =adD AND ADD TO CODE SEQUENCE 
014601 014614 2350 00 4004 LDA PCDL2 GET NEX¥ CQDE WORD 
014602 012375 7Vnu0 Bo 4805 TSXO ADD AND ADD 70 CODE SEQUENCE 
014603 044613 2350 00 4806 LDA PCDL4 GET NEX¥ GCQDE WORN 
014604 012375 7000 OD 4807 7SX0 ADD AND AND TO CODE SEQUENCE 


014605 016446 2219 00 4608 LDX4 VALP GET POINTER TO ECURRENT CONTROL BLOCK 


01557 Uy 05"26872 
2 
014606 035234 
014607 000003 
014610 0090010 
END OF BINARY CARD 
014611 000002 
014612 0090000 
014613 016663 
014614 0146644 
014615 016504 
014616 016666 
014617 016671 
014620 016475 
014621 0090000 
014622 035214 
044623 O00N002 
014624 0416474 
014625 044621 
0144626 000004 
044627 045074 
014650 000000 
014634 046475 
014652 0090001 
0144633 015067 
014634 035222 
014635 090004 
014636 090003 
END OF BINARY CARD 
014637 041357 
014640 006460 
014641 096437 
014642 0415040 
0144643 000004 
014644 006413 
014645 015040 
044646 Onn002 
014647 040630 
014650 777777 
014651 015074 
014652 044644 
014653 090000 
014654 0470014 
014655 777777 
014656 015074 
014657 014662 
014660 000001 
014661 014664 
014662 090001 
014663 046453 
014664 Od90002 


END OF BINARY CARD 
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0610 OO 
3350 Q3 
0750 97 
000090245 
0550 $1 
7400 00 
000000 
000000 
000000 
g00000 
000000 
2240 00 
6000 00 
0610 00 
2220 41 
1020 00 
6040 54 
2350 03 
7550 00 
7220 $1 
7420 00 
2240 41 
7410 09 
0640 00 
0610 93 
2260 93 
00000246 
2200 00 
7400 00 
7900 90 
7400 00 
2220 $4 
4020 03 
6040 00 
2270 $4 
7000 00 
2250 47 
4030 00 
6010 00 
2230 47 
1030 03 
60140 00 
7200 80 
6050 09 
14670 03 
7400 0 
2250 47 
7430 00 
22350 47 
00000247 
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4809 
4810 
4811 


4812 
4643 
4814 
4845 
4816 
4847 
4818 
4819 
4820 
4824 
4822 
4823 
4824 
4825 
4826 
4827 
4626 
4829 
4830 
4834 
4832 
4833 


4834 
4835 
4836 
4837 
4838 
4839 
4840 
4843 
4842 
4848 
444 
4845 
4846 
4847 
4848 
4849 
4850 
4954 
4852 
4853 
4854 
4855 


PCORX 
PCDL4 
PCDL2 
PCBL3 
PCDL4 
RCDL5 
coP 
COPX 


COPM 


COP, 


COPS 
CUP6 


ADX4 
LCA 
ADA 


ASA 
TRA 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
LOxd 
YZE 
ADX4 
LOXx2 
CMPX2 
TM] 
LDA 
STA 
LXL2 
STX2 
LOX4 
STX4 
ADX4 
ADX4 
LDX6 


LDXO 
STX0 
TSX0 
TRA 
LDx2 
CMPX2 
TNZ 
0X7 
TSX0 
LDx3 
CMPX3 
TNZ 
LOxs 
CMPXS 
nz 
LXLO 
TPL 
SBX7 
TRA 
LDx3 
STX3 
LDX3 


PASS 2 


ASWORK 
3,Du 
8, DL 


24 


ae 


QOSRETN,a« 


O$LLE.0 
OSLBL,#* 


OSEPDV,#* 
OSEPDE,a« 


OPT 


DSOP,DU 
COPE 
204 
ASXFER 
4,7 
QPF 
COP, 
0,7 


MSPROC,DU 


SERROR 
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MAKE POINTER ABSOLUTE 
GET A 3 IN AU 
AND ADD 8 TO LENGTH 


UPDATE LOC/LEN WORD 
AND RETURN 


GET RELATIVE LINK TO OPERATOR 

NO OPERATOR SO DONE 

MAKE OPERATOR POINTER ABSOLUTE 

GET PRIORITY OF OPERATOR IN XR & 2 
COMPARE WITM CURRENT OPERATOR RRIORITY 
IF LESS THEN EXIT 

GET UNARY/BINARY FLAG IN A 

AND STORE IN FLAG 

GET LINK YO NEXT OPERATOR 

AND STORE LINK TO NEXT OPERATOR 

GET POJRTER TO GRPERATOR DEFINITION CHAIN 
SAVE POfNTER FOR POSSIBLE ERROR MESSAGE 
MAKE POINTER ABSOLUTE 

AND MAKE {T POINT YO DEFINITION CHAIN 
SET COERCION STRENGYH TO FIRM 


GET CURRENT RANGE NUMBER 

STORE FOR TABLE LOOK UP ROUTING 

LOOK UP OPERATOR IN SYMBOL TABLE 
TRANSFER TQ ERROR » CANNOY IDENTIFY OPERATOR 
GET TYP8 OF SYMBOL DEFINITION 

1S IT AN OPERATOR DEFINITEON 

NO = CANNOT [DENTIFY OPERATOR 

GET MODE OF OPERATOR 

MAKE MOBE POJNTER UNIQUE AND aBSOLUTE 
GET NUMBER OF PARAMETERS PLUS TWO IN XR © 3 
ARE THERE TwE RIGHT NUMBER OF PARAMETERS 
NO » KEBP LOOKING 

GET TYPE OF MODE 

IS 17 aA PROCEDURE 

ERROR » COMPILER gGRROR 

GET UNARY/BINARY FLAG 

TRANSFER IF BINARY OPERATOR 

ADJUST MODE TABLE POINTER 

TRANSFER FQR UNARY OPERATOR 

GET MODE OF LEFT OPERAND 

AND SAVE 

GET MODE OF RIGHY OPERAND 


04557 


END 


END 
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2 
014665 616454 
014666 up00n3 
014667 046455 
014670 un0002 
614671 045070 
014672 035220 
014673 016456 
014674 035234 
044675 777777 
044676 035234 
044677 016446 
014700 016454 
0144701 0162N2 
014702 015253 
014703 015020 
014704 01450709 
014705 014710 
014706 016176 
014707 0150209 
014710 015071 
014741 014724 
014712 016204 
OF BINARY CARD 
014743 015025 
044714 035234 
044715 777777 
014716 046455 
0144717 000004 
014720 014756 
044721 016446 
044722 035214 
014723 Oof000 
044724 004000 
014725 777777 
044726 777777 
044727 035234 
014730 016446 
014734 046453 
014732 016202 
014733 045253 
014734 045016 
014735 015070 
014736 014744 
014737 016476 
014740 015016 
OF BINARY CARD 
014741 016204 
014742 015025 
044743 016204 
0144744 015025 


17,863 


7450 Ou 
2250 17 
4450 OU 
7200 41 
7400 OY 
1610 00 
7440 09 
2210 00 
1610 41 
1610 OV 
7410 OO 
2210 00 
7410 00 
7000 OU 
71400 00 
2340 00 
6010 00 
2340 00 
6000 0 
7200 00 
6050 00 
7000 90 
00000248 
7000 O00 
2210 00 
1610 %1 
7220 00 
7420 11 
7400 00 
2210 00 
9640 90 
2220 41 
1020 03 
6040 00 
1610 $1 
1610 00 
7410 00 
2210 00 
7410 09 
7000 00 
7400 00 
2340 Ou 
6010 00 
2340 00 
6000 90 
00000249 
7000 00 
7000 90 
7000 a0 
7000 00 
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4856 
4857 
485A 
4859 
4860 
4864 
4862 
4863 
4864 
4865 
4866 
4867 
4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 


4878 
4879 
4880 
4884 
4882 
4883 
4884 
4885 
4886 
4887 
4888 
4889 
4890 
4891 
4892 
4893 
4894 
4295 
4896 
4897 
4898 
4899 


4900 
4901 
4902 
4903 


COP 64 


CUP7 


COP74 


STX3 
LDXS 
SXL3 
LXLO 
STX0 
SBX1 
STX4 
LOXL 
SBX1 
SBX1 
STX1 
LDX4 
STX4 
TSXO 
TRA 

SZN 

TNZ 

SZN 

TZE 

X10 
TPL 

TSXO0 


TSXO 
4 DX4 
SBX1 
LXL2 
STX2 
TRA 
LDX4 
ADX4 
.DX2 
CMPX2 
TNZ 
SBX41 
SBX4 
STX4 
,DX1 
STX4 
TSXo0 
TRA 
SZN 
TNZ 
SZN 
TZE 


TSX0 
TSXxo 
TSX0 
TSXo0 


PASS 2 


MODE2 
3,7 
MODES 
2ai 
corr 
TSDEF 
OPDEF 
ASWORK 
wLet 
ASWORK 
VALP 
MODE2 
BMODE 
C 

COP4 
coPpT 
COP61 
CF 
COP4 
QPF 
COP? 
pc 


. 


CFS 
ASWORK 
7104 
MODES 
134 
COPS 
VALP 
TSWORK 
Ort 
WSOP, DU 
SERROR 
"Let 
ASWORK 
ValLP 
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AND SAVE 

GET MODE OF RESULT 

AND SAVE 

GET MACRO FLAG IN xR & 0 

AND STORE 

MAKE DEFINITION POINTER RELATIVE 

AND SAVE 

GET POINTER TO END OF WORKING STACK 

GET POINTER TO LAST ENTRY IN WORKING STack 
MAKE POINTER RELATIVE 

AND INIVIALIZE POINTER TO CURRENT VaLUE 
GET MODE OF RIGHT OPERAND 

MAKE IT TARGET MODE 

ATTEMPT COERCION OF RHS 

TRANSFER {tf UNSUCCESSFUL 

CHECK MACRO FLAG 

TRANSFER IF OPERATOR IS DEFINED BY MACRO 
SEE JF STRONG COERCIONS WERE USED 
TRANSFER {Ff STRONG » ILLEGAL FOR OPERATORS 
GET UNARY/SBINARY FLAG 

TRANSFER IF BINARY OPERATOR 

CONTINUE COERCION OF RWS TO COMPLETION 


FORCE QPERAND To STACK IF USER OPERATOR 
GET POINTER TO END OF WORKING STACK 

GET POJNTER TO LASY CONTROL BLOCK 

GET MODE OF RESULT OF OPERATOR 

AND STORE aS MODE OF VALUE 

AND CONTINUE 

GET CURRENT VALUE POINTER 

MAKE POINTER ABSOLUTE 

GET TYP OF CONTROL BLOCK IN XR & 2 

SEE IF $7 1S AN OPERATOR CONTROL BLOCK 
JF NOT © COMPILER ERROR 

STEP YO PRECEEDING CONTROL BLOEK 

MAKE CONTROL BLOCK POINTER RELATIVE 

AND SYORE aS POYNTER YO CURRENY VaLUE 
GET MODE OF LHS 

MAKE !7 TARGEY MODE 

ATTEMPY COERCION OF LHS 

TRANSFER tf UNSUCCESSFUL 

CHECK MACRQ FLAG 

TRANSFER {tf OPERATOR IS DEFINED BY MACRO 
SEE JF STRONG COERCIONS WERE USED 
TRANSFER If STRONG » ILLEGAL FOR OPERATORS 


DO COEREION OF LHS 
FORCE OPERAND TO STACK IF USER OPERATOR 
DO COEREION OF RHS 
FORCE OPERAND TO STACK IF USER OPERATOR 


01557 


END 


END 


U4 05-26-72 
2 

0147495 035234 
014746 777777 
014747 up0002 
014750 Go90000 
014754 016455 
014752 o0n0n1 
0144753 012539 
014754 035234 
0144755 777777 
014756 006462 
014757 o900n3 
014760 013573 
014761 035234 
014762 016446 
014763 015070 
014764 044775 
014765 016456 
014766 00900022 
OF BINARY CARD 
014767 046501 
014770 012614 
014771 035234 
044772 777777 
0144773 090002 
014774 015043 
044775 016456 
014776 000022 
014777 016476 
015000 012403 
015001 035234 
015002 777777 
045003 777776 
0145004 0090002 
045005 0416455 
015006 0416520 
045007 042614 
015010 016456 
015011 035229 
0145012 011651 
015013 015071 
015014 014620 
OF BINARY CARD 
045015 044621 
045016 035235 
015017 015016 
015020 035235 
0145021 015020 
015022 016456 
045023 0635229 
615024 014641 
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2210 
1610 
2220 
4420 
7220 
7420 
7000 
2210 
1610 
7000 
2550 
2590 
1610 
7410 
2340 
6000 
2350 
7710 


00000250 


0750 
7000 
2210 
1610 
0540 
7190 
2320 
7740 
0750 
70Q0 
2240 
1610 
$350 
0590 
2350 
Q750 
7nQ0 
2210 
0610 
7000 
7200 
6090 


o000u25i 


7100 
2340 
6010 
2340 
6010 
2210 
0610 
7100 


00 


RS) 
g0 
00 
£1 
$1 
60 
00 
00 
0S 
00 
00 
41 
07 
11 
00 
05 


51 
34 
00 
54 
00 
00 
00 
Ou 
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4904 
4905 
4906 
4907 
4908 
4909 
4910 
4911 
4912 
4943 
4914 
4915 
4916 
4917 
4918 
4949 
4920 
4921 


4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4934 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4944 
4942 
4943 


4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 


COP8 


CUP9 


CQP10 


CORSZ 
COP4 


COP44 


DX1L 
SBX14 
|, DX2 
$XL2 
LXL2 
STX2 
TSXo0 
LDX1 
SBX4 
TSXO 
ORSA 
ORSA 
SBX4 
STX4 
SZN 

TZE 

LDA 

ARL 


ADA 
TSX0 
LDX4 
SB8X4 
aos 
TRA 
LDA 
ARL 
ADA 
TSxo 
LOX4 
SBX4 
LCA 
ASA 
WDA 
ADA 
TSXO0 
L.DX4 
ADX4 
TSX0 
LXL0 
TPL 


TRA 
SZN 
TNZ 
SZN 
INZ 
LOX1 
ADX4 
YRA 


PASS 2 


ABWORK 
Let 


DELW 
ASWORK 
wat 
ASGLL 
Sod 
RLL 
ASWORK 
VALP 
CoOPT 
CorP9 
OPDEF 
18 


OSQPE,DU 
CaD 
ASWORK 
454 
2a4 
COP19 
OPDEF 
18 
OSOP,DU 
INS 
ASWORK 
"Let 
7200 
2ak 
MODES 
QOSENTER,DU 
CaD 
OPDEF 
TSDEF 
LK 

OPF 

Cor 


COPx,! 
ASSTACKsDI 
COPs 
ASSTACK,D! 
CORP4 

OPDEF 
TSDEF 

COP, 


PAGE 117 


GET POINTER TO END OF WORKING STACK 

MAKE XR » 9 POINT TO LAST ELEMENT IN STACK 

GET A 2 aS NUMBER OF ELFMENTS BELOW THIS ONE 
STORE IN COUNT FJELT 

GET MODE OF VALUE 

STORE MODE OF FORMULA IN VALUE CONTROL BLOCK 
COMBINE OPERATOR AND OPERANDS TO ONE VALUE 

GET POINTER TO END OF WORKING STACK 

GET POJNTER TO NEW COMBINED VALUE CONTROL ELEMENT 
GET LL WORD FOR IDENTIFIED OPERATOR 


AND OR IT INTO COMBINED VALUE 


OR INTO RANGE LL WORD 

MAKE VALUE CONTROL BLOCK POINTER RELATIVE 
AND STORE POINTER TO CURRENT VaLVE 

CHECK MACRO FLAG 

TRANSPER IF USER DEFINED OPERATOR 

GET POINTER TO OPERATOR DEFINITION 

MOVE IT TO AL 


ADD MACRO QPERATOR CODE 

AND ADD aY END OF OUTPUT CODE 

GET POINTER TO END OF WORKING STACK 

GET POINTER TO LAST CONTROL BLOCK IN WORK 
MAKE LOC/LEN WORD INCLUDE ADDED CODE 
AND CONFINWE 

GET POJNTER TO OPERATOR DEFINITION 

MOVE TO AL 

AD OPERATOR OP CODE 

AND JNSBRY CODE IN FRONT OF VALUE 

GET POJNTER TO END OF WORKING STACK 

GET POINTER TO FINAL VALUE 

GET #4 IN AU AND 2 IN AL 

MAKE LOG AND LEN REFER TO NEW LONGER VALUE 
GET POINTER TO RESULT MODE 

ADD ENTER OP CONE 

AND ADD AT END OF OUTPUT CODE 

GET POINTER TO IDENTIFIED OPERATOR 

MAKE POYNTER ABSOLUTE 

LINK BEFINITION TO CHAIN FOR CURRENT LL 
GET UNARY/BINARY FLAG 

LOOP {F BINARY OPERATOR 


EX]T JF UNARY OPERATOR 

DELETE A WORD FROM THE CONTROL STack 
TRANSFER IF NOT FINISHED 

DELETE A WORD FROM THE CONTROL STack 
TRANSFER IF NOT FINISHED 

GET POINTER TO CURRENT OPERATOR DEFINITION 
MAKE IT ABSOLUTE 

AND TRY TO FIND ANOTHER DEFINITION 
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2 PASS 2 
015025 045070 2340 OY 4952 CFS SZN CoPrT SEE JF OPERATOR IS DEFINED BY A MACRO 
015026 090000 6010 iy 4953 TNZ 0.0 RETURN IF SO 
015027 015035 7400 00 4954 STX0 CFSxX SAVE RETURN 
015030 017034 6350 OV 4955 EAA OSFS GET OSFS COMMAND 
015031 0142375 7eU0 Oy 4956 TSX0 ADD AND ADD FORCE To STACK COMMAND AFTER ONPERAND 
0145032 016446 2210 00 4957 LDX4 VALP GET POJNTER TO VALUE CONTROL BLOCK 
015033 035234 0610 Ov 4958 ADX4 ASWORK MAKE POINTER ABSOLUTE 
015034 O0000N2 0540 41 4959 AOS 201 MAKE VALUE INCLUDE FORCF TO STACK COMMAND 
015035 d00000 7100 00 4960 CFSX TRA oe AND RETURN 
015036 045056 2350 ou 4964 CUPEP LDA COPPM GET TALLY WORD FOR ERROR MESSAGE 
0145037 015044 7400 009 4962 TRA COPE, . AND PRINY MESSAGE 
015040 0145047 2350 oY 4963 CUPE LDA COPEM GET TALLY WORD FOR ERROR MESSAGE 
0450414 006562 7000 00 4964 CUPE1 TSXO LEXXX PRINT ERROR MESSAGE 
015042 0415067 2210 90 4965 LDX4¢ COPET GET POINTER TO SYMBOL TABLE ENTRY 
ENR OF BINARY CARD 00000252 
015043 035222 06140 09 4966 ADX4 TSSTAB MAKE IT a~BSOLUTE 
015044 090000 2350 11 4967 LDA ASSC,t GET TALLY WORD IN «4 REGISTER 
015045 096554 70900 Oo 4968 TSX0 1$XxS PRINT BaD OPERATOR 
015046 006244 74100 O60 4969 TRA ASERRF AND PRINT QUT FOLLOWING SYmBOLS 
0145047 045050 0081 40 4970 COPEM YALLYB #61,52404 
015050 103101116116 49714 UaSC] 6,CANNOY IDENTIFY OPERATOR 


015051 117124040411 

015052 104105116124 

045053 1111061519040 

015054 4117120195122 

015055 401124117122 

015056 045057 0041 40 4972 COPPM TALLYB #e4, 3@e¢ 
015097 105191116116 4978 VASCT 8, CANNOY FIND PRIORITY OF OPERATOR 
015060 117124040106 . 
015064 111116104040 

015062 120422111117 

0145063 422111124131 

015064 040117106040 

015065 117420105422 

045066 1901124117122 


015067 090000 000000 4974 COPET ZERO 
015070 000000 000000 4975 COPT ZERO 

END OF BINARY CARD 00000253 
015071 090000 900008 4976 OPF ZERO 
015072 015100 7490 00 4977 STRNG S§TXO STRNX SAVE RETURN 
015073 036469 2270 00 4978 LDX7 DECLR GET TARGET MODE 
015074 016202 7470 00 4979 STX?7 BMONE AND STORE FOR COERCION ROUTINES 
015075 015253 7000 00 4980 TSX0 C COERCE VALWE TO TARGET MONE 
015076 777777 7400 00 4984 TRA SERROR COERCION FAILED © ERROR 
015077 016204 7000 00 4982 TSX0 Dc DO INDICATED COERGJONS 
015100 090000 7100 90 4983 STRNX fRA en AND RETURN 
015101 090003 22350 03 4984 FIRM |DXs 3,D0u INDICATE FIRM COERCION 
0145102 015106 7400 90 4965 TRA BLC GO DQ COERCION 
015103 000002 2250 03 4986 WEAK {LDX3 2,Du INDICATE WEAK COERCION 


015104 015106 7400 90 4987 TRA BLC GO DO COERCION 


01557 


END 


END 


2 
015105 ogn0ny 
015106 015113 
045107 015114 
015410 015253 
015411 777777 
015112 0162Nn4 
015113 090000 
015114 015247 
015115 016446 
015116 035234 
OF BINARY CARQ 
015417 016202 
015120 015250 
015121 0090000 
015122 000000 
015123 040000 
015124 015244 
015125 020000 
015126 015433 
015127 0090000 
015430 0415134 
015151 0090000 
015152 015244 
015133 310000 
045434 045241 
015135 000004 
015136 090031 
0145137 015241 
015140 015254 
015441 0090000 
015142 090000 
015143 010630 
045144 777777 
OF BINARY CARD 
045145 000002 
02451496 0145173 
015147 090000 
015150 047001 
015151 015154 
015452 000004 
0154153 015143 
015154 016762 
045155 015173 
015156 090000 
015157 090000 
015160 000001 
015161 015251 
045462 019639 
045163 777777 
015164 000002 


17,863 


2250 
74U0 
70N0 
7000 
7400 
7000 
7400 
7400 
2210 
0610 


00000254 


4500 
4500 
2240 
2200 
3000 
6040 
3000 
6000 
7200 
7400 
0640 
7400 
3000 
6040 
2270 
4070 
6000 
4500 
2250 
2260 
7000 
2200 


eae 


4000 
6040 
2200 
1000 
6010 
2270 
7190 
1000 
6040 
6250 
6260 
2270 
054n 
7n00 
2200 
1000 


ALGOL68 


4988 
4989 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
4997 


4998 
4999 
5000 
5004 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
5010 
5014 
5012 
5013 
50144 
5045 
5016 
5047 
5018 
5019 


5020 
502% 
5022 
5025 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5934 
5032 
5033 
5034 
5035 


SOFT 
BLC 


BLEX 
BB 


Bet 


BBQ 


Bus 


Boa 


BBS 


BBé 


PASS 2 


1,DuU 
BLOX 
BB 

C ' 
SERROR 
be 


en 

BX 
VALP 
ASWORK 


6B12 


WSSKIPeWSNIL+WSVAC,DU SEE JF VALUE IS a SKIP, 


BB12 

dod 
MSLRBL,DU 
BB812 

BN 

0,0u 
0,Du 
ASXFER 
"197 


2,Du 

BB7 

0,7 
MSPROC,DU 
BB5 


ASXFER 
e4,7 
2,Du 
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INDICATE SOFT COERCION 

SAVE RETURN 

GET TARGET MODE FOR COERCION 

COERCE VaLWE TO TARGET MODE 

COERCION FAILED © ERROR 

DO INDICATED COERCYONS 

AND RETURN 

SAVE RETURN 

GET POINTER TO VALUE CONTROL BLOCK IN XR ow 
MAKE VALUE POINTER ABSOLUTE 


ZERO OUY TARGET MODE 

INT TIALEZE LOCAL COUNT 

INITIALIZE COUNT 

GET FYPB OF VALUE IN XR « 6 

SEE JF If 1S A DISPLAYED VALUE 

FAIL IF If IS A DISPLAYED VALUE 

3S If A BALANCED VALUE 

TRANSFER IF NOT A BALANCED VaLUEe 
GET COURT IN XR # 9 

STORE TO ADD X REGISTERS TOGETHER 
ADD NUMBER OF BALANCED VALUES YO po 
AND CONFINWE 

NIK, OR VACUUM 
TRANSFER {Ff SO TO CONTINUE 

GEY MODE oF VALUE IN XR » 7 

SEE IF VaLWE {S aA LABEL 

TRANSFER YF SO 

INITTALYZE FLAG/MODE COUNT 
INITIALIZE XR © 5 

INITIALIZE XR = 6 

GET ABSOLUTE POINTER TO pene IN XR - 7 
GET LENGTH OF MODE IN XR » 


SEE JF 37 38 a COERCIBLE MODE LENGTH 
TRANSPER {IF NOT alla 

GET TyPE OF MODE IN XR e& 

SEE 17 1S aA PROCEDURE MODE 
Riisvee 17 NOT TO CONTINUE CHECKING 
GET DEPROCEDYRED MODE IN xR - 7 

AND CONTINYE COERCING 

SEE Ir TYPE IS a REFERENCE 

TRANSFER IF NOT 

SAVE FIRST REFERENCE MODE IN XR = 5 
SAVE COERCIBLE MODE IN XR & 6 
DEREFERBNCE OR DEPROCEDURE MODE 
COUNT MODES FROM FIRST REFERENGE 
MAKE MODE aBSOLUTE 

GET LENGTH OF MODE IN XR w 0 

IS I? aA COBRCIBLE MODE LENGTH 


01557 


END 


END 


01 05-26-72 
2 

015465 0415173 
015166 090000 
U15167 047001 
0451470 015157 
015171 016762 
015172 vu15157 
OF BINARY CARD 
015173 035216 
015174 0009002 
U15175 045241 
015176 035216 
015477 777777 
015200 016202 
015201 015205 
015202 0415251 
015203 0415250 
015204 045241 
045205 046202 
015206 015251 
015207 015250 
015210 01415241 
015211 016202 
015212 015231 
015213 000003 
0145214 015226 
015215 0909000 
015216 015226 
015217 0090000 
015220 016762 
OF BINARY CARD 
0145224 015226 
015222 035216 
015223 046202 
015224 0345252 
0145225 045244 
015226 046202 
015227 015252 
015230 6015244 
015251 016202 
015232 0145244 
015233 000003 
0145234 045244 
045235 045252 
0145236 045241 
0145237 016202 
015240 01415252 
015241 oononds 
015242 000001 
0145243 045122 
0415244 046202 


17,868 


6010 
2200 
1000 
6000 
1000 
6n00 


Vou0Uu2s6 


1670 
1050 
6050 
1650 
6040 
2340 
6000 
2350 
1150 
6050 
7450 
2320 
7550 
7100 
2340 
6040 
4050 
6050 
6260 
6000 
2200 
4000 


90000257 


6010 
1660 
7460 
7500 
7490 
7470 
4500 
7200 
1070 
6000 
1030 
6050 
2340 
6000 
7470 
4500 
1610 
1640 
6050 
2270 


00 


00 


AULGOL68 


5036 
5037 
5938 
50139 
5840 
541 


5042 BB7 
5943 
5044 
5945 
5046 
5947 
5048 
5049 
5950 
5054 
5052 BBs 
5053 
5054 
5055 
5056 BB9 
5057 
5058 
5059 
5060 
5061 
5062 
5063 


5064 
5065 
5066 
5067 
5068 
5069 Big 
5070 
507% 
5072 BB1ii 
5078 
5074 
5075 
5076 
5077 
5078 
5079 
5080 Bsi2 
5084 
5082 
5083 BB13 


TNZ 
LDXxO 
CMPX) 
TZE 
CMPXy 
TZeE 


SRBX7 
CMPX3 
TPL 
SBX5 
TM | 
SZN 
TZE 
LDA 
CMPA 
TPL 
STX5 
LDA 
STA 
TRA 
SZN 
TNZ 
CMPX3 
TPL 
EAX6 
TZE 
LDXO 
CMPX0 


TNZ 
SBX6 
STX6 
STC2 
TRA 
S1TX7 
STZ 
TRA 
CMPX7 
TZE 
CMPX3 
TPL 
SZN 
TZE 
STX7 
S72 
SBX1 
SBX4 
TPL 
LDX7 


PASS 2 


BB7 
0,7 
MBPROC,DU 
bB6 
MBREF ,DU 
BR6 


TEMNDE 
2,DuU 
BB9 
TEMODE 
$ERROR™ 
BMODE 
BB8 

BN 

BC 
BBL2 
BMONE 
BN 

BC 
BB12 
BMODE 
BBid¢ 
3,Du 
BBin 
0,46 
BB196 
0,6 
MSREF, DU 
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TRANSFER {IF NOT COERCIBLE 

GET TYPE OF MODE IN XR - 0 

TS IT A PROCENURE MODE 

TRANSFER !F YES TO CONTINUE COERCION 
IS I? A REFERENCE MODE 

TRANSFER IF YES TO CONTINUE COERCION 


GET RELATIVE MODE IN XR w 7 

WHAT !S THE STRENGTH OF THE COERCION 
TRANSFER IF STRENGTH IS FIRM OR WEAK 
MAKE XR mw 5 POINTER RELATIVE 

- JMPOSSIBLE COERCION 

JS THERE aLREADY A BMODE 

TRANSFER IF NO RMODE CALCULATED YET 
GET NUMBER OF MODES TO BASE MODE 
COMPARE WITH PREVIOUS NUMBER 
TRANSFER !F OLD MODE IS STILL GOOp 
STORE TARGET MODE JN BMODE 

GET CURRENT MODE COUNT 

AND ALSO STORE 

AND CONVINWE 

1S THERE a TARGET MODE CALCULATED YET 
TRANSFER {fF THERE IS A TARGET MODE 
1S THIS a FIRM COERCION 

TRANSFER YF FIRM COERCION 

1S THERE POSSIBLY A REFERENCE TO BASE MODE 
TRANSFER IF NOT 

GET TYPE OF MODE IN XR - 0 

IS IY A REFERENCE MODE 


TRANSFER IF NOY REFERENCE 

MAKE MODE POINTER RELATIVE 

AND STORE aS TARGET MODE 

SET FLAG INDICATING BMODE IS REFERENCE 
AND CONTINYE 

STORE MODE aS TaRGEY MONE 

RESET REFERENCE FLAG 

AND CONTINVE 

ARE BOTM TARGET MODES THE SAME 
TRANSFER IF YHE SAME 70 CONTINUE 

1S 37 A FIRM COERCION 

TRANSFER IF FIRM COERCION w FAILURE 

JS REFERENCE FLAG SET 

TRANSFER TF NOT © FAJLURE 

STORE N&W DEREFERENCED TARGET MODE 
RESET REFERENCE FLAG 

STEP TO PREVIOUS VALUE 

DECREMENT NUMBER OF VALUES LEFT TO PROCESS 
TRANSFER IF ANY MORE VALUES TO PROCESS 
GET CALCULATED TARGET MODE 


01557 


END 


END 


END 


01 0526-72 
2 

615245 016203 
045246 777777 
OF BINARY CARD 
015247 000000 
045250 000000 
015251 0090000 
0145252 000000 
015253 035234 
015254 035214 
015255 016209 
015256 016446 
015257 035235 
015260 005742 
0152614 000001 
015262 016176 
015263 016177 
015264 045530 
015265 016446 
015266 035214 
015267 000000 
015270 020000 
045271 015644 
015272 0400090 
025273 045725 
015274 2090000 
OF BINARY CARD 
015275 045559 
015276 100000 
015277 015557 
0145300 010000 
015304 045606 
015302 4090000 
015303 777777 
0145304 O9N004 
0145305 0090031 
015306 045573 
015307 035234 
015310 005754 
045341 016124 
015312 035234 
015313 005754 
015344 046201 
015315 035235 
015316 035215 
015317 009n000 
015329 0777777 
015324 035234 
015322 0095754 


OF BINARY CARD 


015323 


016202 


17,863 


7470 
6000 


Q0vu00258 


7400 


00 
90 


00 


000000 
Q000u0 
o0youd 


2210 
1640 
7440 
0410 
4500 
7470 
3350 
7550 
7550 
7400 
2200 
0600 
2210 
3040 
6040 
3010 
6030 
3040 


00000259 


6040 
5030 
6030 
5010 
60140 
3010 
6000 
2270 
1070 
6000 
4500 
7470 
7090 
75390 
7470 
7470 
2200 
1600 
6350 
0750 
7550 
7470 


900900260 


2270 


00 
00 
00 
00 
56 
00 
LR) 
ou 
00 
90 
00 
o0 
10 
a) 
00 
0% 
00 
03 


O0 


00 


00 


ALGOL65 


5184 
565 


5086 
5087 
5088 
5089 
5090 
5N94 
5192 
5093 
5094 
5995 
5096 
5097 
5098 
599 
5100 
5101 
5402 
5103 
5104 
5105 
5106 
5107 


5108 
3109 
5110 
S111 
5112 
5413 
5114 
5415 
5416 
5417 
5118 
5119 
5120 
5124 
5122 
5123 
5424 
5425 
5126 
5427 
5128 
5129 


5130 


co 


C1 


STX7 
TZE 


TRA 
ZERO 
ZERO 
ZERO 
LDX4 
SBX4 
STX4 
ASX 
$7Z 
XED 
LCA 
STA 
STA 
STX0 
LDXO 
ADXO 
OX4 
CANXY 
TNZ 
CANXL 
INZ 
CANXL 


TNZ 
CANXY 
TNZ 
CANX1L 
TNZ 
CANX4L 
TZE 
.DX7 
CMPX7 
Ze 
STZ 
XED 
TSxXo 
STA 
XED 
STX7 
0X0 
SBXO 
EAA 
ADA 
STA 
XED 


LDX7 


PASS 2 


TMODE 
SERROR 


we 


ASWORK 
TSWORK 

Cw 

Vale 
ASSTACK, 1D 
TSSOVF 
1,Du 

CF 

FF 

Cx 

VALP 
TSWORK 
0:0 
WSBaL,DU 
BAL: 
WSPAR,DU 
PAR 
WSSKIP,DY 


CSK 
WENIL,DU 
CNIL 
WSVAC,DU 
Vac 
WSVALUE,DU 
$ERROR 

1,0 
MSLBL,DU 
LC 
ASWORK,ID 
TSWOVF 
CRED 
ASWORK, ID 
TSWOVF 
AMONE 
ASSTACK 
TSSTACK 
0,0 

"4,0 
ASWORK,ID 
TSWOVF 


BMODE 
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AND SAVE FQR REFERENCE 
TRANSFER IF NO MONE WAS CALCULATED ~ ERROR 


AND EXIT 


GET POINTER TO END OF WORKING STACK 

MAKE POINTER RELATIVE 

AND STORE AS VALP CORRECTION CONSTANT 

MAKE VALP RELATIVE TO TSWORK 

STORE A ZERO {N BOTTOM OF CONTROL STACK 
CHECK FOR STACK OVERFLOW 

GET FIRM COERCION FLAG 

AND STORE FLAG INDICATING FIRM COERCION 
STORE IN STRONG COERCIONS ARE ALLOWED FLAG 
SAVE RETURN 

GET POINTER TO VALUE CONTROL BLOCK TO COERCE 
MAKE POINTER ABSOLUTE 

GET TYPH OF VALUE IN XR @ 4 
1S If A BALANCED VALUE 
TRANSFER IF VALUE IS BALANCED 
IS If A DISPLAY VALUE 
TRANSFER fF VALUE IS A DISPLAY 
SEE IF VaLwE IS a SKIP 


TRANSFER {IF VALUE 1S A SKIP 

SEE IF VaLUE IS a NIL 

TRANSFER IF VALUE IS A NIL 

SEE IF VaLWE !S A VACUUM 

TRANSFER IF VALUE 1S A VAGUUM 

IS J7 A VALUE CONTROL BLOCK 

NO » COMPILER ERROR MUST BE SOMETHING 
GET MODE OF VALUE TO COERCE IN XR « 7 
SEE JF MODE IS A LaBEL 

TRANSFER YF VALUE IS A LABEL 

FLAG BOYTOM OF WORKING STACK WITH a ZERO 
CHECK FOR STACK OVERFLOW 

REDUCE MODE TO NONPROC OR NONREF mone 
STORING IN WORKING STACK 

CHECK FOR STACK OVERFLOW 

STORE REDUCED MODE IN AMODE 

GET POINTER TO TOP OF CONTROL STACK 
MAKE POFNTER RELATIVE 

GET RELATIVE POINTER IN AU 

GET FLAG IN AL 

AND STORE IN WORKING STACK 

CHECK FOR STACK OVERFLOW 


GET DESIRED MODE IN XR - 7 


04557 


END 


END 


01 05-26-72 
2 

015324 016124 
015325 035235 
0145326 005742 
015327 0346202 
015359 016201 
015334 015402 
045332 035234 
015353 045332 
045334 035234 
0145335 045370 
015336 035235 
015337 045334 
015340 035235 
015341 000060 
015342 016779 
045343 045346 
015344 016776 
015345 045362 
0145346 035235 
015347 0467709 
015359 015346 
OF BINARY CARD 
0145354 016776 
045352 045346 
045353 016762 
045354 045364 
015355 09n000 
015356 035235 
0145357 035234 
015359 015362 
015364 035235 
015362 035235 
015363 090003 
015364 035235 
015365 095742 
0145366 035234 
015367 015363 
015370 016446 
045374 016200 
045372 000022 
0145373 016446 
045374 035235 
045375 005742 
045376 777773 
OF BINARY CARD 
015377 016446 
015400 015530 
045401 090004 
015402 016477 
015403 015406 


17,863 


7000 
7550 
7170 
7470 
10/0 
6010 
7200 
6050 
2350 
6090 
1150 
6000 
2200 
2210 
1010 
6000 
1019 
6010 
2200 
1090 
6000 


Q0000261 


4000 
60900 
4000 
6010 
2290 
7400 
2350 
7400 
0440 
0140 
0750 
7550 
7470 
2350 
6040 
2350 
4750 
7720 
Q750 
7550 
7470 
2200 


00000262 


0400 
2200 
7400 
2340 
6000 


0S 


05 


00 
80 
£0 
90 
90 


ALGO 68 


5431 
5432 
5433 
5434 
5435 
5136 
5137 
5138 
5439 
5140 
51441 
5442 
5443 
5444 
5445 
5446 
5447 
5448 
5149 
5150 
5451 


5152 
5453 
5454 
5455 
5456 
5457 
5158 
5459 
5160 
5164 
5462 
5163 
5464 
5165 
5166 
5167 
5468 
5469 
5170 
54714 
5472 
5473 


5474 
5475 
5176 
5477 
5178 


C2 


CS 


C4 


C10 


C11 


TSxX0 
STA 
XED 
STX7 
CMPX7 
TNZ 
LxXLo 
TPL 
LDA 
TZE 
CMPA 
TZE 
DXO0 
DX1 
CMPX4L 
TZE 
CMPX41 
TNZ 
Oxo 
CMPXQ 
TZE 


CMPXQ 
lie 
CMPX 
TNZ 
LDXO 
STXO 
LDA 
TRA 
NOP 
NOP 
ADA 
STA 
XED 
LDA 
TNZ 
LDA 
SBA 
ARL 
ADA 
STA 
XED 
Dx 


ASXO 
LOXO 
TRA 
SZN 
TZE 


PASS ? 


CREN 
ASSTACK, ID 
TESSOVF 
BMODE 
AMODE 

Cit 
ASWORK, BI 
C2 
ASWORK,D! 
C10 
ASSTACK,D! 
C3 i 
ASSTACK 
0,0 
MSROW,DU 
C4 
MSROWE, DU 
C6 
ASSTACK,D! 
MSROW, DU 
C4 


MSROWE, BU 


MSREFRW; DU 
ASSTACK, JD 
ASWORK,DI 
C6 
ASSTACK, ID 
ASSTACKy ID 
3,Du 
ASSTACK, 1D 
TSSOVF 
ASWORK,D] 


VALP,DU 
ASSTACK;, JD 
TSSOVF 


75,D0U 


VALP 
CX 
1,0 
FF 
c411,3 
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REDUCE MODE TO NONPROC OR NONREF MODE 
STORING IN CONTROL STACK 

CHECK FOR STACK OVERFLOW 

STORE REDUCED MODE AS NEW TARG&T MODE 

ARE THE TWO REDUCED MODES THE SAME 

NO » MUST WORK ON BMONE FURTHER SO TRANSFER 
DELETE A WORD FROM THE WORKING STack 
TRANSFER IF MORE TO DELETE 

GET NEX¥Y GOQERCION FROM WORKING STACK 
TRANSFER {* NO MORE 

SEE JF THE SAME aS COERCION IN CONTROL STACK 
IF SQ + DELETE BOTH COERCIONS aND LooP 

GET POINTER TO END OF CONTROL STACK IN XR @ Q 
GET LaSt COERCION IN CONYROL STACK 

IS If A ROWING COERCION 

TRANSFER If SO 

JS IT AN END ROWING COERCION 

TRANSFER {F NOT 

GET PREVIOUS COERCION FROM CONTROL STACK 

1S If A ROW COERCION 

TRANSFER IF YES AND DELETE I!7 


1S If AN END ROW COERCION 

TRANSFER If YeS AND Delete IT 

13 COEREGION A REFBRENCE COERCION 
TRANSFER IF NOY aA REFERENCE COERCION 
GET A REFERENCE ROW COERCION 

AND CHANGE LAST REF COERCION 70 REF ROW 
DELETE WORK REFERENCE CCERCION 

AND CONTINWE 

RESTORE NONREFERENCE COERCION 

RESTORE NONeMATCHING COERGION IN STACK 
CHANGE REF TO DEREF AND PROC To DEPROC 
AND STORE COERCION IN CONTROL STACK 
CHECK FOR STACK QVERFLOW 

GET NEX¥ CQERCION FROM WORKING STacKk 
TRANSFER IF YHERE g~RE MORE COERCIONS 
GET POJNTER TO CURRENT CONTROL BLOCK 
MAKE POYNTER RELATIVE TO a$SWORK 

PUT IN AL 

ADD VAL? GQERCION COMMAND 

AND ADD 70 CONTROL STACK 

CHECK FOR STACK QVERFLOW 

GET LENGTM OF CONTROL BLOCK IN XR ~ 9 


STeP TO NeXT CONTROL BLOCK 

GET RETURN ADDRESS IN XR » 9 

AND GIVE SWCCESSFUL RETURN 

ARE STROANG COBRCIONS ALLOWED 

TRANSFER YF STRONG COERCIONS ARE NOT ALLOWED 


01557 


END 


END 


01 U5-26<72 


2 
045404 000001 
015405 015531 
015406 0109639 
015407 090009 
015410 0161477 
015411 015429 
015412 016754 
015413 015460 
015414 016770 
015415 015460 
015416 0416776 
045417 015469 
015420 017007 
015421 015544 
015422 000000 
015423 016201 
015424 010630 
OF BINARY CARD 
015425 0090000 
046426 017007 
015427 045455 
015430 777777 
045434 777777 
045432 777777 
015433 0000140 
015434 090009 
015435 000004 
0145436 0090004 
015437 000190 
015440 090000 
015441 045455 
015442 On0004 
015443 oo0gg4 
015444 04543 
0145445 000000 
015446 035246 
045447 00900000 
015450 000022 
015454 047007 
015452 035235 
OF BINARY CAR) 
015453 005742 
015454 015332 
045455 0147007 
015456 000000 
015457 015464 
015460 016176 
015464 035235 
0145462 035216 
035235 


015463 


17,863 


1070 
6000 
7000 
2290 
2340 
6000 
1000 
6000 
4000 
6000 
4000 
6000 
1000 
6010 
6260 
2270 
7000 


00000265 


2200 
1000 
6010 
2210 
2350 
6350 
7710 
6200 
6240 
2250 
5202 
1050 
6010 
0670 

610 

040 
6270 
1670 
6350 
7710 
0750 
7550 


00000264 


7470 
7490 
2200 
6270 
7400 
4500 
7490 
1670 
4470 


00 


00 


ALGOL68 


5479 
5180 
5481 C11,3 
5482 
5183 
5484 
5185 
5186 
5187 
5188 
5489 
5490 
5491 C11,7 
5192 
5493 
5194 
5495 


5196 
5497 
5498 
54199 
5200 
5204 
5202 
5203 C12 
5204 
5205 
5206 
5207 
5208 
5209 
5210 
5214 
5212 
5243 
5214 
5245 
5216 
5217 


5218 

5249 

5220 C13 
5221 

5222 

5223 Ci4 
5224 C14,14 
5225 

5226 


CMPX7 
TZE 
TSX0 
.DX0 
SZN 
TZE 
CMPXQ 
TZE 
CMPX0 
TZE 
GMPXO 
TZE 
CMPXO 
TNZ 
EAX6 
LDX7 
TSXO0 


LDXO 
CMPX0 
TNZ 
LDX4 
LDA 
BAA 
ARL 
EAXO 
EAX4 
LDX3 
RPTX 
CMPX3 
TNZ 
ADX7 
SBX4 
TNZ 
BAX? 
$BX7 
EAA 
ARI, 
ADA 
STA 


XED 
TRA 
LOX0 
EAX7 
TRA 
STZ 
STXO 
SB8X7 
SX1,7 


PASS 2 


M$VOID, OU 
C11,7 


C 
MSROWE, DU 
C14 
MSUNION, DU 
C17 

0,7 

AMQNE 
ASXFER 


0.7 
MSUNTON, DU 
C43 


MSUNION,DU 
ASSTACK, ID 


TSSOVF 
¢2 
MSUNION, DU 


ASSTACK, | 
TSMODE 
ASSTACK, ID 


PAGE 123 


JS THE TARGET MODE VOID 

TRANSFER !F YES TO VOID ROUTING 

GET ABSOLUTE POINTER YO MODE IN XR - 7 
GET TYPE OF MODE IN XR & 9 

ARE STRONG COFERGIONS ALLOWED 

TRANSFER IF STRONG COERCIONS ARE NOT ALLOWED 
1S If A PRIMITIVE MODE 

TRANSFER If YES 

IS IY A ROW MODE 

TRANSFER {Ff YES 

IS If AN END ROW MODE 

TRANSFER {6 YES 

1S IT A UNION Mope 

TRANSFER IF NOT 

SAVE UNITED MODE IN XR & 6 

GET MODE OF VALUE 70 BE COERCED 

MAKE MODE UNIQUE AND ABSOLUTE 


GET TYPE OF MODE IN XR « 9 

1S I7 A UNITED mOnE 

TRANSFER {F NOT 

GET LENGTH OF SOURCE UNION 

GET LENGTH OF DESIRED MODE UNION 
DECREMENT LENGTH TO GET NUMBER OF MODES IN UNION 
POSIYION COUNT FOR REPEAT 

GET COUNT IN XR © go FOR REPEAT 

GET POINTER TO NEXT TARGET MODE IN xR w 4 
GET FIRST MODE OF VALUE UNJON IN XR © 3 
SEARCH FOR VALUE MODE IN DESIRED MOpE 
COMPARE GIVEN MODE WITH DESIRED MODE 
TRANSFER If NOT & POSSIBLE COERCION 

STEP VALUE MODE POINTER 

DECREMENT NUMBER OF COMPONENTS LEFT TO CHECK 
TRANSFER IF MORE TO CHECK 

RESTORE DESIRED MODE IN XR w 7 

MAKE MODE POINTER RELATIVE 

GET MODB IN A REGISTER 

MOVE MODE TO AL 

ADD UNITE COMMAND 

AND STORE JN CONTROL STACK 


CMECK FOR STACK OVERFLOW 

GO TO END CLEANUP 

RESTORE TYPE OF MODE IN XR © 0 

RESTORE DESIRED MODE IN XR = 7 

TRANSFER BECAUSE NOY STRONG CORRCION 

INDICATE STRONG COERCION 

STORE XR » 0 AS COERCION COMMAND IN CONTROL STack 
MAKE MODE POINTER RELATIVE 

AND STORE MODE IN CONTROL STACK 


01557 


ALGOL68 See a 
é PASS 2 
otoae ss S027 ve ai 70-90 5227 XED TSSOVF CHECK FOR STACK OVERFLOW 
OLeAO2 052239 220000 3228 LDXO = ASSTACK GET POINTER TO END OF CONTROL STACK 
015466 035215 1600 Oy 5229 SBX0 TSSTACK MAKE POENYER RELATIVE 
015470 035234 7550 56 5231 STA ASWORK, ID AND STORE IN WORKING STACK 
015471 005754 7470 OY 5232 XED TSWOVF CHECK FOR STACK OVERFLOW 
015472 035234 2350 54 5233 C15 LDA ASWORK,DI GET LASY CONTROL STACK MARK 
Gi5475 000001 6210 05 5234 EAXt = 4, AL CHECK IF LAST WORD IN WORKING STACK 
015474 015525 6000 Ou 5235 YZE C20 TRANSFER IF COERCION ATTEMPT FAILED 
prey ee: 200000 627004 5236 EAX7 = 0, AU GET STACK MARK IN XR @ 7 
0145476 035215 0670 00 5237 ADX7 TESTACK MAKE STACK POINTER ABSOLUTE 
045477 777777 7270 147 5238 LXL7 71,7 GET OLD TARGET MODE IN XR = 7 
END OF BINARY CARD Q0Q00265 
015504 777777 4010 147 5240 CMPX1 = 447 SEE IF ALL POSSIBILITIES HAVE BEEN TRIED 
0145503 045505 7410 00 5242 STX4 C16 STORE INDEX REGISTER TO ADD TO ANOTHER x REGISTER 
015504 000000 2260 47 5243 LDX6 = 047 GET TYPE OF MODE IN XR » 6 
015505 000000 0670 08 5244 C16 ADX? en, DU GET POINTER TO NEXT MODE TO BE TARGET MODE 
015506 000000 2270 17 5245 DX? 0,7 GET NEXT YARGET MODE IN XR © 7 
015507 016202 7470 09 5246 STX7 BMODE AND STORE AS TARGET MODE 
045511 017007 1660 08 5248 SBX6 MSUNION| DU SET FIRM FLAG IF UNION 
0145542 016177 7460 00 5249 STX6 FF AND STORE JN MEMORY 
015513 045323 7400 60 5250 TRA Ct AND CONTINUE 
015514 035234 2200 54 5254 £17 .DXo ASWORK,D! GET CONTROL STACK MARK IN XR ~ 9 
015516 035245 9600 00 5253 ADXO TSSTACK MAKE POINTER ABSOLUTE 
pias: Dacele erro 20 5254 LOX7 = BMODE GET CURRENT TARGET MODE IN xR - 7 
045520 045522 7400 00 5255 TRA C19 GO ENTER LOOP 
045521 035255 7270 54 5256 C48 LXL7 ASSTACK;D] GET PREVIOUS TARGET MODE IN XR « 7 
015522 0355235 1000 00 5257 C19 CMPXQ ASSTACK HAS STACK BEEN DELETED BACK TO THE MARK 
015524 015472 7490 00 5259 TRA C45 TRANSFER TQ CONTINWE COERCION 
015525 016202 7470 o9 5260 C29 STX7 BMODE RESTORE BMODE FOR FAILURE RETURN 
015526 035254 2340 54 5261 C24 SZN ASWORK , DI DELETE A WORD FROM THE WORKING STack 
END OF BINARY CARD 00000266 
015527 015526 6040 00 5262 TNZ C24 LOOP IF MORE TO DELETE 
0155530 000000 7190 90 5263 CX TRA ee AND GO %0 GRROR RETURN 
015534 016176 4500 00 5264 VC $tz CF INDICAT® STRONG COERCION 
015532 035234 7200 54 5265 VCo LXLO ASWORK, DI DELETE CONTROL WORDS FROM WORKING STack 
OiD2e ed vereue-ee00. 24 5267 VC,5  4DX0 = aSWORK, DI GET LAST COERCION USED ON GIVEN VaLUE 
015359 016702 1000 08 5268 CMPXQ © MSREF, DU 1S 17 A REFERENCE 
015536 015541 6010 00 5269 TNZ VeL TRANSFER IF NOT 
015537 035234 7270 94 5270 LXL7 ASWORK,! GET REFERENCE MODE IN XR & 7 
015540 015534 7100 90 5274 TRA VC,5 AND L0oR 
Brae a a USeee olay oe 5272 VG1 = NOP ASWORK, 1D RESTORE NONREF COERCION 
015542 000000 6350 47 5273 EAA 0,7 GET FINAL MODE IN AU 
015543 000022 7710 00 5274 ARL 18 MOVE TO AL 


01 U5-26-72 


17,863 


01557 


END 


2 
015544 016531 
045545 035235 
015546 095742 
045597 015334 
015550 016176 
015551 016202 
015552 000022 
015553 016567 
015554 035235 
END OF BINARY CARD 
015555 005742 
0145556 0415370 
015557 016176 
015560 0146292 
015561 010630 
015562 000000 
015563 0416762 
015564 015539 
045565 0416202 
015566 090022 
015567 046572 
015570 035235 
015574 005742 
015572 0153570 
015573 016176 
015574 016202 
015575 016152 
015576 035235 
015577 095742 
015600 090000 
015601 090022 
015602 016526 
OP BINARY CARD 
015603 035235 
0145604 005742 
015605 015370 
015606 046176 
015607 035235 
01456190 0352145 
015611 0415632 
015612 016202 
015613 016152 
045614 035235 
015615 0095742 
015616 016202 
015617 090000 
015620 000022 
015621 000000 
015622 035235 
0145623 005742 


17,803 


Q730 
7590 
7470 
7400 
4500 
2350 
7710 
0750 
7530 


00000267 


7170 
7100 
4590 
2270 
7000 
2200 
1000 
6010 


2350 
7710 
0750 
7550 
7470 
7400 
4500 
2270 
7000 
7550 
7470 
6350 
7740 
0750 


009000268 
6 


7550 
7470 
7400 
4590 
2200 
4600 
7400 
2270 
70900 
7550 
7470 
7470 
6350 
7740 
0750 
7550 
7470 


00 
00 


03 


ALGOL68 


5275 
5276 
5277 
5278 
5279 
5280 
5281 
5262 
5283 


52684 
5285 
5266 
5287 
5288 
5289 
5290 
5294 


5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 
5304 
3302 
53035 
5304 
5305 


5306 
5307 
5308 
5309 
5310 
53114 
5312 
5315 
53144 
5315 
5316 
5347 
5318 
5319 
5320 
532k 
5322 


CSK 


CNIL 


LO 


Vac 


ADA 
STA 
XED 
TRA 
STZ 
LDA 
ARL 
ADA 
STA 


XED 
TRA 
STZ 
.DX7 
TSXo0 
LDX0 
CMPXQ 
TNZ 


LDA 
ARL 
ADA 
STA 
XED 
TRA 
STZ 
0X7 
TSxo 
STA 
XED 
EAA 
ARI, 
ADA 


STA 
XED 
TRA 
STZ 
LDXx0 
$BX0 
STX0 
LDX7 
TSx0 
STA 
XED 
STX7 
EAA 
ARL 
ADA 
STA 
XED 


PASS 2 


OSVOID, BU 
ASSTACK, 1D 
TSSOVF 


OSSKIP,BYU 
ASSTACK,ID 


TSSOVF 
C40 

CF 

BMONE 
ASXFER 
0,7 
MSREF ,DU 
op. 


BMODE 

18 
OSNIL,DU 
ASSTACK, ID 
YSSoOVF 


CDEP 
ASSTACK, 1D 
TSSOVF 

0,7 

18 
OSHIP, DU 


ASSTACK, ID 
TSSOVF 


ASSTACK 
TSSTACK 
VaCT 

BMODE 

CDEP 
ASSTACK, ID 
TSSOVF 
BMODE 


OSVAC,pU 
ASSTACK, 1D 
TSSOVF 
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ADD VOID COERCION 

AND ADD TO CONTROL STACK 

CHECK FOR STACK OVERFLOW 

AND MOVE WORK TO STACK AND EXIT 
INDICATE STRONG COERCION 

GET TARGET MODE JN AU 

MOVE MODE TO AL 

ADD SKIP COERCION COMMAND 

AND STORE IN CONTROL STACK 


CHECK FOR STACK QVERFLOW 
GO TQ END CLEANUP 
INDICATE STRONG COERCION 
GET TARGET MODE IN XR « 7 


MAKE MOBE POINTER UNIQUE AND ABSOLUTE 


GET TYPB OF MODE IN XR w# O 
1S IT A REFERENCE MODE 
GO GIVE FAILURE RETURN 


GET TARGET MODE IN AU 

MOVE MOBE ROJNTER TO AL 
ADD NIL COERCION COMMAND 
AND STORE IN CONTROL STACK 
CHECK FOR STACK OVERFLOW 
GO TO END CLEANUP 

INDICATE STRONG COERCION 
GET TARGET MODE IN XR - 7 
DEPROCEDURE If 

STORING IN CONTROL STACK 
CHECK FOR STACK OVERFLOW 
GET DEPROCEDURED MODE IN AU 
MOVE MOBE TO AL 

ADD HIP COERCION 


AND ADD TO CONTROL STACK 

CHECK FOR STACK OVERFLOW 

GO TQ CLEAN UP 

INDICATE STRONG COERCION 

GET POJRTER TO END OF CONTROL STACK 
MAKE STACK POINTER RELATIVE 
AND SAVE STACK MARK JF FAILURE 
GET TARGET MODE 

AND DEPROCEDURE [T 

STORING IN CONTROL STACK 

CHECK FOR STACK OVERFLOW 

STORE NEW TARGET MODE 

GET MODE IN AU 

MOVE TO AL 

ADD COERCION COMMAND 

AND STORE IN CONTROL STACK 
CHECK FOR STACK OVERFLOW 


125 


01557 


END 


END 


01 05-26-72 


s 


U15624 040630 
015625 0900009 
U15626 0146770 
015627 045370 
015630 U16776 
OF BINARY CARD 
015634 015370 
015652 0909000 
0156353 035215 
015634 035235 
045635 035235 
015636 015634 
015637 016202 
015640 015539 
015641 016074 
015642 045644 
015643 035235 
045644 095742 
015645 016202 
045646 090022 
015647 046452 
045650 035235 
0145654 095742 
015652 016446 
045653 0416200 
015654 90022 
045655 0416446 
015656 035235 
OF BINARY CARD 
015657 005742 
045669 777773 
015664 046446 
015662 015264 
015663 045704 
015664 035234 
015665 016476 
015666 777773 
015667 777774 
045670 0162N2 
015674 777777 
015672 045662 
045673 777773 


17,303 


7000 
22u0 
1000 
60un 
1000 


0ng0u269 


60u0 
2200 
0600 
7270 
1099 
6010 
7470 
7400 


7000 
0750 
7550 
7470 
2390 
7740 
0750 
7550 
7470 
2350 
1750 
7710 
0750 
7550 


00000270 


7470 
2200 
0400 
7000 
7400 
2210 
2350 
2550 
2270 
7470 
0540 
6010 
2350 


00 


00 
OR) 
56 
Ou 
0.0 
00 
035 
56 
OU 
00 
00 
00 
05 
56 


00 
05 
00 
00 


ALGOL63 


5323 
5324 
5325 
5326 
5327 


5328 
5329 
5330 
5331 
5332 
5333 
53354 
5335 
5336 
5337 
5338 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5347 
5348 
5349 
5350 
5354 
5352 
5353 
5354 
5355 
5356 
5357 


VACT 


VAC 


aeeeerteseses & 


5358 
5359 
5360 
5364 
5362 
5363 
5364 
5365 
5366 
5367 
5368 
5369 
5370 BAL2, 


BALL 


TSX 
L DX 
CMP 
TZE 
CMP 


TZE 
LOX 
ADX 
XL 
CMP 
TNZ 
STX 
TRA 


TSx 
ADA 
STA 
XED 
LDA 
ARL 
ADA 
STA 
X&D 
LDA 
SBA 
ARL 
ADA 
STA 


XED 
LOX 
ASX 
TSX 
TRA 
LDX 
LDA 
ORS 
LDX 
STX 
aos 
TNZ 
LDA 


PASS 2 

0 ASXFER 

0 Us7 

XQ MSROW, DU 
C10 

X0 MSROWE ,DU 
C410 

0 o*, NU 

0 TSSTACK 

7 ASSTACK,DI 

XQ ASSTACK 
Vact —~ 

7 BMONE 
CX 

RETURN 

STRENGTH OF EQERCION 


BMODE 
ASSTACKwFSSTACK 
VALP 

INDEX 


0 CPySH 
BAL, DU 
ASSTACK, ID 
TSSOVF 
BMONE 
18 
MODE,DU 
ASSTACK, 1D 
TSSOVF 
VALP 
Cw 
18 
VALP,DU 
ASSTACK,[D 


0 #5,NU 
0 VALP 
0 Co 


1 ASWORK 
A ~594 


7 neat 
7 BMODE 


PAGE 


MAKE MODE ABSOLUTE 

GET TYPE OF MODF IN XR = O 
IS IT A ROW MODE 

TRANSFER IF YES 

1S If AN END ROW MODE 


TRANSFER IF yES 

GET PLACE WHERE STACK WaS MARKED 
MAKE STACK POINTER ABSOLUTE 

DELETE aA WORD FROM THF CONTROL STACK 
SEE JF ENOUGH HaS BEEN DELETED 
TRANSFER tf MORE TO DELETE 

RESTORE BMODE 

AND GIVE ERROR RETURN 


ALREADY US&D 


PUSH CURRENT STaTE IN WORKING STACK 
ADD BALANCE COMMAND TO COUNT 

AND STORE JN CONTROL STACK 

CHECK FOR STACK OVERFLOW 

GET TARGET MODE IN aU 

MOVE TARGEY MODE To AL 

ADD MODE CQMMAND 

AND STORE IN CONTROL STACK 

CHECK FOR STACK OVERFLOW 

GET POINTER TO BALANCE CONTROL BLOCK 
MAKE POYNTER RELATIVE TO aSWORK 
MOVE VALUE POINTER TO AL 

ADD VAL? CONTROL WORD 

AND STORE JN CONTROL STACK 


CHECK FOR STACK QVERFLOW 

PREPARE TO DECREMENT VALP 

DECREMENY FO CONSIDER NEXT VALUE 
COERCE VaLWE TO TARGET MODE OR FAIL 
TRANSFER #* COERCION FAILED 

GET POINTER TO TOP OF WORKING STACK 


GET STRENGTH REQUIRED IN LaST COERCION 


UPDATE STRENGTH REQUIRED FOR BALANCE 
GET QORJGINAL TARGET MODE 

AND MAKE {7 CURRENT TARGET MODE 

STEP INDEX BY ONE 


176 


TRANSFER IF ANOTHER BALANCED VALUE TO COERCE 


GET STRENGTM REQUIRED TO DO COERCION 


01557 


END 


END 


01 U5=#26-72 
2 

015674 016176 
015675 035234 
015676 035234 
015677 035234 
0145700 035234 
045701 035234 
015702 035234 
045703 000001 
045704 035234 
OF BINARY CARD 
015705 777776 
015706 016446 
015707 777774 
015710 046202 
015711 777775 
0145712 035215 
0457143 035235 
015714 035235 
045715 045713 
015746 035234 
045717 035234 
045729 035234 
015724 035234 
045722 035234 
045723 035234 
015724 090000 
045725 016074 
015726 0416202 
045727 016152 
045739 035235 
0157354 005742 
0145732 016202 
OF BINARY CARD 
015733 035234 
045734 777774 
015735 010639 
015736 000000 
0157357 017007 
0145749 015773 
0145744 777777 
045742 000004 
015743 777777 
045744 0352146 
015745 090000 
015746 090022 
015747 0147007 
015750 035235 
015751 005742 
045752 777774 
045753 010639 


17,863 


7550 
0130 
0410 
0410 
0110 
0110 
2200 
7100 
2200 


00000271 
2240 4 


7410 
2210 
7410 
2210 
0610 
0130 
1010 
6040 
0140 
0140 
0110 
0140 
0140 
2200 
7100 
7000 
2270 
7090 
7550 
7170 
7470 


00000272 


2240 
4470 
7000 
2200 
4000 
6010 
2200 
1600 
7400 
1670 
6350 
7710 
0750 
7550 
7470 
7270 
7000 


00 
54 
54 
54 
$4 
54 
54 
10 
00 


a0 
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5371 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 


5380 
5361 
5382 
5385 
5384 
5385 
5386 
5387 
5388 
53689 
5390 
5394 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5404 


5492 
54038 
5404 
5405 
5406 
5407 
5408 
5409 
5410 
5414 
5412 
5413 
5414 
5415 
5416 
5417 
5418 


BALS 


BAL 4 


PAR 


PARY 


STA 
NOP 
NOP 
NOP 
NOP 
NOP 
WDXO 
TRA 
LDX0 


WDX4 
STX4 
LDXx41 
STX4 
LDx4 
ADX4 
NOP 
QCMPX4 
TNZ 
NOP 
NOP 
NOP 
NOP 
NOP 
LDXO 
TRA 
TSXO 
0X7 
TSX0 
STA 
XED 
$TX7 


LDX4 
SX17 
TSX0 
,DXx0 
CMPXQ 
INZ 
LDX0 
SBX0 
STX0 
SBX7 
EAA 
ARL 
ADA 
STA 
XED 
LXL7 
TSX0 


PASS 2 


cr 
ASWORK, DI 
ASWORK,DI 
ASWORK,DBI 
ASWORK, DI 
ASWORK, DI 
ASWORK, DI 
4,0 
ASWORK 


"2.0 
VALP 
7450 
BMODE 
#350 
TSSTACK 


ASSTACK,DI. 


ASSTACK 
BAL4 
ASWORK,DI 
ASWORK, DI 
ASWORK,D] 
ASWORK,DI 
ASWORK,D] 
ASWORK,DI 


CDEP 
ASSTACK, 1D 
TSSOVF 
BMONE 


ASWORK 
74nd 
ASXFER 

0,7 
MSUNION,DU 
PAR 


MSUNION,DU 
ASSTACK, ID 
TSSOVF 
44 
ASXFER 


AND STORE aS RESULTING 
DELETE A WORD FROM THE 
DELETE A WORD FROM THE 
DELETE & WORD FROM THE 
DELETE & WORD FROM THE 
DELETE A WORD FROM THE 
GET RETURN ADDRESS IN X 
AND GIVE SUCCESSFUL RET 
GET POINTER TO END OF W 


GET ORIGINAL VALUE CONTROL BLOCK POINTER 


AND MAKE {7 CURRENT VAL 
GET ORIGINAL TARGET MOD 
AND MAKE If CURRENT TAR 
GET PLACE WHERE STACK w 
MAKE POINTER ABSOLUTE 
DELETE a WORD FROM THE 
1S STACK DELETED Back T 
TRANSFER !F MORE 70 DEL 
DELETE a WORD FROM THE 
DELETE a WORD FROM THE 
DELETE aA WORD FROM THE 
DELETE & WORD FROM THE 
DELETE aA WORD FROM THE 
GET RETURN ADDRESS IN x 
AND GIVE FAILURE RETURN 
PUSH CURRENT STATE IN W 
GET TARGET MODE FOR DIS 
DEPROCEBURE TARGET MODE 
STORING IN CONTROL STAC 
CHECK FOR STACK OVERFLO 


GET POINTER YO END OF W 
STORE REDUCED MODE IN S 
MAKE MODE POINTER aBSOL 
GET TYPE OF MODE IN XR 
1S If A UNION MODE 

NO - pO pISPLAY COERCIO 
GET LENGTH OF UNION MOD 
DECREAS& !f BY ONE FOR 


RAGF 


STRENGTH 
WORKING STack 
WORKING STack 
WORKING STacK 
WORKING STack 
WORKING STACK 
R=» 0 

URN 

ORKING STACK 


UE POINTER 
E 

GET MODE 
AS MARKED 


CONTROL STack 
0 MARK 

ETE 

WORKING STack 
WORKING STack 
WORKING STack 
WORKING STack 
WORKING STack 
R- 0 


ORKING STACK 
PLAY 


K 
W 


ORKING STACK 
AVED STaT& 
UTE 

= 0 


N 
HEADER 


127 


AND STORE IN INDEX LOCATION IN SAVED STATE 


MAKE MOBE POINTER RELAT 
GET FARGET MODE IN aU 
MOVE {7 FO aL 

ADD UNION COERCION GOMM 
AND STORE JN CONTROL ST 
CHECK FOR STACK OVERFLO 
GET TARGET MODE IN XR e 
MAKE YT UNJQUE AND aBSO 


IVE 


AND 
ACK 
Ww 

7 
LUTE 


01557 


END 


END 


G4 95-26-72 
c 

045754 777777 
V15795 o9n000 
015756 U1 16202 
045757 015264 
015769 045766 
OF BINARY CARD 
015764 035234 
015762 016176 
045763 015766 
045764 777773 
045765 015673 
045766 035234 
0145767 777777 
615770 777777 
015774 015752 
015772 045704 
015773 035216 
015774 777777 
045775 045725 
0145776 035235 
015777 005742 
016000 000000 
016001 000022 
016002 046452 
046003 035235 
016004 005742 
016005 016446 
016006 0416200 
OF BINARY CARD 
0160907 dO00022 
016010 016446 
016031 035235 
016042 005742 
016013 777773 
016014 016446 
016015 010639 
016016 000000 
016017 016779 
016020 016050 
016021 016776 
0169022 016059 
046923 777777 
016024 016757 
016025 0160939 
016026 000001 
016027 046033 
016050 017001 
016031 0145704 
0160532 000002 
016033 090000 


17,863 


0670 
22/0 
7470 
7000 
/4u0 


Qng0uU275 


2240 
2350 
60N0 
7550 
7400 
2210 
2200 
0400 
6010 
7100 
1670 
$390 
0750 
7550 
7470 
6350 
77140 
0750 
7550 
7470 
2350 
4750 


gogo0u274 


7710 
0750 
7550 
7470 
2200 
0400 
7000 
2200 
1000 
6000 
1000 
6090 
2220 
4000 
6010 
4620 
7400 
1000 
6010 
1620 
6350 


11 
1? 
0g 
50 
90 


00 
00 
00 
41 
90 
OQ 
05 
t1 
00 


00 
00 
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5419 
542n 
5424 
5422 
5423 


5424 
5425 
5426 
5427 
5428 
5429 PaRo 
5430 
5434 
5432 
54338 
5434 PaRZ 
5435 
5436 
5437 
5438 
5439 
5440 
54414 
5442 
5443 
5444 
5445 


5446 
5447 
5448 
5449 
5450 
5451 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5464 
5462 
5463 PARG 
5464 
5465 
5466 PAR5 


ADX7 
LDXx7 
STX7 
TSXO0 
TRA 


LOXL 
LDA 
TZE 
STA 
TRA 
LDX4 
LNX0 
ASX0 
TNZ 
TRA 
SBX7 
LCA 
ADA 
STA 
XED 
EAA 
ARL 
ADA 
STA 
XED 
LDA 
SBA 


ARL 
ADa 
STA 
XED 
LDXo0 
ASX0 
TSX0Q 
LDXO0 
CMPXQ 
TZE 
CMPXQ 
TZE 
LDXx2 
CMPXQ 
TNZ 
SBX2 
TRA 
CMPXQ 
TNZ 
SBX2 
EAA 


PASS 2 


vlad 
O47 
BMONE 
C0 
PAR? 


ABWORK 
Cr 

PAR? 
w5n4 
BAL? 
ASWORK 
wisn 
wiyt 
PAR 
BALS 
TEMODE 
virt 
PAR, DU 
ASSTACK, ID 
TSSOVF 
0,7 

18 
MODE, DU 


ASSTACK, 1D. 


TSSOVF 
VALP 
Cw 


18 
VaLP,DU 
ASSTACK, 1D 
TSSOVF 
#5,NU 
VALP 
ASXFER 
0,7 
MSROW, DU 
PAR? 
MSROWe , BY 
PAR? 

7447 
MSSTRCY,DU 
PAR4 

1.Du 

PARS 
MSPROC,DU 
BAL3 

2,D0u 

0,2 


ADD CURRENT INDEX TO GET MODE POINTER 
GET CURRENY? TARGET IN XR « 7 

AND STORE AS CURRENT TARGET MODE 
COERCE VALVE YO TARGET MODE 


TRANSFER {F FAILURE 


PAGF 


GET POINTER TO END OF WORKING STACK 


GET COERCION STRENGTH REQUIRED 
TRANSFER IF IT WAS STRONG 

AND STORE IN SAVED STATE 
TRANSFER QO SUCCESS CLEANUP 


GET POINTER TO ENN OF WORKING STACK 


GET MINUS QNE FOR DECREMENTING 
DECREMENY JNDEX IN SAVED STATE 


TRANSFER [F MORE MODES TO CONSIDER 


GO TO FAILURE EXIT CLEANUP 
MAKE MODE POINTER RELATIVE 
GET NUMBER OF ELEMENTS IN DISPLAY IN AL 


ADD PARALLEL COMMAND 


AND STORE JN CONTROL STACK 
CHECK FOR STACK OVERFLOW 


GET TARGET MODE FOR DISPLAY IN AU 
MOVE TARGEY MODE To AL 
ape SET MODE COMMAND 


AND STORE JN CONTROL STACK 
CHECK FOR STACK OVERFLOW 


128 


GET POIRYER TO CURRENT DISPLAY VALUE BLOCK 


MAKE pOINTER RELATIVE TO ASWORK 


MOVE POYNTER TO AL 


ADD SET VaLUE POINTER COMMAND 
AND STORE IN CONTROL STACK 
CHECK FOR STACK OVERFLOW 


GET LEN&STHW OF VALUE CONTROL BLOCK IN XR ~ g 


STEP QO NEXT VALUE CONTROL BLOCK 
MAKE MODE POINTER aBSOLUTE 
GET TYPE OF MODE IN XR © 6 


1S If A ROW MODE 
TRANSFER If ROW MODE 


1S If AN 
TRANSFER 


fF 


D ROW MOD 


END Row Rope 
GET LENGTH OF MODE IN XR ~ 2 


IS IT aA STRUCTURE MODE 


TRANSFER fF NOT STRUCTURE 


GET NUMBER OF FIELDS IN STRUCTURE IN XR ~ 2 
AND CONTINWE 

1S If A PROCEDURE MODE 
GO TO FAILURE CLEANUP 
GET NUMBER OF ARGUMENTS IN PROG IN XR @ 2 
GET NUMBER OF VALUES TO COERCE IN aU 


01557 


END 


END 


01 Q5"26-72 


2 
016034 0909022 
OF BINARY CARD 
016035 035234 
U16036 777777 
016037 015704 
016040 777777 
016041 777774 
016042 010639 
016043 000090 
016044 046779 
016045 0460509 
016046 016776 
016047 016052 
016050 000004 
016054 016054 
046052 777777 
016053 090000 
016054 046202 
046055 015264 
016056 045704 
016057 035234 
016060 777777 
0146064 777777 
016062 046044 
OP BINARY CARD 
016063 777774 
016064 0410630 
016065 090000 
016066 046770 
0146067 015673 
016070 016776 
046071 045673 
016072 777773 
016073 045673 
016074 0416423 
016075 045539 
016076 035234 
016077 005754 
046100 035234 
046101 005754 
016102 046202 
016103 035234 
046104 095754 
0146105 035235 
0146106 035215 
016107 035234 
046110 005754 


OF BINARY CARD 
016111 0416446 
046112 035234 


17,863 


7740 


00000275 


2210 
0750 
6040 
7420 
7270 
7000 
2200 
4000 
6000 
1000 
6040 
2270 
7490 
0670 
2270 
7470 
7000 
7400 
2240 
2200 
0400 
6010 


00000276 


7270 
7000 
2200 
4000 
6000 
1000 
6000 
4500 
7400 
7400 
2200 
7400 
7470 
4500 
7470 
2350 
7550 
7170 
2200 
4600 
7400 
7¢70 


00000277 


2200 
7400 


00 


90 


00 
56 


ALGOL68 


5467 


5468 
5469 
5470 
5474, 
5472 
5473 
5474 
5475 
5476 
5477 
5478 
5479 
5460 
5484 
5482 
5483 
5484 
5485 
5466 
5487 
5488 
5489 


5490 
5494 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5500 
5504 
5502 
5503 
5504 
5805 
5506 
5507 
5508 
5509 
5510 
5544 


5542 
5513 


PAR6 


PAR7 
PARB 
PARQ 


CPUSH 


ARL, 


LOX4 
ADA 
TNZ 
STX2 
LXL7 
TSX0 
LDXx0 
CMPXO 
TZE 
CMPXQ 
YNZ 
LDX7 
TRA 
ADX7 
LDX7 
STX7 
TSX0 
TRA 
LDX4 
LDXo 
ASXO 
TNZ 


LXL7 
TSX0 
LDXO 
CMPXQ 
TZE 
CMPXO 
TZE 
$TZ 
TRA 
$TX0 
LDXO 
STX0 
X&D 
$TZ 
XED 
LDA 
STA 
XED 
LOXO 
SBX0 
STXO 
XED 


LDx0 
STXO 


PASS 2 
18 


ASWORK 


0,7 
MSROW, DU 
PAR? 
MSROWE, DU 
PARS 


0,7 | 
MSROW, DU 
BAL2, 
MSROWE, BU 
BAL2, 


ASWORK,14D 
TSWOVF 
ASWORK, 1D 
TSWOVF 
BMODE 
ASWORK,1D 
TSWOVF 
ASSTACK 
TSSTACK 
ASWORK, ID 
TSWOVF 


VALP 
ASWORK, 1D 
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MOVE TO AL 


GET POINTER TO END OF WORKING STACK IN XR w 4 


ADD MINUS NUMBER OF VALUES IN DISPLAY 
NOT EQUaL SO GO TO FAILURE CLEANUP 
STORE VALUE INDEX IN SAVED STATE 

GET TARGET MODE OF DISPLAY IN xR ~ 7 
MAKE MOBE POINTER ABSOLUTE 

GET TYPB OF MODE IN XR » 0 

1S IT A ROW MODE 

TRANSFER JF SO 

1S JY AN END ROW MODE 

TRANSFER YF NOT 

GET YaARGET MODE FOR ROW ELEMENT 

AND CONTINUE 


GET MOD® OF ARGUMENT OR FIELD FOR NEW TARGET 


GET FARGET IN XR ow 7 

STORE NEW TARGET MODE 

AND COERCE DISPLAY ELEMENT 

TRANSFER IF FAILURE TO FAILURE CLEANUP 
GET POINTER TO END OF WORKING STACK 
GET DECREMENTATION CONSTANT IN XR « Q 
DECREMERT DISPLAY IND@X IN SAVED STATE 
TRANSFER IF MORE ELEMENTS TO COERCE 


GET TARGET MODE FOR DISPLAY IN XR - 7 
MAKE MODE POINTER ABSOLUTE 

GET TYPE OF MODE IN XR & 9 

1S 17 A ROW DISPLAY 

TRANSFER IF YES TO SUCCESS CLEANUP 

15 JY AN END ROW DISPLAY 

TRANSFER te YES TO SUCCESS CLEANUP 
SET REQUIRED COERCION STRENGTH TQ STRONG 
TRANSFER {f SUCCESSFUL TO SUcceSS CLEANUP 
SAVE REYURN 

GET RETURN ADDRESS 

AND STORE IN WORKING STACK 

CHECK FOR STACK OVERFLOW 

STORE ZHRO FOR STRENGTH OF COERCION 
CHECK FOR STACK OVERFLOW 

GET FaARGET MODE JIN AU 

AND STORE IN WORKING STACK 

CHECK FOR STACK OVERFLOW 

GET POINTER TO END OF CONTROL STACK 
MAKE CORTROL STACK POINTER RELATIVE 
AND STORE IN WORKING STACK 

CHECK FOR STACK OVERFLOW 


GET POJNTER TO VALUE CONTROL ELEMENT 
AND STORE IN CONTROL STACK 


04557 


END 


END 


O14 U5"26-72 


2 
016113 005754 
016114 035214 
016115 000000 
046116 777777 
016117 On90000 
016120 035234 
016121 005754 
016122 090000 
016123 090000 
016124 090000 
016125 010630 
016126 000000 
016127 035216 
016150 000000 
0161351 046762 
016152 016140 
046133 047001 
016154 0161447 
016135 777777 
046136 000002 
OF BINARY CARD 
016137 016147 
016140 016151 
016141 0161514 
016142 016151 
016143 090000 
016144 000001 
0161445 000004 
016146 0416125 
016147 090000 
016150 000002 
016151 0090000 
016152 000000 
016153 010630 
016154 000000 
046155 035216 
016156 090000 
016157 047001 
016160 016173 
046464 777777 
016162 d00002 
016163 016473 
016164 0161375 
OF BINARY CARD 
046165 046475 
016166 046175 
016167 000000 
016170 000001 
016171 0000014 
016172 016153 


17,868 


7170 
aé6on 
2350 
$750 
5310 
7550 
7470 
5310 
7100 
6210 
7000 
6260 
1660 
2220 
1020 
6000 
1020 
6010 
22350 
1030 


Q0u00278 


6040 
7420 
4460 
2350 
7460 
7460 
2270 
7190 
6270 
7400 


00000279 


4460 
2350 
7460 
71460 
2270 
7100 


60 


00 
60 
41 
x1 
47 
00 
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5514 
55145 
5516 
5517 
5518 
5319 
5320 
5524 
5522 
5523 
5524 
5525 
5526 
5527 
5528 
5529 
5330 
5531 
5532 
5533 


5534 
5535 
5536 
5537 
5538 
5539 
5540 
5544 
5542 
5543 
5544 
5545 
5546 
5547 
5548 
5549 
5350 
5551 
5552 
5553 
5554 
5555 


5556 
5557 
5558 
5559 
5560 
5561 


CPx 
CRED 
CREDL 


CRED2 


CRED3 


REDT 
CUEP 
CUEP4L 


XED 
ADXO 
LDA 
ANA 
NEG 
STA 
XED 
NEG 
TRA 
FAX 
TSXO 
EAX6 
SBX6 
LDx2 
CMPX2 
TZE 
CMPX2 
YNZ 
LDX3 
CMPX3 


INZ 
STX2 
SxL6 
LDA 
XEC 
XEC 
LDX7 
TRA 
EAX7 
TRA 
ZERO 
EAX4 
TSXO 
EAX6 
SBX6 
LDX2 
CMPX2 
TNZ 
LDXS 
CMPX3 
TNZ 
STX2 


SXL6 
LDA 
XEC 
XEC 
.DX7 
TRA 


PASS 2 


TEWOVF 
TEWORK 
0,0 
-1,0 


ASWORK, 1D 
TSWOVF 


on 
0,0 
ASXFER 
0,7 
TEMQODE 
0,7 
MSREF , DU 
CRED2 
MSPROC, DU 
CREDS 
e147 

2,DuU 


CREDS 
RED? 
REDT 
RED? 
Ort 
aed 
1.7 
CREDL 
006 
2a4 


0,0 
AGXFER 
0,7 
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CHECK FOR STACK OVERFLOW 

MAKE POENTER ABSOLUTE 

GET MULTIPLE VALUE COUNT IN AL 
ZERO out Au 

GET MINUS ELEMENY COUNT IN A 

AND STORE JN wORKING STACK 

CHECK FOR STACK OVERFLOW 

NEGATE COUNT AGAIN AS RESULT 

AND RETURN 

SAVE REFURN IN XR = 1 

MAKE MODE POINTER aBSOLUTE 

SAVE CURRENT MODE IN XR w# 6 

MAKE SAVED MODE POINTER RELATIVE 
GET TYPE OF MODE IN XR -~ 2 

JS IF A REFERENGE MODE 

TRANSFER IF REFERENCE MODE 

JS IF A PROCEDURE MODE 

TRANSFER {*F NOT PROCEDURE MODE 

GET NUMBER OF ARGUMENTS # 2 IN XR © 3 
SEE IF PROCEDURE WY] THOUT ARGUMENTS 


TRANSFER IF ANY ARGUMENTS 

STORE T¥PE = COERGION COMMAND IN TEMP 
STORE MODE IN TEMP,DL 

GET COERCION COMMAND IN A 

STORE COERCION IN STACK 

CHECK FOR STACK OVERFLOW 

GET REDUCED MODE IN XR w 7 

AND 1,008 

GET FINAL MODE 1N xR @ 7 

AND RETURN 


SAVE RETURN IN XR w 1 

MAKE MODE POINTER aBSOLUTE 

SAVE CURRENT MODE IN XR © 6 

MAKE SAVED MODE POINTER RELATIVE 

GET TYPE OF MODE IN XR w 2 

1S If a PROCEDURE MODE 

TRANSFER YF NOT PROCEDURE MODE 

GET NUMBER OF ARGUMENTS # 2 IN XR © 3 
SEE JF PROCEDURE WITHOUT ARGUMENTS 
TRANSFER {$F ANY ARGUMENTS 

STORE T¥PE = COERCION COMMAND JIN TEMP 


STORE MODE IN TEMP, DL 

GET COERCION COMMAND IN 4 
STORE COERCION {IN STACK 
CHECK FOR STACK OVERFLOW 
GET REDUCED MODE IN XR ew» 7 
AND |00P 


430 


01557 


END 


END 


014 u5"26-72 
2 

016173 090000 
016174 O000n2 
016175 090000 
016176 0090000 
016177 000000 
016200 090000 
016201 0090000 
016202 0900000 
016203 0090000 
016204 016206 
016205 035235 
016206 090000 
016207 016214 
016210 042300 
016211 000000 
046212 777777 
OF BINARY CARD 
016213 090000 
046214 0417001 
016215 017004 
016216 046765 
0146217 0090000 
016220 017007 
016221 046754 
016222 046770 
016223 016534 
016224 046567 
0146225 046572 
016226 046526 
016227 010000 
016230 016446 
016231 046452 
016232 045641 
046233 045725 
016234 090000 
016235 046446 
016236 035234 
016237 o00002 
016240 035224 
OF BINARY CARD 
016244 046523 
016242 090000 
016243 035235 
016244 042375 
016245 016446 
0146246 035234 
016247 090002 
046250 035235 
016251 000001 


17,863 


2/0 16 
7400 41 
Qoudue 
Oou0un 
00u0uU8 
Qo000dd 
000000 
gn0000 


o0000aso 
7400 05 
016300 
016243 
0416243 
046243 
016243 
046248 
0462438 
046243 
04162683 
046263 
0462355 
016263 
0463503 
046306 
016515 
046377 
777773 
0146255 
22140 90 


0610 00 
2220 ¢14 
0620 400 
00000281 
2200 93 
7400 $2 
2350 54 
7000 QO 
22140 Ov 
0610 00 
0540 £1 
7270 54 
7470 4&4 


ALGOL68 


5562 CLEP? 
5563 

5564 DEPT 
5365 CF 
5566 FF 
5567 Cw 
5568 AMODE 
5569 BMODE 
5570 TMODE 
5874 De 
5872 DCL 
5573 DCX 
5574 

5575 

5576 

5377 


5578 

5579 DCTB 
5580 

5384 

5562 

5363 

5564 

5585 

5586 

5587 

5588 

5589 

5590 

5594 

5392 

5393 

5594 

5595 

5396 DCTBE 
5597 DCe 


5598 
5599 
54600 


5601 
5402 
5603 DC4 
5604 
5605 
5606 
5607 
5608 
5609 


EAX7 
TRA 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
STX0 
LDX2 
TZE 
LOX4 
RPT 
CMPX2 
LDA 


TRA 

ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
EQU 

LDX4 


ADX4 
LDX2 
ADX2 


LDXO 
STXO 
LDA 

TSX0 
LOX4 
ADX4 
AOoS 

XL7 
STX7 


DCX 
ASSTACK,DI 
on 


DCTa, DU 
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GET FINAL MODE IN XR a 7- 
AND RETURN 


SAVE RETURN 

GET NEX¥ COERCION TO APPLY IN XR ~ 2 

EX]T {F THERE ARE NO MORE COERCIONS 

GET POINTER TO START OF COBRCION TaRLE IN XR ~ 4 


DCTBESDCTB, 1,TZE SEARCH COERCION TABLE 


Q.4 
wLet 


0,AL 
MSPROC,DC3 
MSDEPR, OC1 


MSDEREF ,DCy 
MSREFRW,DCL 
MSUNTON,DC4 


MSPRIM,DC1 
MSROW, DEL 
OSvoID,BDC1 
OSSKIP,BC2 
OSNIL,DG2 
OSHIP,DEO 
WEVAC,DE2 
VALP,DC@ 
MODE,DC3 
BAL, DBAL, 
PAR, DPAR® 
0,SERROR 

* 


VALP 
ASWORK 
201 
TSCODE 
OSGoOTO, DY 
0,2 


’ 
ASSTACK,1 
AD 


ASSTACK 1 
doi 


FOR PROPER ROUTINE TO HANDLE COERCION 
GET COERCION TABLE WORD IN A 


AND TRANSFER OQ ROUTINE 


GET POINTER TO VALUE CONTROL BLOCK 


MAKE POINTER ABSOLUTE 
GET POINTER TO CORRESPONDING CODE 
MAKE POYNTER ABSOLUTE 


GET GOTO CODE 

AND STORE QVER LABEL'S IDENT CODE 

GET COERCION IN A REGISTER 

AND ADD AFTER CoDE FOR VALUE 

GET POINTER TO VALUE CONTROL BLOCK 

MAKE POINTER ABSOLUTE 

INCREMENT LENGTH OF VALUE ig INCLUDE COERCION 
GET MODE OF RESULT IN XR ew 

AND SET NEW MODE OF VALUE A CONTROL ALOCK 


04557 


END 


END 


014 uU5"26-72 


2 
016252 035235 
016253 017004 
046254 046257 
016255 046765 
016256 046205 
046257 010630 
046260 000001 
016264 000001 
046262 046205 
016263 046446 
016264 035234 
016265 490000 
046266 090000 
OF BINARY CARD 
046267 090002 
046270 035224 
016271 035235 
046272 090000 
046273 777777 
046274 035235 
016275 090000 
016276 000004 
016277 046205 
046300 035235 
016304 044530 
0146302 046205 
0146303 035235 
016304 016446 
016305 016205 
046306 046446 
046307 035234 
016310 035235 
016341 000001 
016312 046205 
046343 046446 
016314 046447 
OF BINARY CARD 
016315 035234 
016316 090001 
0146317 016376 
016320 090000 
016321 777777 
016322 090000 
016323 046375 
016324 000005 
016325 035234 
016326 016446 
016327 016375 
046330 016345 
016334 046446 


17,863 


2220 
1n2o 
6000 
1020 
6019 
70y0 
2270 
7470 
7100 
2210 
0610 
2220 
7420 


0000uU282 


2220 
0420 
2200 
1000 
6010 
7270 
4470 
7470 
7490 
7270 
7000 
7400 
7210 
7440 
7400 
2240 
06140 
7270 
7470 
7400 
2210 
7440 


00000285 


0610 
7200 
4400 
2350 
3750 
9310 
7550 
1610 
1640 
7410 
0540 
6000 
2240 


ALGOL68 


5410 
5614 
54612 
5613 
5414 
5615 
5616 
5617 
5618 
5649 
5620 
5621 
5622 


5625 
5624 
5625 
5426 
5627 
5628 
5629 
5630 
5634 
5632 
5633 
5634 
5635 
5636 
5637 
5638 
5439 
5640 
5641 
5442 
5443 
5644 


5645 
5446 
5647 
5648 
5449 
5650 
5654 
5652 
5653 
5654 
5655 
5656 
5457 


DCq,1 


UG2 


DC3 


DG4 


DCS 


DBAL, 


DBALG 


PASS 2 


ASSTACK, | 
M$DEPR,DU 
DCi,1 
MSDEREF ,DU 


WS val vEsDu 
‘ 


201 
TSCODE 
ASSTACK; I 
0,2 
SERROR 
ASSTACK;)!] 
Q,2 

4,4 

DCL 
ASSTACK;! 
PCDR 

DCL 
ASSTACK, } 


PAGE 132 


GET TYPE OF COERCION IN XR = 2 

SEE IF DEPROCEDURING 

TRANSFER IF DEPROCEDURING 

SEE JF PEREFERENCING 

TRANSFER LF NEITHER TO LOOP 

MAKE ORIGINAL MODE POINTER ABSOLUTE 


GET DEREFERENCED OR DEPROCEDUREN MONE IN XR © 7 


AND STORE RESULT MODE IN VALUE CONTROL BLOCK 
AND LOOP 

GET POINTER TO VaLUE CONTROL BLOCK 

MAKE POYNTER ABSOLUTE 

GEy NEW HEADER FOR CONyROL BLOCK 

AND STORE IN VALUE CONTROL BLOCK 


GET POJATER TO CORESPONDING CODE 

MAKE CODE POINTER ABSOLUTE 

GET TYPE OF COERCION IN XR & 6 

SEe JF SAMG TYPE OF WORD IN CODE 

NO = COMPILER ERROR 

GET MOD® RGSULTING FROM COERCION 

AND STORE 4$N CODE WORD 

ALSO STORE AS MODE OF CONTROL BLOCK 

AND |,008 

GET MODE OF PROCEDURE IN XR = 7 

MAKE: VALUE INTO A PROCEDURE 

AND |,00R 

GET VALQE CONTROL BLOCK POINTER IN XR © 4 
AND STORE aS POYNTER TO CURRENT CONTROL BLOCK 
AND LOOP 

GET POJATER TO CURRENT VALUE CONTROL BLOCK 
MAKE POINTER ABSOLUTE 

GET MODE OF VALUE AFTER COERCING 

AND STORE JN VALUE CONTROL BLOCK 

AND OOP 

GET POJNTER YO CURRENT VALUE CONTROL BLOCK 
AND SAVE 


MAKE POINTER ABSOLUTE 

GET RANGE INFORMATION OR ZERO IN XR o 0 
AND SAVE 

GET NUMBER OF VaLUES IN BALANCED VaLUE 
ZERO OUT Aw 

GET NEGATIVE NUMBER FOR COUNTER 

AND STORE COUNT 

STEP TO PREVIOUS VALUE CONTROL BLOCK 

MAKE POENTER RELATIVE 

AND STORE NEW POINTER TO VALUE CONTROL BLOCK 
DECREMENT COUNTER 

TRANSFER tF LAST VALUE IN BALANCE 

GET POJNTER TO CURRENT VALUE CONTROL BLOCK 


01557 


END 


G1 0526-72 


2 
016332 090005 
016333 016446 
016354 016464 
046335 777777 
016336 016507 
016337 042375 
016340 046647 
0163414 042375 
046342 0170314 
END OF BINARY CARD 
046343 012375 
016344 016327 
016345 016447 
016346 016446 
016347 035234 
0463590 042513 
0246354 016464 
016352 046464 
046353 777777 
016354 046504 
016355 042375 
016356 0470314 
016357 042375 
016360 016446 
016364 035234 
0146362 0090002 
016363 000002 
016364 046376 
016365 016205 
016366 016376 
016367 016652 
0146370 012403 
OF BINARY CARD 
016371 016376 
016372 016655 
046373 042375 
016374 016440 
016375 000000 
016376 090000 
016377 016446 
016400 016447 
016404 035234 
016402 090000 
016403 777777 
016404 000000 
016405 016445 
016406 000005 
0146407 035234 
016410 016446 
016411 0170384 


17,863 


1610 
7410 
2390 
5750 
0730 
7000 
6350 
7090 


6350 


Qo000284 


7000 
7400 
2240 
7410 
0610 
7000 
2350 
0540 
3750 
0750 
7000 
6350 
7000 
2240 
0610 
23550 
0550 
7240 
6000 
2350 
0750 
7000 


00000285 


2350 
Q790 
7000 
7400 


00 


00 


00 
03 
00 
90 


000000 
000009 


2210 
7440 
0610 
2350 
5790 
5310 
7590 
1610 
1610 
7410 
2350 
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5658 
5659 
5660 
5661 
5662 
5663 
5664 
5665 


5666 


5667 
5668 
5669 DBAL2 
5670 
54671 
5672 
5673 
5674 
5475 
5676 
5677 
5678 
5679 
5680 
5684 
5682 
5683 
5684 
5685 
5686 
5687 
5668 


5689 
5690 
5694 
5692 
5693 DBaLCc 
5694 DBALT 
5695 DPAR 
5696 
5497 
5698 
5499 
5700 
5701 
5702 
5703 
5704 
5705 DPAR 


SBX4 
STX4 
LDA 
ANA 
ADA 
TSX0 
EAA 
TSXO 


EAA 


TSX0 
TRA 
LDX4 
STX4 
ADX4 
TSX0O 
LDA 
AOS 
ANA 
ADA 
TSXo 
EAA 
TSXO 
LDX4 
ADX4 
LDA 
ASA 
LXOa 
TZE 
LDA 
ADA 
TSXO 


LDA 
ADA 
TSX0 
TRA 
ZERO 
ZERO 
LDX4 
STX4 
ADX4. 
LDA 
ANA 
NEG 
STA 
SBX4 
SBX4 
STX4 
LDA 


PASS 2 


5, Du 

VALP 

GLBL 
w4ieDb 
OSJUMP, Dy 
ADD 
QSDELV 
ADD 


QSMA 


ADD 
DBAL1 
VAP 
VALP 
ASWORK 
DELWW 
GLBL 
GLBL 
74,04 
OSLBL,DU 


DBALT 
OSSRNGE, DU 
INS 


DBALT 
OSERNGE, DU 


VALP 
O$SFS,DU 
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GET POINTER TO PREVIOUS VALUE GONTROL BLOCK 
AND RESTORE POINTER 

GET A UNIQUE LAREL 

ZERO OUT au 

ADD JUMP GOMMAND 

AND ADD TRANSFER COMMAND aFTER VALUE 

GET DELETE VALUE COMMAND 

AND aDD AFTER CURRENT VALUE 


GET MAKE AVAILABLE VALUE COMMAND 


AND ADD aFTER CURRENT VALUE 

AND nee 

GET POINTER TO CURRENT VALUE CONTROL BLOCK 
RESTORE VALP 

MAKE POINTER ABSOLUTE 

COMBINE BALANCEM VaLUES INTO A SINGLE VALUE 
GET LABEL OF GENERATED TRANSFERS 

TNCREMENY LABEL GENERATOR 

ZERO OUT au 

ADD LABEL DEFINITION COMMAND 

AND ADD APTER VALUE 

GET MAKE AVAILABLE VALUE COMMAND 

AND ADD aFTER CURRENT VALUE 

GET POINTER TO CURRENT VALVE CONTROL BLOCK 
MAKE POINTER ABSOLUTE 

GET A 2 TO UPDATE VALUE LENGTH 

MAKE VALUE INCLUDE LABEL AND MA COMMAND 
GET POSSIBLE RANGE NUMBER IN XR & 4 

LOOP $F NO RANGE INFORMATION 

GET RANGE NUMBER IN AL 

ADD SRNG@E COMMAND 

AND [NS@RY IN FRONT OF BALANCED VALUE 


GET RANGE NUMBER IN AL 

ADD ERNGE COMMAND 

AND ADD AFTER BALANCED VALUE 

GO UPDATE LOC/LEN WORD 1N VALUE CONTROL BLOCK 


GET POJNTER TO VALUE CONTROL BLOCK 

AND SAVE 

MAKE POFNTER ABSOLUTE 

GET NUMBER OF VALUES IN PARALLEL DISPLAY IN aL 
ZERO OUT au 

MAKE ELBMENT COUNT NEGATIVE 

AND STORE AS CQUNT 

STEP TO PREVIOUS VALUE 

MAKE POINTER RELATIVE 

AND STORE aS POINTER TO CURRENT ELEMENT 
GET FORCE TO STACK COMMAND IN aU 
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2 PASS 2 
016412 012575 7NUD OV 5706 TSX0 ADD AND ADD AFTER CODE FOR CURRENT VALUE 
016413 046446 2210 Oy 5707 LDX4 VALP GET POINTER TO GURRENT VALUE CONTROL RLOCK 
016414 035234 0619 Oy 578 ADX4 ASWORK MAKE POINTER ABSOLUTE 
016415 vugngote 0540 11 5709 AOS 2a1 MAKE VALUE INCLUDE FORCE TO STACK COMMAND 
016416 777773 2210 08 5710 LDX4 75,DU GET MINUS LENGTH OF VALUE CONTROL BLOCK JIN XR ~ 4 
END OF BINARY CARD 00U0U286 
0146417 016446 0410 OU 5711 ASX4. VALP AND STEP TQ NEXT ELEMENT 
016420 016445 0540 00 5712 AOS DPART DECREMENT WEGATIVE COUNT 
016421 016411 6010 90 5713 TNZ DPARL TRANSFER IF MORE ELEMENTS TO DISPLAY VALUE 
016422 016447 2219 OV 5744 LDX4 VALPL GET SAVED POINTER TO DISPLAY VALUE CONTROL BLOCK 
016423 016446 7410 OY 5715 STX1 VALP AND RESTORE JT 
016424 035234 0610 Qu 5716 ADX4 ASWORK MAKE POTNTER ABSOLUTE 
016425 012513 7000 00 57147 TSX0 DELWW COMBINE DISPLAY INTO A SINGLE VALUE 
016426 0416446 2210 Ov 5718 LOX4 VALP GET POINTER TO VALUE CONTROL BLOCK 
0146427 035234 y610 Oy 5719 ADX1L ASWORK MAKE POINTER ABSOLUTE 
016430 000001 2350 $1 5720 LOA 1,1 GET MODE OF DISPLAY IN aU 
016431 000022 7710 00 5721 ARL 18 MOVE MODE TO AL 
016432 046445 7550 oY 5722 STA DPART SAVE FOR FUTURE USE 
0464353 016542 0750 05 5723 ADA OSDISP, Dy ADD START DISPLAY CODE 
046434 012403 7000 QU 5724 TSXO INS AND INSERF IN FRONT OF DISPLAY 
016435 046445 2350 OG 5725 LDA DPART GET MODE OF DISPLAY IN aL 
016436 016515 0750 O58 5726 ADA OSENTSP,DU ADD END DISPLAY CODE 
016437 012375 7000 O00 5727 TSXO ADD AND ADD AFTER DISPLAY CODE 
016440 046446 2210 00 5728 DPAR2 LDXL VALP GET POJNTER TO VALUE CONTROL BLOCK 
0146441 035234 0610 09 5729 ADX4 ASWORK MAKE POINTER aBSOLUTE 
016442 777776 3350 07 5730 LCA 72,DL GET (-4—¢ 22 INA 
016443 000002 0550 414 5731 ASA 24 AND ADD TO (LOC, LEN] WORD 
016444 016205 7400 90 5732 TRA pcu AND LOOP 
END OF BINARY CARD 00000287 
016445 000000 Q0u000 5733 DPART ZERO 
016446 000000 000000 5734 VALP ZERO 
016447 000000 000000 5735 VALP4 ZERO 
046450 000000 aououd 5736 CNDX ZERO 
016450 5737 CM@DE EQY CNDX 
016451 090000 dou0u0 5738 MNDX ZERO 
016451 5739 PLOC EQU MNDX 
016452 090000 000000 5740 MODE ZERO 
016453 090000 909009 5741 MODE, ZERO 
016454 090000 Qov009 5742 MUDE2 ZERO 
016455 000000 younud 5743 MODES ZERO 
016456 000000 Qo0u000 5744 OPDEF ZERO 
016457 000000 000008 5745 CNT ZERO 
016460 000000 900000 5746 DECLR ZERO 
016461 000000 900000 5747 DECL1 ZERO 
016462 090000 000009 5748 IUNT ZERO 
016463 000000 900000 5749 RELF ZERO 
016464 0090000 Qo0004 5750 GLBL ZERO Qe 
016465 000000 on00u0 57514 Lt ZERO 
016466 U90000 vounnd 5752 GIYPE ZERO 


016467 000000 onvo0gd 5753 MK ZERO 


U1557 


END 


END 


END 
END 


2 


016470 000000 


016471 0090000 
016472 0417160 
OF BINARY CARD 
016473 095564 
016474 090000 
016475 0090000 


OF BINARY CARD 


OF BINARY 


OF 


CARD 


BINARY CARD 


OF BINARY CARD 


OF BINARY CARD 


OF BINARY CARD 


OF BINARY CARD 


OF BINARY CARD 


016770 0090000 


17,863 


777777 
ouduo’ 
900002 
000004 
000010 
000920 
000040 
009100 
000200 
009400 

Q110 00 

7490 90 

00000888 

7400 Q0 

000009 

000000 


016476 
016476 
00000889 
0146523 
016534 
Oog00gv0 
016556 
oon00294 
016603 
016622 
00000292 
016644 


93 
ooree 652 
016674 
00000204 
016716 
00000295 
014743 
016746 
00000296 


014754 
go0002 
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5754 
5755 
5756 
5757 
5758 
5759 
5760 
5761 
5762 
5763 
5764 
5765 


5766 
5767 
5768 
5769 
5770 
5774, 
5772 
5773 
5774 
5775 
5776 
5777 
5778 
5779 
5780 


5781 
5762 


5783 


5784 
5765 


5766 


5787 
5768 


5769 


5790 
5791 


5792 
5793 


LANKO 
Fb 
FR 
PUEN 
zCOm 
MCOM 
ZCOL 
MCOL 
ZSEM 
MSEM 
DONE 


CFR 
OPT 
OPER 


OPERY 


#1 


OTBL 


RUW 


ZERO 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
NOP 

TRA 


YRA 
ZERO 
ZERO 
MACRO 
JDRP 
OPER 
JDRP 
&NDM 
MACRO 
ZERO 
UASC} 
ENDM 
HEAD 
EQY 
OPER 


OPER 
QPER 


OPER 


OPER 
OPER 


OPER 


OPER 
OPER 


QPER 


OPER 
QPER 


HEAD 
OPER 
ZERO 


PAGE 


SE$PASS3 GO TO PASS 3 


PSPCTBL GO PRIN® OWT INTERMEDIATE POLISH CODE 


#4 
#4 


OPER 
3584, 82 
2, #4 


OPERY 
Q 


* 
(OP (35), OPE(3),. 80061), JUMP(1),DISP(2),EDISP(2),ENTER(2)} 


(GOTOCSY,HIP(2)) 
(VOID¢2$,LGEN(22,HGEN(2),CONF (2), TF (4), CASE(1) ,CASGN(2)) 


(SELCT¢4),RSLCTC4),ETC(2),SKIP( 2) NILC29,9S(4),T5NTC4)) 


(TRUE (29, FALSE( 1)» MSCW(4),SDNTYCS), EDNTE(4)) 
(FORMP(S),TDENTES) ,DENOY (3), ASGN( 2), ASGNE(2)) 


CLRCLIALLECL) DEL V(2)) 


(SRNGE($),ERNGE (1), EPONGL),RETN(2),2PDV(2),EPDE(1)a 
(DLENCAS,VSBCT(L) s VLWE(4)  VUPB( 4) VNLWB(19,VEPFY(4)) 


(LWB(2),UPBCL) FIXG4) FLEx(1),SUB¢4),8US(¢),BOUND(¢)) 


(RBUS(2)) 
(DSuB(1$,DBUS(4)) 


ByM,0 
(PRIMC2),STBCT(2),REF (2), DEREF (2),ROW(2),MMI(4)) 
SSROW,2 
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ByM,O 


016776 
U 016776 000000 Onunu2 
017001 
END OF BINARY CARD 00000297 
017020 
END OF BINARY CARD Q0U00298 
017037 


400000 
200000 
109000 
040000 
020000 
040000 
069000 
760000 
004000 


ALGSL68 


5794 
5795 
5796 


5797 
5798 
5799 
5800 
5804 
5902 
5803 
5804 
5A05 
5806 
5807 


RUWE 


OTBLe 


VALUE 
SKIP 
NUL 
PAR 
MAL 
VAC 
MULT 
QsUCT 
OF 


QPER 
ZERO 
OPER 


QPER 


EQU 

HEAD 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
EQU 

EQU 

BOOL 


PASS 2 


(ROWE (2)) 
SSROWE ,2 
(PROC (2$,DEPR(2),UNION(2),XFER(2) ,EMPTY(1)) 


(MREF (1), CONE C1) gMAX(4)aMAC4),FS(4)) 


* 
W 

400n00 

200000 

100000 

040000 

020000 

010000 

PARsBAL 

MUL T#SKIP*NIL+ VALUE 
004000 


PAGE 


156 


01557 


END 


01 05°26-72 17,363 


iW 


4yu0000 
200000 
1v0004y 
040000 
N20u00 
910000 
0u4g00 
0u2000 
Oudg00 
009400 


0N0U16 
Ou0017 


017037 Go00000 dov0u0 
017040 Go0000 oounod 
017041 000000 Onudud 
017042 000000 vooouV0 
017043 000000 OovodoD 
017044 000001 OnQ0u0 
017045 000000 ooudu0 
090004 
017046 Op0000000000 
017047 Op0000000N0N 
017050 O00000000000 
017051 000000000000 
017052 do00000UN0N00N 
917053 Od90000000000 
017054 Od00000000N0N 
OF BINARY CARD Qo0U0U299 
017055 Op0000000N00N 
017056 O090000000U0N 
017057 000000 2210 00 
017060 000000 2220 00 
017061 000000 2230 09 
017062 000000 2240 O0 
017063 009000 2350 ov 
017064 000000 23600 og 
017065 0090000 2370 o0 
017066 000000 4310 00 
017067 0090000 4350 ou 
017070 0090000 7410 oy 
017071 000000 7420 ou 
017072 000000 74350 00 
0147073 000000 7440 OY 
017074 000000 7550 09 
017075 000000 7560 og 
017076 000000 75/70 oy 
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5808 
5809 
5810 
58141 
5812 
5813 
5814 
5815 
5816 
5817 
5818 
5819 
5820 
5821 
5822 
5823 
5824 
5825 
5826 
5827 
5828 
5829 
5830 
58314 
5832 


5833 
5834 
5835 
5836 
5837 
5838 
5839 
5840 
5844 
5842 
5843 
5844 
5845 
5846 
5847 
5848 


FC 
FU 


LD 


ST 


TTLS 
HEAD 
BOOL 
BOOL 
BOOQL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
HEAD 
BOOL 
BOOL 
WEAD 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
EQU 

OCT 


LDx4 
LDX2 
LDX3 
LDXx4 
LDA 
.DQ 
LDAQ 
FLD 
DFLD 
STX4 
STx2 
STX3 
STX4 
STA 
STO 
STAO 


PAGE 

PASS 3 

PASS 3 
8 
400000 DENOTATION 
200000 DEREFERENCED VALVE IN REGISTER 
100NU0 VALUE IS STORED IN STATIC WORKING STACK 
040000 VALUE [S OFFSET,LL 
020000 VALVE IS POINTED TO BY OFFSET,LL 
010000 OFFSET,LL JS IN LOCAL STACK 
004000 VALUE IS IN REGISTER 
yo2000 fA,B) JS VALUE 
0nin0o VALVE IS POINTED fO BY (A,B) 
000400 TEMPORARY ARRAY VALUE ON STACK 
Spb gR,0 
16 
17 
3 
1 
4 
050,0,0:020970.,020 


Qoococaqneaccecoccoco 
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3 PASS 3 
017077 vongno 4700 Ov 5849 FSTR 0 
Ui7100 uoodnd 45/70 Oy 5850 DFST if) 
017101 O0000000NU11 58@54 mud UCT 2101201351490 77 477077477977 


017192 on00000NU0U1e 
END OF BINARY CARD voudusyO 
017103 d0000000N01S 
017104 On90000000014 
017105 000000000077 
017106 0900000000077 
U17107 O000000U0\N7/ 


017110 000000000077 
017111 Oon000000077 
017112 vo0000001N00 5852 INST OCT 1000+2000150001400010,0r01000 
017113 o000000U200N 
017114 000000003u0u 
017115 vuod0000u0400Uu 
017116 Op0000000N0NU 
017117 O000000u00U0N 
017120 O9000000000N 
017121 O000N000000U 
047122 vood00g000U0N 


047123 017434 Onun00 5853 CHAN ZERO Xt 
017124 uv17435 yoodua 5854 ZERO x2 
047425 017436 Qoyoun 5455 ZERO X3 
017126 017137 QoudU0 5856 ZERO x4 
017127 017140 OQoOVDUN 5857 ZERO XA 
017130 017141 OoQOUD 5858 ZERO xo 

END OF BINARY CARD O0N0USU1 
017151 017142 QoUV0Ud 5859 ZERO XaQ 
017152 017142 ooUdUd 5860 ZERO XAQ 
017133 017142 Qoudun 5864 ZERO xXaQ 
017134 000000 d00000 5862 X14 ZERO 0,0 
017155 000000 Onuous 5863 x2 ZERO Ort 
017156 000000 QO0u0Ue2 5864 x35 ZERO 0,2 
017157 090000 0000048 5865 x4 ZERO 0.3 
017149 0171444 QouoU4 5866 XA ZERO XAQq54 
017141 017144 000005 5B67 Xu ZERO XaQe,5 
017142 017443 voUouUd 5268 XaQ ZERO #ot,4 
017143 017144 000005 5869 ZERO #a1,5 
017144 017145 ooudus 5870 X¥AQ4 ZERO 01,6 
017145 017146 0000U7 5874 ZERO @a 4 27 
017146 000000 000010 5872 ZERO 0.8 
047447 741000 000009 5873 STR ZERO S7Xe4#542,0 
017150 742000 o000u4 5874 ZERO STXe2051201 
017151 743000 gouvou2 5875 ZERO S™X030542.2 
017152 744000 oovoud 5876 ZERO S1X04054293 
017153 755090 O000U6 5877 ZERO STA,4 
017154 756000 vouous 5878 ZERO Sf¥Q,5 
017155 757000 Ooyous 5B79 ZERO STAQ,6 


017156 470000 000007 5880 ZERO FSTR4«7 


01557 04 05-26-72 


3 


17,803 


END OF BINARY CARD 00000302 


017157 


017150 
0171614 
017162 
017163 
017164 
017165 
017166 
017167 
017170 
017171 
017172 
0417173 
017174 
0147175 
017176 


457000 


017242 
035234 
095754 
016464 
000022 
035225 
0056635 
016464 
000012 
000000 
090001 
009000 
vgoodd 
000001 
017173 


00u010 
017160 
014000 
22000 
740009 
620000 
624900 
440000 
060000 
4100000 
25500 
25600 
237009 
450000 
755000 
756y00 
7579000 
65500 
075000 
116000 
451000 
470009 
453000 
457000 
710000 
254000 
736000 
6uN000 
604000 
000001 
000003 
0U0007 
0uH004 
000769 
45u0 900 
4500 56 
7470 OQ 
2390 09 
7320 00 
2210 05 
7000 00 
2350 OV 
7350 OO 
6200 > 
1750 97 
5202 O01 
4500 41 
1750 O¢ 
6050 00 
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5864 
5862 
5883 
5884 
5865 
5886 
5887 
5868 
5AG9 
5890 
5891 
5892 
54893 
5894 
5895 
5B96 
5897 
5R98 
5899 
5900 
5901 
5902 
5903 
5904 
5905 
5906 
5907 
5908 
5909 
5910 
5911 
5912 
5913 
5944 
5915 
5916 
5917 
5918 
5919 
5920 
5921 
5922 
5923 
5924 
5925 
5926 
5927 
5928 
5929 


PAS3R 


ZERO 
EQU 

B00 
BOOL 
BO0L 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
$TrZ 

STZ 

XED 

LDA 

ALS 

LDX4 
TSX0 
LDA 

ALS 

EAXO 
SBA 

RPTX 
STZ 

SBA 

TPL 


PASS 3 


DFSY,8 
e 

011000 
220000 
740000 
620000 
624000 
440000 
060000 
100000 
235000 
236000 
237000 
450000 
755000 
756000 
757000 
635000 
075000 
116000 
431000 
470000 
433000 
457000 
7140000 


CPNTR 
ASWORK, 1D 
TSWOVF 
2SGLBL 


8 

$SLBL.DU 
TSALOC 
2$GL8L 
1698 
OAL 
41,01 
et 
O,4 
1,DuU 
PAS3R 
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INITIALIZE CODE POINTER 

PAD BOTTOM OF WORKING STACK 

CHECK FOR STACK OVERFLOW 

GET NUMBER OF LABELS GENERATED IN AL 
MOVE TO au 

GET POINTER TO LABEL TABLE CONTROL WORD 
ALLOCATE SPACE IN LABEL TABLE FOR aLL LABELS 
GET NUMBER OF LABELS EN AL 

POSITION FOR COUNT IN REPEAT 

PUT COUNT JN XR @ Q 

MAKE ENB ECWECK WORK RIGHT 

STORE ZERO 

THROUGHOUT LABEL TABLE 

DECREMENT 256 COUNTER 

TRANSFER IF MORE To ZERO OUT 


01557 


END 


G1 JU5"26-72 


3 
0171477 627000 
0172U0 017474 
017201 090004 
G172U2 0647037 
017203 646470 
017204 023212 
END OF BINARY CARD 
017205 023175 
017206 017242 
017207 035224 
017210 0090000 
017211 017217 
017212 U17045 
017213 ugogng 
017214 v90000 
017215 017242 
017216 017206 
017247 035225 
0172290 6035225 
017221 000001 
017222 000000 
047223 035225 
017224 up00t1 
047225 000000 
017226 017241 
017227 090000 
047230 047224 
047231 017234 
047232 035226 
OF BINARY CaRD 
017233 000000 
017234 090000 
017255 000000 
0147236 090000 
017237 090000 
017240 0172359 
017244 024720 
017242 000000 
017243 777777 
047244 777777 
047245 777777 
047246 777777 
017247 777777 
017250 777777 
047251 047254 
047252 022241 
047253 023516 
017254 090000 
017255 017045 
017256 017344 


17,863 


2390 
7000 
6350 
7550 
7210 
75y0 


O0U00SUS 


7400 
72v0 
0600 
2350 
oou0 
7550 
22u0 
7000 
0540 
7400 
7210 
0610 
3350 
7550 
2210 
0610 
7220 
6040 
2250 
6000 
7450 
0650 


00000804 


Q7 
00 
00 
Ou 
00 
Qu 


Qu 
Ou 
00 
10 


90 


6240 i2 


1640 
2250 
7440 


6250 
7400 
7400 


Qs 
13 
t5 


15 
90 
00 


Q0u009 


7400 
7400 
7490 
7400 
7400 
7490 
7490 
7000 
7000 
7400 
7210 
7400 


90 
Oy 
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5930 
5931 
5932 
59338 
59354 
5935 


5936 
5937 
5938 
5939 
5940 
5941 
5942 
5943 
5944 
5945 
5946 
5947 
5948 
5949 
5950 
5951 
5952 
5955 
5954 
5955 
5956 
5957 


5958 
5959 
5960 
5961 


5962 
5963 
5964 
5965 
5966 
5967 
5968 
5969 
5970 
5971 
5972 
59735 
5974 
5975 
5976 
5977 


PAS3L 


PASZE 


Put 


RLS 


Pi.4 


PL5 
CPNTR 
STRCT 
REF 
MM! 
PROC 
XFER 
EMPTY 
oP 


OPX 
OPE 
OPEO 


LDA 
TSX0 
EAA 
STA 
XL 
STC2 


TRA 
LXLO 
ADXO 
LDA 
TZE 
STA 
LDXO 
TSXoO 
AOS 
TRA 
LXL4 
ADX4 
LCA 
STA 
LOXL 
ADX4 
XL, 2 
TM] 
LDX3 
4 
STX3 
ADX3 


EAX4 
SBX4 
LDXS 
STX4 


EAX3 
TRA 
TRA 
ZERO 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
STX0 
TSX0 
TSX0 
TRA 
LXud 
STXO 


PASS 3 


=0627000,DL 
GAD 

4 

SP 

2SLINKQ 
SRNGX 


SRNGY 
CPNTR 
TSCODE 
0,0 
PASZE 
PARAM 
Q,AU 
0,0 
CPNTR 
PaS3l, 
TSLBL 
TSLBL 


“4,0L 


Oat 
TSLBL 
4,0u 
0,1 
PLS 
Or1 
Pha 
PL4 
TSGEN 


0.2 
#e,DU 
0,3 
0.3 
0,5 
PLS 
ETYP 


SERROR 
SERROR 
SERROR 
SERROR 
SERROR 
SERROR 
OPX 
[DENT 
MSCW 
en 
PARAM 
OPEX 
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GET EAX D,## COMMAND 

PAD BOTTOM OF GENERATED INSTRUCTIONS 

GET LENGTH OF MSCW IN au 

AND STORE aS INITIAL STACK POINTER 

GET POINTER TO LLo CHAIN OF DECLARATIONS 
SAVE RETURN 


GO MAKE BLOCKS FOR ALL LiLO VALUES 

GET CURRENT CODF POINTER IN XR = 9 

MAKE POINTER ABSOLUTE 

GET NEXT CODE WORD IN a REGISTER 

TRANSFER IF END OF PASS 3 TO CLFANUP 

STORE CODE WORD IN STANDARD LOCATION 

GET ANURESS OF APPROPRIATE ROUTINE IN XR @ O 
AND TRANSFER TO APPROPRIATE SUBROUTINE 
INCREMENT CODE POINTER 

AND LOOP 

GET LENGTH OF LABFL TABLE JN XR # ¢ 

ADD LOCATION TO GET POINTER TO ENN OF TaBLEeE 
GET A MINUS ONE 

AND STORE AY END OF LABEL TABLE 

GET POINTER TO STARY OF LABEL TABLE 

STEP TO NEXT ENTRY IN LABEL TABLE 

GET VALUE QF LABEL IN XR = 2 

TRANSFER YF AT END OF LABEL TABLE 

GET ADDRESS OF FIRST INSTRUCTION WITH LABEL 
TRANSFER {F NO MORE INSTRUCTIONS WITH THIS LABEL 
SAVE VALUE OF ADDRESS OF INSTRUCTION 

GET ABSOLUTE ADDRESS OF INSTRUCTION TO MODIFY 


GET VALUE OF LABEL IN XR = 4 

MAKE LABEL RELATIVE TO INSTRUCTION ADDRESS 

GET ADDRESS OF NEXT INSTRUCTION USING THIS LAREL 
STORE LABEL IN CURRENT INSTRUCTION 


MAKE NEKT INSTRUCTION ADDRESS CURRENT 
AND OOP 
COMPILATION COMPLETE = GO TO LOADER 


SAVE RETURN 

GET OPERATOR aS PROCEDURE IDENTIFIER 

MARK THE STACK TO PREPARE FOR OPERATOR ENTRY 
AND RETURN 

GET POINTER TO pEFINITION OF OPERATOR 

SAVE RETURN 


01557 


EnD 


END 


END 


01 526-72 
3 


017257 U35220 
017260 000002 
OF BINARY CARD 
017261 017354 
017262 000003 
017263 017424 
017264 035234 
017265 000004 
0147266 017345 
017267 017431 
017270 017426 
047271 047354 
017272 0149630 
0147273 777777 
017274 90003 
017275 017303 
047276 000004 
047277 017345 
017300 017430 
017301 017425 
017302 021007 
017303 021007 
017304 047354 
017305 010630 
0147306 777777 
OF BINARY CARD 
047307 777777 
017310 020377 
0147331 00900004 
017312 0vg0000 
017343 000017 
017314 017432 
017315 dg00t0 
017316 017637 
017317 000010 
0417320 017721 
017321 017403 
017322 017427 
0147323 017326 
017324 100000 
0147325 0173543 
017326 000000 
017327 010630 
017330 035216 
017334 047355 
017332 024300 
0147333 O90000 
017354 777777 
OF BINARY CARD 
047355 777776 
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0610 
22/0 


Q0un0S 05 


7470 
2220 
7420 
2260 
1660 
7090 
7550 
7500 
2270 
7000 
22u0 
10y0 
60u0 
1660 
70y0 
7550 
7560 
7000 
700 
2270 
70u0 
0670 


00000406 


2270 
7000 
2350 
6320 
0750 
7550 
2220 
70U0 
2220 
7000 
70u0 
2340 
6000 
2250 
7490 
7270 
7000 
1670 
2210 
5292 
1070 
6010 


000003507 


2390 


00 
41 


17 
90 
16 
02 
07 
00 
05 
90 
0S 
80 
90 


41 
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5978 
5979 


5980 
5984 
5982 
5983 
5984 
5985 
5986 
5987 
5988 
5989 
5990 
5994 
5992 
5993 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
6002 


6n02 
6003 
6004 
6005 
6906 
6007 
6908 
60N9 
6010 
6011 
6012 
6013 
6014 
6015 
6016 
60147 
6018 
6019 
6020 
6021 
6022 
6023 


624 


OPE4 


OPE? 


ADX4 
LDX7 


STX7 
LDxX2 
STX2 
LDXx6 
SBX6 
TSX0 
STA 
STQ 
DX7 
TSx0 
LOx0 
CMPXQ 
TZE 
SBX6 
TSX0 
STA 
STQ 
TSX0 
TSxo 
LDX7 
TSxo 
ADX7 


LDX7 
¥SXo 
LDA 
EAA 
ADA 
STA 
LDX2 
TSX0 
LDx2 
TSX0 
TSX0 
SZN 
TZE 
LOx5 
TRA 
L, XL, 7 
TSX0 
SBX7 
\DX4 
RPT 
CMPX7 
YNZ 


LDA 


PASS 3 


TSDEF 
2.1 


QPEM 
3,4 
NXT 
ASWORK 
WL» DU 
OPES 
BADDR 
BFLAG 
QPEM 
ASXFER 
447 
3,Du 
QPEq 
WL,»DU 
OPES 
AADDR 
APLAG 
DELV 
DELV 
OPEM 
ASXFER 
e4,7 


"4197 
MBLK 
1,6 

0» AU 
D,OL 
TADDR 
8,0DuU 
GET 
8,DU 

DR 

MaC 
TFLAG 
OPE2 
BSFc,Dy 
OPES 
0,6 
ASXFER 
TSMODE 
OPET,DU 
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MAKE DEFINITION POINTER ABSOLUTE 
GET MODE OF QPERATOR 


AND SAVE OPERATOR MODE FOR FuTURE USE 
GET POINTER TO MACRO FOR THIS OPERATOR 
AND STORE FOR MACRO PROCESSOR 

GET POINTER TO END OF WORKING STACK 

GET POINTER TO LAST BLOCK IN WORKING STACK 
MAKE VALUE AVAILABLE TO MACRO PROCESSOR 
STORE ABDRESS OF VALUE 

STORE FLAG FOR aCCUMULATOR 

GET MODE OF OPERATOR 

MAKE MODE POINTER UNIQUE AND ABSOLUTE 
GET LENGTH OF MODE IN XR « O 

IS If aA PROCEDURE WITH ONE PARAMETER 
TRANSFER tf UNARY OPERATOR 

GET POJNTER TO SECOND TO LAST BLOCK 
MAKE VALUE AVAILABLE TO MACRO PROCESSOR 
STORE ABDRESS OF VALUE 

STORE FLAG FOR ACCUMULATOR 

DELETE A BLOCK FROM THE WORKING STack 
DELETE A BLOCK FROM THE WORKING STack 
GET MODE OF QPERATOR 

MAKE MODE POINTER UNIQUE AND aBSOLUTE 
GET POINTER TO END OF OPERATOR MODE 


GET MODB OF RESULT OF OPERATOR 

MAKE A BLOCK FOR THE RESULT 

GET ADDRESS OF STACKED RESULT IN aW 
ZERO OUT AL 

ADD D REGISTER MODIFICATION 

AND STORE aS TEmP ADDRESS 

GET EAQ REGISTER CONTROL NUMBER 

AND MAKE ALL OTHER USE OF IT TRRMINATE 
GET EAQ REGISTER CONTROL NUMBER 

AND RELEASE [Tf 

CALL MACRO PROCESSOR 

SEE JF RESULT IS STACKED OR IN ACCUMULATOR 
TRANSFER tf RESULT IS IN REGISTER 

GET STACKED VALUE BIT 

AND GO ¥o STORE [T 

GET MODE OF RESULT 

MAKE MOPE POINTER UNIQUE AND aBSOLUTE 
MAKE {7 RELATIVE 

GET ADDRESS OF START OF TABLE IN XR «© BS 


OPETE/2m0PET/2,2,1TZE SEARCH FOR MODE IN TABLE 


0,1 
SERROR 


2a 


COMPARE MODE WITH TABLE ENTRY 
MODE NOY IN TABLE - MACRO ERROR 


GET STORE INSTRUCTION IN AL 
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041 05726-72 


17,865 
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3 PASS 3 
017356 777777 $750 O07 6f25 ANA “1eDL ZERO OUT AY 
017337 000003 7550 16 6926 STA 346 AND STORE IN VALUE BLOCK 
017340 777777 2220 41 6N27 LNX2 “Let GET REGISTER CONTROL NUMBER FOR VALUE 
017344 017637 7000 90 6028 TSXO GET AND ALLOCATE REGISTER FOR VALUE 
0147342 004000 2250 03 629 LDx5 BEFG,DU GET VALUE IN ACCUMULATOR BIT 
017343 O0N000 7450 16 6930 UPE3 STX5 0,6 STORE FLAGS JN BLOCK 
617344 000000 71u0 90 6031 UPEX TRA ae AND EXIT 
017345 017353 7400 8u 6932 OPES STXu QPESX SAVE RETURN 
U17346 Uu20204 70U0 OV 6033 TSXO MVA MAKE VALUE AVAILABLE 
017347 017352 71409 Ou 6034 TRa OPES4 TRANSFER JF VALUE 1S IN ACCUMULATOR 
017350 090000 2360 43 635 LDQ Q,0U GET NOT IN ACCUMULATOR FLAG 
017351 0173553 7109 aN 6036 TRA OPESX AND RETURN 
017352 000001 2360 Q8 637 UPES1 {Na 1,0u GET VALYE IN ACCUMULATOR FLAG 
017353 000000 7100 99 6938 OPESX TRA #e AND RETURN 
017354 090000 vounnd 6039 UPEM ZERO 
017355 090003 7560y0 6140 OPET ZERO M$BOOL, STO 
017356 000005 2360u0 6044 ZERO 2,LDQ 
017357 000005 7560u0 6042 ZERO MSCHAR,STQ 
017360 000005 2360y0 6043 ZERO 3,600 
017361 090007 756000 6n44 ZERO MSINT,S¥Q 
017362 000005 236000 6045 ZERO 5,.DQ 

END OF BINARY CARD 00000808 
017363 000041 470000 6046 ZERO MSREAL,FSTR 
017364 000007 433000 6047 ZERO 7,FLD 
017365 000014 756000 6048 ZERO M$BITS,STO 
017366 000005 2360u0 6049 ZERO 5,400 
017367 000016 7560u0 6050 ZERO MSBYTES,STO 
017370 000005 236000 654 ZERO 5,4DQ 
017371 000020 7570u0 6052 ZERO MSLINT,STAQ 
017372 000006 237000 6053 ZERO 6,LDAQ 
017373 000022 457009 6054 ZERO MSLREALGDFST 
047374 090010 433000 6n55 ZERO 8,DFLD 
017375 000025 757000 6056 ZERO MSLBITS;STAQ 
017376 000006 237000 6057 ZERO 6b NAQ 
017377 000027 7570u0 6058 ZERO MSLBYTSsSTAQ 
017400 0090006 2370y0 6059 ZERO 6LDAQ 
0174041 6060 OPETE €EQU . 
047404 047423 7400 00 6064 MAC STXO0 MACX SAVE RETURN 
017402 017424 6350 56 6062 MACQ EAA NXT, ID GET ADDRESS QF NEXT WORD IN MACRO 
0147403 035234 0750 00 6063 ADA TSZ272 MAKE ADDRESS ABSOLUTE 
017404 090000 2320 04 6064 LDA Q.,AU GET NEX? WORD OF MaCRO IN A REGISTER 
017405 0090000 6360 05 6065 EAQ 0,AL MOVE OPEODE TO OU 
017406 000033 7720 00 6066 QR 9ei8 MOVE OPCODE TO OL 
017407 000760 1760 07 6167 $80 OTP, DL SUBTRAC? LOWEST SPECIAL OPCODE 
017410 000006 1160 97 6068 CMPQ OPTEOP¥, DL 
END OF BINARY CARD 00000809 

017411 017433 6020 06 6069 TNC OPT QL TRANSFER YQ SPEGJAL ROUTINE IF SPEcIAL OP COpE 
017442 760337 6200 01 6070 EAXO wOTAB, AU GET ADDRESS MINUS LOWEST SpECIAL ADDRESS IN X ~ Q 
017443 000093 1000 O08 6074 CMPXQ OTABEwOVAB, DU SEE IF ADDRESS 1S SPECIAL 
017414 017441 6020 10 6972 TNC OTAB,0 TRANSFER TO SPECIAL ADDRESS ROUTINE IF SPECIAL 
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3 PASS 3 
047415 0001400 3150 97 6073 MAC1 GANA 20100,DL CHECK INSTRUCTION FOR STOP BIT 
017416 017421 6010 00 6074 TNZ MAC2 TRANSFER IF STOP BIT IS ON 
017417 017474 70u0 90 6075 TSXO GAD ADD CONTENTS OF A REGISTER TO OUTPUT CODE 
017429 017402 7400 900 6076 TRA MACO AND LOOP TO PICK UP NEXT WORD 
0174241 000100 6750 07 60177 Mac2 ERA =0400.DL TURN OFF SYOP BIT IN A REGISTER 
U17422 017474 7000 00 6n78 TSX0 GAY ADD CONTENTS OF A RGGISTER To OUTPUT COpE 
017423 000000 7100 9u 6979 MACX TRA oe AND RETURN 
017424 000000 000000 6080 NXT ZERO 
017425 000000 oovoud 6081 AFLAG ZERO 
017426 Yo0000 Qov0ue 6082 BFLAG ZERO 
017427 000000 000000 6083 TFLAG ZERO 
017430 000000 Qo00u8 6084 aAADDR ZERO 
017451 Q00000 000009 6085 BADDR ZERO 
017432 000000 o0Q0009 6086 TADDR ZERO 
017433 6087 OPF EQU « 
017433 017444 7490 90 6088 [FA TRA TFaAq BRANCH {Ff A OPERAND IS IN ACCUMULATOR 
0174354 047447 7400 O0 6069 JNA TRA INAq BRANCH ff A&A OPERAND JS NO? IN aCCUMULATOR 
0174355 047452 7400 90 6090 FB TRA IFBq BRANCH IF B OPERAND JS IN ACCUMULATOR 
017436 017455 7400 00 6091 INB TRA INBa BRANCH §F B OPERAND IS NOT IN ACCUMULATOR 
END OF BINARY CARD O0y00ga10 
017437 017460 7400 00 6092 JMP TRA JMP4 UNCONDIFIONAL JUMP 
017449 0147423 7400 OY 6093 STOP RA MACX EX]T MACRO PROCESSOR 
012441 6094 OPTE §OU « 
017444 6095 OTAB E&Qy « 
6096 HEAD 342 
017441 017463 7100 60 6097 A TRA Ad LEFT OPBRAND IF NOT IN ACEUMYLATOR 
017442 017466 7100 90 6098 B TRA B41 RIGHT ORERAND IF NOY IN ACCUMULATOR 
017443 017474 71400 G0 6099 T TRA T4 TEMPORARY STORAGE IF NOT IN aCCUMULATOR 
6100 MEAD 3 
017444 6401 OTABE EQY * 
017444 017425 2340 00 6402 IFay S$ZN AFLAG SET INDECATORS ON a ACCUMULATOR FLAG 
017445 017402 6000 a0 6103 TZE MACO TRANSFER {Ff NOT IN ACCUMULATOR 
047446 017460 71400 00 6104 TRA JMPq GO TQ JWMP ROUTINE 
017447 017425 2340 00 6405 INKY ZN AFLAG SET INDICATORS ON & ACCUMULATOR FLAG 
047450 017402 6040 00 6106 INZ MaCo TRANSFER IF IN ACCUMULATOR 
0147454 017460 7400 G0 6107 TRA JMP4 GO TO JyMP ROUTINE 
017452 017426 2340 00 6408 FB, SZN BFLAG SET INDECATORS ON B ACCUMULATOR FLAG 
017453 017402 6000 900 6109 TZE MACo TRANSFER If NOY IN ACCUMULATOR 
0147454 017460 7400 90 6410 TRA JMPy GO TO YMP ROUTING 
0174955 017426 2340 00 6414 INBq  SZN BFLAG SET INDICATORS ON B ACCUMULATOR FLAG 
017456 017402 6610 00 641 TNZ MaCo TRANSFER fF IN ACCUMULATOR 
017457 017460 7400 00 6113 TRA JMPq GO TO YWMP ROUTING 
017460 6777777 6350 91 6414 JMPy = EAA 74, AU CORRECT FOR [NCREMENTING TALLY WORD AFTER FETCH 
017464 017424 9550 09 6415 ASA NXT ADD YO YALLY TO CAUSE RELATIVE JUMP 
017462 017402 7400 Ov 6116 TRA MACO AND CONVINWE 
047463 777777 3750 07 64147 AL ANA e4,0L ZERO OUF ADDRESS FIELD 
017464 017430 0750 00 6418 ADA AADDR ADD A ABDRESS WITH INDEX REGISTER 
END OF BINARY CARD 00000311 
017465 017415 7100 00 6119 TRA MAC4 TRANSFER TQ CONTINUE PROCESSING 


017466 777777 3750 97 6120 81 ANA e4eDbh ZERO OUT ADDRESS FIELD 


0155? 


END 


3 
047467 017431 
017470 017415 
017471 777777 
017472 017432 
017473 0174145 
017474 017505 
017475 017506 
017476 035214 
017477 090000 
017500 U35226 
0147501 005663 
017502 vu35214 
017503 017506 
047504 777777 
017505 000000 
0147506 000000 
017507 017513 
017510 017516 
047511 017516 
0147512 017514 
OF BINARY CARD 
017513 000090 
017514 017474 
047515 047541 
017516 000000 
017517 017600 
017520 017602 
047521 010639 
047522 777777 
017523 0147600 
0497524 777777 
017525 047602 
047526 017603 
047527 777777 
0475350 047541 
017534 017600 
047532 047602 
0147533 017602 
017534 017600 
017535 010630 
047536 777777 
017537 017600 
047549 000001 
OF BINARY CARD 
047541 017604 
017542 017605 
017543 017053 
017544 047552 
047545 236000 
017546 0147602 
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U7>50 OU 
7400 OU 
3750 97 
U750 00 
74y0 QU 
7400 OU 
7550 00 
1660 09 
6350 00 
2210 93 
70u0 90 
0669 OU 
2350 00 
7550 $1 
7400 00 
000000 
7400 00 
7550 00 
2350 56 
6070 00 
00000342 
7100 90 
7000 90 
7400 00 


000000 
7400 90 
7570 00 
7000 09 
7270 4&7 
6000 90 
6200 47 
0400 90 
0400 00 
2200 0S 
7400 00 
7400 Ov 
7570 09 
1160 00 
6000 OY 
7000 90 
7270 47 
6000 90 
2200 OS 
00u00513 
74U0 060 
4500 Oo 
2200 O09 
6040 OU 
2350 97 
0550 90 
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6424 
6422 
6123 
6124 
6125 
64126 
6127 
6128 
6129 
6130 
6131 
6432 
61338 
6134 
6135 
6136 
6137 
6138 
61439 
6140 


6141 
6142 
6143 


6144 
6145 
6146 
6447 
6448 
6149 
6150 
6154 
6152 
6153 
6454 
6455 
6456 
6457 
6458 
6459 
6160 
61614 
6462 


6463 
6164 
6165 
61466 
6167 
6168 


Tl 


GAD 


GADX 
GADT 
GADL 


GADLO 


GADLX 
GADL4 


GADLT 
MOVEB 


MOVE 


MOVBL 


PASS 3 


BADDR 
MACY 
7i,DL 
TADDR 
MACY 
GAUX 
GADT 
TSWORK 
iv) 
TSGEN, DU 
TSALOC 
TEWORK 
GaDTt 
rLat 


GADLX 
GADLT 
GADLT, ID 
GADL1 


4 
GAD 
GAULO 


MOVEX 
MOVET 
ASXFER 
e197 
MOVEX 
71,7 
MOVET 
MOVETat 
74,DVU 
MOVBL 
MOVEX 
MOVET 
MOVET 
MOVEX 
ASXFER 
=447 
MOVEX 
1,0uU 


MOVED 
MOVEF 
REGs5 
MOVE 
LDQ,DL 
MOVET 
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ADD B ABDRESS WITH INDEX REGISTER 

TRANSFER TO CONTINUE PROCESSING 

ZERO OUT ADDRESS FIELN 

ADD T ADDRESS WITH INDEX REGISTER 

TRANSFER TQ CONTINUE PROCESSING 

SAVE RETURN 

SAVE WORD TO BE ADDED TO GENERATED CODE 
MAKE WORKING STaCK POINTER RELATIVE 

GET NUMBER OF WORDS TO ADD MINUS ONE IN AU 


GET POINTER TO GENERATED CODE TABLE CONTROL WORD 


ALLOCATE ONE WORD JN GENERATED CODE TABLE 
MAKE WORKING STACK POINTER ABSOLUTE 

GET WORD TQ BE AaDDEO 

AND STORE AT END OF GENERATED CODE TABLE 
AND RETURN 


SAVE REFURN 

STORE TALLY WORD To CODE 

GET NEXY WORD TO aDD TO GENERATED CODE 
TRANSFER IF THERE IS ANOTWER WORD 


NO MORE WORDS To apDD SO EXIT 
ADD WORD ?Q GENERATED CODE 
AND LOOP 


SAVE RETURN 

SAVE SOURCE AND DESTINATION ADDRESSES 

MAKE MODE POINTER UNIQUE AND ABSOLUTE 

GET LENGTH OF VALUE IN XR = 7 

GO TO EXIT? IF NOTHING TO MOVE 

GET NUMBER OF WORDS TO MOVE m1 IN XR ~ 0 

MAKE SOURCE POINTER POINT TO END OF VALUE 
MAKE DESTINATION POINTER P@INT TO END OF yALUE 
GET ADDRESS INCREMENT FOR MOVE 

AND GO ¥O MOVE ROUTINE 

SAVE RETURN 

SAVE SOWRGE AND DESTINATION ADDRESSES 

ARE SOURCE AND DESTINATION ADDRESSES TAME SAME 
YES e RETURN 

MAKE MODE POINTER UNIQUE AND ABSOLUTE 

GET LENGTH OF VaLUE IN XR @ 7 

GO TO EXIT? IF NOTHING TO MOVE 

GET ADDRESS JNCREMENT FOR MOVE 


AND STORE §N MEMORY 

INITIALIZE RESTORE A REGISTER PLAG 
GET Q REGISTER USE WORD 

TRANSFER $f Q REGISTER IS IN USE 
GET LDQ INSTRUCTION 

AND PUT IN SOURCE ADDRESS WORD 


0155? 01 0526-72 17,863 ALGOL68 PAGE 145 


3 PASS 3 
017547 756000 2359 O7 6169 LDA STQ,DL GET STQ INSTRUCTION 
017550 017603 0550 OO 61470 ASA MOVET#4 AND PUT IN DESTINATION ADDRESS WORD 
017551 017563 71y0 au 6171 TRA MOVES GO GENERATE MOVE INSTRUCTIONS 
017552 017052 2200 09 6172 MOVEL {LDx0 REGe4 GET aA REGISTER USE WORD 
617553 017557 6040 OY 64173 TZE MOVE2 TRANSFER IF a REGISTER IS FREE 
017554 047606 2350 og 6474 LDA STAT GET STA TEMP INSTRUCTION 
047555 017474 7ov0 OV 6475 TSXO GAD AND PUT IN GENERATED CODE 
017556 047605 75y0 OY 6176 STc2 MOVEF SEY FLAG TO RESTORE A REGISTER 
017557 235000 2350 a7 6477 MOVE2 LDA LDA, OL GET LDA INSTRUCTION 
017560 0417602 0550 OV 6478 ASA MOVET AND PUT 3N SOURCE ADDRESS WORD 
017561 755000 2350 07 6179 LDA STA,DL GET STA INSTRUCTION 
017562 047603 U550 00 6480 ASA MOVET+#1 AND PUT IN DESTINATION ADDRESS WORD 
017563 0417602 2350 OY 61461 MUVES LDA MOVET GET SOURCE FETCH INSTRUCTION 
047564 017474 7000 OV 6182 TSX0 GAD AND ADD TO GENERATED CODE 
017565 047603 2350 00 6183 LDA MOVETet4 GET DESTINATION STORE INSTRUCTION 
017566 017474 7ouo OV 6164 TSXo0 GAD AND ADD TO GENERATED CODE 
END OF BINARY CARD 00000314 
017567 047604 22y0 OY 6185 LDX0 MOVED GET MOVE INCREMENT IN XR » 0 
017570 017602 O4y0 Ou 6186 ASXO0 MOVET INCREMENT SOURCE FETCH INSTRUCTION 
017571 017603 0490 OY 6487 ASXO MOVE Tey INCREMERY DESTINATION STORE INSTRUCTION 
017572 000001 1670 08 6488 SBX7 4,Du DECREMENYT NUMBER OF WORDS LEFT TO MOVE 
017573 017563 6n10 00 6489 TNZ MOVES TRANSFER {F MORE WORDS TO MOVE 
017574 017605 2340 oY 6190 S$ZN MOVEF CHECK RESTQRE A REGISTER FLAG 
017575 017600 6000 90 6494 TZE MOVEX TRANSFER IF NOTHING TO RESTORE 
047576 047607 2350 O09 6492 LDA LDAY GET LDA TEMP INSTRUCTION 
017577 017474 7000 OO 6493 TSX0 GAD AND ADD TO GENERATED CODE 
047600 000000 7400 00 6494 MOVEX YRA ae 
017601 000000011007 
017602 6495 EVEN 
017602 dg0000000Q00 6196 MUVET OCT 0.0 
017603 d00000000N00 
017604 000000 Qoyoud 6497 MOVED ZERO 
017605 000000 goyoua 6498 MUVEF ZERO 
017606 000046 7550 00 6499 STAT STA 38 g#e# TEMPORARY LOCATION 
017607 000046 2350 00 6200 LDAT LDA 36 #### TEMPORARY LOCATION 
0147610 090004 6220 OV 6204 GA EAX2 4 GET POINTER TO « REGISTER CONTROL WORD 
017641 017637 7400 OY 6202 YRA GET AND GO ALLQCATE REGISTER 
0147612 000005 6220 OY 6203 Gu EAX2 5 GET POINTER TO @ REGISTER CONTROL WORD 
017613 017637 7440 OV 6204 YRA GET AND GO ALLOCATE REGISTER 
017614 000006 6220 Q9 6205 GAG EAX2 8 GET POINTER TO aQ REGISTER CONTROL WORD 
END OF BINARY CARD 00000415 
017615 017637 7490 00 6206 YRA GET AND GO ALLOCATE REGISTER 
617616 000007 6220 Oy 6207 GEA EAX2 7 GET POINTER TO €a(Q) REGISTER CONTROL WORD 
017617 01417637 7490 OY 6208 TRA GET AND GO ALLQCATE REGISTER 
017620 090010 6220 Oy 6209 GEAQ EaX2 8 GET POINTER TO EA~Q REGISTER CONTROL WORD 
017621 047637 7400 OV 6210 TRA GET AND GO ALLOCATE REGISTER 
017622 0090000 2210 O8 6211 GXR LDX1 G,DU GET POINTER TO FIRST X REGISTER CONTROL WORD 
047623 777777 2250 93 6212 LDX3 e4,DU GET MAX NUMBER IN XR w 3 
047624 047046 10350 $1 62143 GXRy CMPX3 REG,4 CHECK CURRENT REGISTER FOR LEAST RECENT USE 


017625 0176390 6020 00 6214 TNC GXR2 TRANSFER IF NOT LEAST RECENT USE 
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3 PASS 3 

047626 U17046 2250 1 6215 LDX3 REG, 4 GET NEW REGISTER TO COMPARE AGAINST 

U17627 UQO0U0O 6220 $2 6216 EAX2 Url SAVE CONTROL WORD POINTER IN XR - 2 

017659 Ugn001 0610 O48 6247 GXR2 ADX4 1,DU STEP TO NEXT X REGISTER 

017631 Uon0N4 1010 OS 6218 CMPX1 8 4,Du CHECK JF ALL REGISTERS CHECKED 

017632 017624 6910 OV 6219 TNZ GXRq TRANSFER IF MORE X REGISTERS TO CHECK 

017633 017101 2350 42 6220 LDA MOD,2 GET MODIFICATION FOR: CHOSEN REGISTER 

017634 017664 7550 09 6221 STA XREGM AND STORE FOR OTHER ROUTINES 

017635 047112 2350 12 6222 LDA INST,2 GET INSTRUCTION FOR CHOSEN REGISTER 

017636 017663 7550 00 6223 STA XREGI AND STORE FOR OTHER ROUTINES 

017637 017662 7400 OU 6224 GET STXO GXRX SAVE RETURN 

017640 017046 62N0 Ye 6225 EAXO REG, 2 GET ASSOLUTE POINTER TO REGISTER CONTROL WORD 

017641 017654 7490 90 6226 STXG GXR4 AND SAVE FOR FUTURE UPDATE 

017642 017423 6200 {2 6227 EAXO CHAN) 2 GET POINTER TO CHAIN FOR THIS REGISTER 
END OF BINARY CARD 00000316 

017643 017652 7400 90 6228 STXO GXR5 AND STORE FOR FUTURE USE 

017644 017046 2250 12 6229 LDXx3 REG,2 GET CURRENT REGISTER CONTROL WORD 

017645 047647 60U0 OU 6230 YZE GXR3 TRANSFER {tf REGISTER 1S FREE 

017646 017730 7000 OD 6234 TSX0 PURGE MAKE REGISTER FREE 

017647 Un00ng 62N0 16 6232 GXR3  =-EAXO 016 GET POINTER YO CURRENT RLOCK IN XR ~ 9g 

017650 035214 16y0 Ov 6233 SBX0 TSWORK MAKE POINTER RELATIVE 

017651 0090000 74u0 oy 6234 GXR4 STXo #+ STORE POINTER IN CONTROL WORD 

017652 Ug0000 2210 OO 6235 GXR5 LDXt en GET POINTER TO FIRST WORD IN CHAIN 

017653 000000 7220 $1 6236 GXR6 LXL2 Url GET CONFLICTING REGISTER POINTER IN XR ~ 2 

017654 017046 2340 12 6237 SZN REG, 2 1S THIS REGISTER IN USE 

017655 017660 6040 00 6238 ™NZ GXR? TRANSFER IF JN USE 

027656 490000 2200 03 6239 LDXx0 ®0400006,DU GET A CONFLICT FLAG 

017657 017046 7400 42 6240 STX0 REG, 2 AND STORE CONFLICT FLAG 

017660 000000 2240 $1 6244 GXR7 =| DX4 Ord STEP TO NEXT WORD IN CHAIN 

017661 017653 6010 00 6242 TNZ GXRS TRANSFER If THERE ARE MORE WORDS IN CHAIN 

017662 0090000 7400 Ou 6243 GXRX TRA “* AND EXIT 

017663 090000 000000 6244 XREG!I ZERO 

017664 090000 goyoud 6245 XREGM ZERO 

017665 017672 7490 00 6246 Che STXO CLix SAVE RETURN 

017666 290000 3050 OS 6247 CANXS BSFB,DU 1S DEREFERENCED VALUE STORE COMMAND IN 4,6 

017667 017671 6000 00 6248 TZE Chia TRANSFER IF NOT 

017670 017707 70y0 09 6249 7SX0 CREG DEALLOCAYE REGISTERS USED BY STORE COMMAND 
END OF BINARY CARD 00900847 

017674 177777 3650 OS 6250 Chii ANX5 "{eBSFBeBSFA,DU MAKE 4,6 FREE 

017672 000000 7400 90 6251 CLix TRA #* AND RETURN 

017673 047706 74y0 90 6252 CL3 S$TX0 CL3x SAVE RETURN 

017674 004000 3050 03 6253 CANX5 BSFG,DU JS THIS a STORE REGISTER COMMAND 

0147675 017700 6000 00 6254 TZE CL34 TRANSFER {Ff NOT 

017676 017707 7000 00 6255 TSX0 CREG DEALLOCATE REGISTERS USED BY STORE COMMAND 

017677 017705 7400 90 6256 TRA CL32 AND GO CLEAN UP 

017700 Uo3000 3050 a8 6257 CL34 CANXS BSFHeBSFI,DU JS THIS OF YHE FORM (A,B) 

017701 017705 6000 90 6258 TZE CL32 TRANSFER IF NOT 

017702 000017 3760 07 6259 ANQ 2017,DL GET REGISTER IN QL 

017703 777767 6220 06 6260 EAX2 #9, OL GET REGESTER CONTROL WORD POINTER IN XR . 2 

017704 017721 7900 00 6264 7SX0 DR AND DELETE REGISTER REFERENCES 


017705 770777 3650 Q8 6262 ChL32 ANX5 “4eBSFGeBSFH-BSFI,DU MAKE 3,6 FREE 
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END 


END 


G1 0526-72 
3 

0177906 090000 
017707 01417720 
017710 777000 
017711 090000 
017712 017147 
017713 022300 
017714 0090000 
047715 777777 
047716 777777 


OF BINARY CARD 


047717 017721 
017720 000000 
017724 047727 
0147722 047123 
0147723 000000 
017724 017046 
0147725 090900 
0147726 017723 
017727 000000 
017750 ©6©020050 
047734 047123 
047732 000000 
017733 017046 
017734 020045 
047735 020045 
017736 035214 
017757 020051 
017740 000000 
017741 200000 
017742 017754 
017743 000001 
047744 777777 


OF BINARY CARD 
017745 01417070 
017746 017754 
017747 577777 
017750 020054 
017751 004000 
017752 017770 
017753 000003 
047754 017070 
047795 017770 
017756 110000 
017757 017766 
0137760 000001 
017761 0090000 
0147762 000003 
017763 000017 
017764 017474 
017765 100000 


17,863 


7100 
7400 
3760 
6210 
6220 
5202 
1020 
6010 
7220 


00000418 


7000 
7400 
7400 
2250 
7220 
4500 
22350 
60430 
7100 
7400 
22350 
7220 
2240 
6040 
6000 
9640 
4500 
2250 
3050 
60u0 
2350 
3750 


00000819 


va 
00 


1150 d2 


6040 
3650 
7590 
3050 
6000 
2350 
4150 
6010 
3050 
6040 
2350 
6350 
0750 
0750 
7ou0 
2650 
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6263 


6264 


6265 
6266 
6267 
6268 
6269 
6270 
6274 


6272 
6275 
6274 
6275 
6276 
6277 
6278 
6279 
6280 
6284 
6262 
6283 
6284 
6285 
6286 
6287 
6288 
6289 
6290 
6294 
6292 
6293 


6294 
6295 
6296 
6297 
6298 
6299 
6300 
6304 
6302 
6303 
6304 
6305 
6306 
6307 
6308 
6309 
6310 


CLL3Xx 
CREG 


CREGX 
DR 


DRL 


DRX 
PURGE 


Pa 


Pe 


PASS 3 


on 

CREGX 
20777000,DL 

0, QL 

STR 
SYRE-STR,1,72E 
0,2 

SERROR 

wt,2 


#1-BSFB,DU 
BSFG,DU 


BSFCeBSRF,DU 
P3 

1.4 

Q,AU 

3,4 

D,DL 

GAD 


BSrC,DU 
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AND RETURN 

SAVE RETURN 

ZERO OUT ALL BUT OP CODE 

PUT OP CODE JIN XR ~ 1 

PUT POINTER TO STORE COMMAND TABLE IN XR & 2 
SEARCH FOR 

OP CODE IN TABLE 

NOT THERE + COMPILER ERROR 

GET REGISTER CONTROL WORD POINTER IN XR « 2 


AND DELETE REGISTER REFERENCES 

AND RETURN 

SAVE RETURN 

GET IN XR » 3 POINTER TO REGISTER TO RELEASE 
GET POINTER TO GURRENT REGISTER TO RELEASE 
MAKE REGISTER FREE 

GET POINTER TO NEXT REGISTER To FREE 
TRANSFER IF ANY MORE TO DELETE 

AND RETURN 

SAVE REFURN 

GET IN KR w 3 POINTER TO REGISTER TO PURGE 
GET IN KR » 2 CURRENT REGISTER TO PURGE 
GET RELATIVE POINTER TO BLOCK WSING REGISTER 
TRANSFER IF JN USE BY DIFFERENT NAME 
TRANSFER {F NOT IN USE 

MAKE POJNTER FO BLOCK ABSOLUTE 

INITIALIZE ERROR FLAG 

GET FLAGS IN BLOCK 

JS DEREFERENCED VALUE IN REGISTERS 
TRANSFER {6 NOT 

GET REGISTER USED FOR VALUE IN AL 

ZERO QUT au 


COMPARE WITM A STORE OF CURRENT REGISTER 
TRANSFER {Ff NOT THE SAME REGISTER 

RESET DEREFERENCED VALUEBIT 

SET PURGE FLAG 

CHECK VALUE [N REGISTER BIT 

TRANSFER {fF VALUE JS NOT IN A REGISTER 
GET STORE REGISTER COMMAND FROM BLOCK 

1S If A STORE OF THE CURRENT REGISTER 

NO » TRANSFER 

1S VALUE STACKED OR LOCAL 

TRANSFER IF YES e pO NOT WAVE TO SAVE VALUE 
GET ADDRESS OF STACKED TEMP IN AU 

ZERO OUY aL 

ADD IN §TORE COMMAND 

ADD MODIFICATION BY XR - D 

AND ADD STORE TEmMP,D To GENERATED CODE 
SET VALUE 1S STACKED FLAG 
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3 PASS 3 
017766 773777 3650 OS 6311 PS ANXS5 ~1-BS$FG,DU RESET VALUE IN REGISTER 381Y 
047767 0O2N0514 7500 Ou 6312 STC2 PF SET PURGE FLAG 
017770 Uos000 3nd0 US 6313 P4 CANX5 &FHeBSFI, DU 1S A REGISTER USED TO SPECIFY THE VALUE (A,8) 
017771 020042 6000 Ou 6314 TZE PB TRANSFER JF NOT 
017772 000003 2350 14 6315 LDA 344 GET (A,8} JN A REGISTER 
END OF BINARY CARD QoudUgZO 
U17773 777777 3750 Q7 6316 ANA wt, DL GET MODIFICATION ONLY IN A REGISTER 
017774 0147101 1150 12 6317 CMPA MOD, 2 JS MODIFICATION BY CURRENT REGISTER 
017775 020042 6010 00 6318 TNZ PB TRANSFER fF NOT 
017776 110090 3050 08 6319 CANXS BSF CeBSFF,DU IS VALUE STACKED OR LOCAL 
017777 020036 60130 OY 6320 INZ P7 TRANSFER IF YES ~ pO NOT HAVE TO SAVE REGISTER 
020000 002000 3050 03 6321 CANXS b&SFH,DU IS {A,B$ VALUE 
020001 v20026 6000 OV 6322 TZE P6 TRANSFER £F NOT VALUE 
020002 090003 2200 44 6323 LDX0 3,4 GET VALVE QF OFFSET TO VALUE 
020003 020010 6n00 90 6324 TZE P5 TRANSFER {Ff NO OFFSET 
020004 090003 2350 44 6325 DA $44 GET (A,B) IN A REGISTER 
020005 620000 0750 97 6326 ADA EAX,DL ADD EAX INSTRUCTION 
020006 0474112 0750 12 6327 ADA INST,2 MAKE RESULT GO TO CURRENT REGISTER 
020007 017474 7000 Ou 6328 TSX0 GAD AND ADD TO GENERATED CODE 
020010 vo90001 2350 44 6329 Pd LDA 1,4 GET LOCATION OF ALLOCATED TEMP IN a 
020011 090000 6350 04 6330 EAA 0,AU ZERO OUT al 
020012 017070 0790 12 6334 ADA ST,2 ADD STORE CURRENT REGISTER COMMAND 
020013 090047 0750 Q7 6332 ADA D,DL ADD MODIFICATION BY XR ~ DP 
020014 047474 7ou0 00 6333 TSX0 GAD AND ADD TO GENERATED CODE 
020015 090000 7270 44 6334 LXt,7 0,4 GET MODE OF VALUE IN XR w 6 
020016 022103 7000 G0 6335 TSX0 MTL GET TYPE ADDRESS IN AU 
020047 620000 0750 97 6336 ADA EaX, DL ADD EAXO INSTRUCTION 
020020 017474 7000 90 6337 TSX0 GAD AND ADD YO GENERATED CODE 
END OF BINARY CARD 00000321 
020021 000004 2320 44 6338 LDA 434 GET POINTER TO ALLOCATED TEMP 
020022 000000 6350 04 6339 EAA 0, AU ZERO OUY aL 
020023 440017 0750 97 6340 ADA SXaD, Db ADD SXk@ 0,0 COMMAND 
020024 017474 7000 00 6344 TSX0 GAD AND ADD TO GENERATED CODE 
020025 020036 7400 Oy 6342 TRA P7 TRANSFER 7Q UPDATE FLAG BITS 
020026 0010090 3090 O03 6343 P6 CANX5S BSFI,DU 1S (A,84$ REFERENCE TO VALUE 
020027 777777 60900 00 6344 TZE $ERROR NO » ERROR MUSY BE ONE OR THe OTNES 
020030 000000 7270 44 6345 XL? 0:4 GEY MODE OF VALUE IN XR # 7 
020031 000003 2350 44 6346 LDA 3,4 GET SOURCE ADDRESS IN a 
020032 000003 2360 144 6347 DQ 4,4 GET aLlOcaTED TEMP aDDRESS aS DESTINATION IN O 
020053 0090000 6360 92 6348 EAQ 0, QU ZERO QUT 4 
020054 0090047 0760 97 6349 ADG D,DL ADD MODIFICATION BY XR» D 
020055 017534 7ou0 90 6350 TSX0 MOVE MOVE VALUE YO SYACK 
020036 020051 7500 Oo 6354 #7 sTc2 PF SET PURGE FLAG 
020037 000003 4800 44 6352 STZ 534 CLEAR OUY (A,B) WORD IN BLOCK 
020040 774777 3650 03 4353 ANX5 “£-BSFHaBSFI,DU RESET (4.8) FLAG BITS 
020041 400000 2650 953 6354 ORX5 BSFC,DU SET STACKED BIT 
020042 020051 2340 00 6355 Pa SZN PF CHECK PURGE FLAG 
020043 777777 6000 a0 6356 TZE SERROR ERROR [F NOT SET » PURGE UNSUCCESSFUL 
020044 090000 7450 44 6357 STX5 0,4 RESTORE FLAGS IN BLOCK 


020045 017046 4590 42 6358 PI STZ REG,2 RESET RBGISYER USE WORD 
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END 


END 


END 


3 
020046 090000 
OF BINARY CARD 
-020047 0147732 
020050 000000 
020051 000000 
G20052 020065 
020053 dgnQgng 
020054 017730 
020055 v00004 
020056 017730 
020057 vn000e2 
020060 017739 
020061 000003 
020062 017730 
020063 000006 
020064 047730 
020065 0090000 
020066 020203 
020067 Odg0000 
020070 400000 
020071 777777 
Q20072 010080 
020073 020402 
020074 040000 
OF BINARY CARD 
020075 020102 
020076 000002 
020077 Od00000 
020100 0090017 
020101 020202 
020102 002000 
020103 020106 
0201404 000003 
020105 020202 
0201906 017622 
020107 000000 
020110 004000 
020141 020117 
020112 620001 
020113 017663 
020114 017474 
020115 017664 
020116 020175 
020117 001000 
020120 020327 
020121 000003 
020122 220000 
OF BINARY CARD 
020123 017663 
020124 0417474 


17,863 


22350 


Ooud0g22 


6010 
7400 


13 


00 
Q0 


Q0U000 


7400 
2220 
7000 
2220 
7000 
2220 
700 
2220 
70U0 
2220 
7090 
7100 
7400 
2250 
3050 
6040 
3090 
6000 
3020 


00000325 


6000 
2350 
6350 
0750 
7400 
3050 
6000 
2350 
7100 
70900 
2250 
3050 
6000 
2350 
0750 
7000 
2350 
7400 
3050 
6000 
2350 
0750 


Qo0g00324 


Q750 
7000 


00 
0S 
oy 
05 


00 
46 
O4 
97 
90 
035 


90 
00 
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6359 


6360 
6361 
6362 
6363 
6364 
6365 
6366 
6367 
6368 
6369 
6370 
6371 
6372 
63753 
6374 
6375 
6376 
6377 
6378 
6379 
6380 
6384 


6382 
6383 
6384 
6385 
6386 
6387 
6388 
6389 
6390 
6394 
6392 
6393 
6394 
6395 
6396 
6397 
6398 
6399 
6400 
6401 
6402 
6403 


6404 
6405 


PALLX 
MNA 


MNAQ 


MNAS 


MNAL 


LDx3 


TNZ 
TRA 
ZERO 
STXO 
LDX2 
TSX0 
| Dx2 
TSXO 
LDX2 
TSXO 
4DX2 
TSx0 
LDXx2 
YSX0 
TRA 
STX0 
LOX5 
CANXS 
TNZ 
CANXS 
TZE 
CANXS 


TZE 
LDA 
EAA 
ADA 
TRA 
CANXS 
TZE 
LDA 
TRA 
TSX0 
,DxS 
CANXS 
TZE 
LDA 
ADA 
¥Sxo0 
LDA 
TRA 
CANXS 
TZE 
LDA 
ADA 


ADA 
TSX0 


PASS 3 
0,3 


PL 
e 


PALLX 
U,DU 
PURGE 
1,DU 
PURGE 
2,0U 
PURGE 
3,Du 
PURGE 
6,0u 
PURGE 
en 

MNAX 
0,6 
BSFA,DU 
SERROR 
BSFF,DU 
MNAQ 
BSFD,DY 


MNA?2 
2,6 

0» AU 
0,DL 
MNAQ 
BSFH, DU 
MNA3 
3,6 
MNAQ 
GXR 

0,6 
BSFG,DU 
MNAGq 
EAX*AU, DL 
XREGI 
GAD 
XREGM 
MNA8 
BSFY,DU 
MNA4 
3,6 
LOX, DL 


XREG]I 
GaD 


GET POINTER TO NEXT REGISTER TO PURGE 


TRANSFER tf MORE TO DO 
AND RETURN 


SAVE RETURN 

GET REGISTER TO PURGE IN XR - 92 
AND PURGE REGISTER 

GET REGISTER TO PURGE IN XR & 2 
AND PURGE REGISTER 

GET REGISTER YO PURGE IN XR - 2 
AND PURGE REGISTER 

GET REGISTER TO PURGE IN XR - Q 
AND PURGE REGISTER 

GET REG}STER YO PURGE IN XR - 2 
AND PURGE REGISTER 

AND RETORN 

SAVE RETURN 

GET FLAGS IN BLOCK 

IS VALUE A DENOTATION 


YES = ERROR » NAME CANNOT BE DENOTATION 


IS If A LOCAL NAME 
TRANSFER TF NOT 
IS VALUE LQCAL NAME 


TRANSFER IF LOCAL NAME REFERS TO VALUE 


149 


GET OFFSET OF NAME RELATIVE TO D REGISTER 


ZERO OUT AL 

ADD D REGISTER MODIFICATION 
GO CLEAN UP FOR EXIT 

1S (A,84 VALUE 

TRANSFER IF NOT 

GEY (4,8) JN A REGISTER 

GO CLEAN UP FOR EXIT 
ALLOCATE AN INDEX REGISTER 
RESTORE FLAGS 

IS VALUE IN A REGISTER 
TRANSFER {tf NOT IN REGISTER 
GET EAX 0,AU COMMAND 

MAKE IT EAXR O0,AU 

AND ADD ¥O GENERATED CODE 
GET (0,R) JN A REGISTER 

GO CLEAN UP FOR ExyT 

1S {A,B} A POINTER TO VALUE 
TRANSFER IF NOT 

GET (A,B) JN A REGISTER 

ADD LDX COMMAND 


ADD INDEX REGISTER INTO COMMAND 
ADD LDXR a,B TO GENERATFD CODE 
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END 


END 
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3 
020125 U17664 
020126 20175 
V20127 100000 
V2eciso 420141 
U2c1s1 000001 
020152 090000 
020133 0090017 
020154 220000 
020135 047663 
620156 047474 
020137 017664 
02c140 G20175 
020141 020000 
02¢142 020455 
020143 010000 
0206144 020455 
020145 000002 
020146 vod0000 
020147 0090017 
020150 220000 
OF BINARY CARD 
020151 017663 
020152 017474 
020153 17664 
020154 0201475 
026155 060000 
020156 777777 
020157 020704 
020160 040000 
020161 0201466 
020162 090002 
020193 0090000 
020164 017664 
020165 020475 
020166 000002 
020167 000000 
020170 017664 
020171 017663 
020172 220000 
020173 017474 
020174 017664 
020175 000003 
020176 0090003 
Or BINARY CARD 
020177 017673 
020200 002000 
020201 090003 
V20202 00000 
020203 d9c000 
020204 020336 


17,863 


2350 OY 
74u0 OY 
$050 OS 
6000 OY 
2350 16 
6350 O41 
0750 Q/ 
V7>N O7 
0750 00 
7000 00 
2350 00 
7400 00 
3050 QS 
6000 OU 
3050 O38 
60u0 OU 
2350 16 
6350 O14 
070 07 
V750 O7 
00000325 
0750 OO 
7000 OY 
2350 OV 
7400 00 
3050 O8 
6000 Ou 
7000 00 
3050 03S 
6000 ay 
2390 16 
6350 Of 
0750 90 
74009 00 
2350 16 
6350 04 
0750 OY 
0750 90 
0750 07 
7000 00 
2350 00 
2360 46 
7550 416 
Ooud0keS 
7000 90 
2650 O38 
2350 $6 
7450 %6 
7400 90 
7400 00 
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6406 
647 
6408 
64U9 
6410 
6411 
6412 
6413 
6414 
6445 
6416 
6417 
6418 
6449 
6420 
64214 
6422 
6423 
6424 
6425 


6426 
6427 
6428 
6429 
6430 
6434 
6432 
6433 
6434 
6435 
6436 
6437 
6438 
6439 
6440 
6441 
6442 
6443 
6444 
6445 
6446 
6447 


6448 
6449 
6450 
6454 
6452 
6453 


MNAG 


MNA5S 


MNAG 


MNA7 


MNAB 


MNAQ 
MNAX 
MVA 


LDA 
TRA 
CANXS 
TZE 
DA 
EAA 
ADA 
ADA 
ADA 
J~Sxo 
LDA 
TRA 
CANX5 
TZE 
CANXS 
TZE 
LDA 
EAA 
ADA 
ADA 


ADA 
TSX0 
LDA 
TRA 
CANX5 
TZeE 
TSXo6 
CANXS 
TZeE 
LDA 
EAA 
ADA 
TRA 
LDA 
GAA 
ADA 
ADA 
ADA 
TSx0 
LDA 
DQ 
STA 


TSXoa 
ORX5 
LDA 
STX5 
TRA 
STXO 


PASS 3 


XREGM 
MNAB 
BSFc,DU 
MNA5 
1,6 
Q0.AU 
D,OL 
LOX,DL 
XREGI 
GAD 
XREGM 
MNAB 
BSFE,DU 
MNA6 
BSFF,DU 
MNA6 
2,6 
0,AU 
DDL 
LOX, DL 


XREGI 
GAD 
XREGM 
MNAB 


BSF DeBSFE, DY 


SERROR 
NLOC 
BSFD,DU 
MNA?7 
2,6 
Q,AU 
XREGM 
MNA8 
2,6 
O,AU 
XREGM 
XREGI 
LOX, DL 
GAD 
XREGM 
3,6 
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GET [9,8} IN A REGISTER 

GO CLEAN UP FOR EXIT 

1S VALUE STACKED 

TRANSFER IF NOT 

GET ADDRESS RELATIVE TO D REGISTER OF VALUE 
ZERO OUT AL 

ADD D REGISTER MODIFICATION 

ADD LOX COMMAND 

ADD REGISTER TO COMMAND 

ADD LDXR OFFSET,D TO GENERATED CODE 
GET (0,R} IN A REGISTER 

GO CLEAN UP FOR EX]? 

DOES MFFSET,»LL POINT TO VALUE 
TRANSFER IF NOT 

1S LL CURRENT RANGE 

TRANSFER IF NOT 

GET OFFSET IN AU 

ZERO OUT AL 

ADD D REGISTER MODIFICATION 

ADD LDX COMMAND 


ADD X REGISTER YO COMMAND 

ADD LDXR OFFSET,R TO GENERATED COnE 
GET ([6,R}) JN A REGISTER 

GO CLEAN UP FOR EX]? 

IS VALUE ETHER IN STACK OR a STACK POINTER 
NO = VALUE MUST BE SOMETHING 
COMPILE CODE FOR NONLOcaL DISPLAY 
1S (OFFSEF,LL3 VALUE 

TRANSFER EF NOT 

GET OFFSEF IN AU 

ZERO OUF AL, 

ADD REGISTER MODIFICATION TO G&T (OFFSET,R) 
GO CLEAN UP FOR ExyT 

GET OFFSET IN AY 

ZERO OUT aL 

ADD X REGISTER MODIFICATION 

ADD X REGISTER YO COMMAND 

ADD DX COMMAND 

ADD LPXR GFFSET,R TO GENERATED CONE 
GET (0,8) JN A REGISTER 

GET PREVIOUS CONTENTS OF Ita,B} 
STORE NEW NAME IN BLOCK 


DEALLOCATE PREVIQUS (A,B) 
SET (A,B) JS VALUE BIT 
GET (A,B) FOR RETURN 
RESTORE FLAGS IN BLOCK 
AND EX]? 

SAVE RETURN 
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END 


END 


3 
02c205 Odn00000 
020206 004000 
U20207 020212 
Y20210 Ugndgns 
020211 0203535 
O20212 092000 
020213 020231 
020214 017610 
020215 000000 
020216 000003 
020217 635000 
020220 017474 
020221 000000 
Q20222 010639 
020223 090004 
020224 022103 
OF BINARY CARD 
020225 075007 
Q2c226 017474 
020227 755900 
020230 020339 
020251 001000 
020232 020235 
020233 000003 
020234 020344 
020255 010000 
020236 020257 
020257 040000 
020240 020254 
020241 017610 
020242 000000 
020243 000002 
020244 000000 
020245 635000 
020246 000047 
020247 017474 
020250 020224 
020251 020000 
020252 777777 
OF BINARY CARD 
020253 090002 
020254 000000 
020255 000017 
020256 020344 
020257 100000 
020260 20265 
020261 000001 
020262 0090000 
020263 0090017 
020264 U20337 
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2250 46 
3050 OS 
6000 OU 
2350 416 
7400 OU 
3050 OS 
6000 OU 
7000 Ou 
2250 16 
2350 16 
0750 Q7 
7000 00 
7270 46 
7000 OV 
2270 47 
7009 90 


0750 97 
7000 00 
2350 07 
7400 00 
3050 08 
6000 00 
2350 16 
7400 90 
3od0 03 
600 00 
300 OS 
6000 OU 
7000 80 
2220 $6 
2350 46 
6350 04 
0750 07 
0750 07 
7000 90 
7400 00 
3050 03 
6000 00 
00000328 
2350 $6 
6350 04 
0750 07 
7400 00 
3050 0S 
60u0 Ou 
2350 16 
6350 O14 
0750 07 
7400 QO 
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6454 
6455 
6456 
6457 
6458 
6459 
6460 
6461 
6462 
6463 
6464 
6465 
6466 
6467 
6468 
6469 


6470 
6471 
6472 
6473 
6474 
6475 
6476 
6477 
6478 
6479 
6480 
64814 
6482 
6483 
6484 
6485 
6486 
6467 
6468 
6489 
6490 
64914 


6492 
6498 
6494 
6495 
6496 
6497 
6498 
6499 
6500 
6501 


MVAYL 


MVAQ2 


MVAZ 


MVA4 


MVA5 


MVA6 


PASS 3 


0,6 
BSFG,DU 
MVAd 
3,6 
MVARY 
OSFH, DU 
MVAS 

GA 


ADA#DL, DL 
GaD 
STA,OL 
MVAR 
BSFY,DU 
MVA4 
3,6 
MVAP1 
BSFF,DU 
MVA6 
BSFD,DU 
MVA5 

GA 

0,6 

2,6 
0,AU 
EAA,DL 
D,DL 
GAD 
MVAQ 
BSFE,DU 
SERROR 


2,6 
Q,AU 
DDL 
MVAP4 
BSFC,DU 
MVA? 
156 
Q,AU 
D,OL 
MVAP 
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GET FLAGS FROM RLOCK IN XR = 5 
JS VALUE IN A REGISTER 
TRANSFER IF NOT 

GET STORE REGISTER COMMAND 

GO TO REGISTER RETURN 

JS VALUE ¢A,B) 

TRANSFER IF NOT 

ALLOCATE aA REGISTER 

RESTORE FLAGS 

GET (A,B) VALUE JN A REGISTER 
ADD EAA COMMAND 

ADD EAA A,B TO GENERATED CQDE 
GET MODE OF VALUE 

MAKE MOBE POINTER UNIQUE AND ABSOLUTE 
GET DEREFGRENCED MODE 

GET YYPE ADDRESS !N AU 


ADD ADA ,DL COMMAND 

ADD ADA TYPE,DL 70 GENERATED CODE 
GET STA COMMAND IN A REGISTER 

GO TQ REGISTER CLEANUP 

13 VALUE POINTED FO BY (A,B) 
TRANSFER IF NOT 

GET {A,B} IN A REGISTER 

GO TQ PAINTER RETURN 

1S VALUB STORED JN LOCAL RANGE 
TRANSFER IF NOT 

JS VALUB (COFFSET,LL! 

TRANSFER IF NOT 

ALLOCATE A REGISTER 

RESTORE FLAGS 

GET QFFSEF IN AU 

ZERO QUT aL 

ADD EAA COMMAND 

ADD D REGISTER MODIFICATION 

ADD EAA OFFSET,D fo GENERATED GODE 
GO TO ABD TYPE 70 VALUE 


US VALUE POINTED fo BY (OFFSET,DI 


CONSTSTANCY CHECK 


GET OFFSET IN Au 

ZERO OUT AL 

ADD D REGISTER MODIFICATION 
GO TO POINTER CLEANUP ROUTINE 
1S VALUB IN STACK 

TRANSFER IF NOT 

GET QFFSET TO STACK LOCATION 
ZERO OUT AL 

ADD D REGISTER MODIFICATION 
GO TO POINTER CLEANUP ROUTINE 


0155? 


END 


END 


3 
020265 400006 
V2L206 0205N0 
020267 017622 
02¢c270 vuonoot.1 
020271 o090000 
020272 000017 
020273 2200%0 
020274 017663 
020275 617474 
020276 047664 
020277 020337 
020300 040000 
QF BINARY CARD 
020301 020317 
020302 047610 
020303 o900N0 
020304 020701 
020305 000002 
026306 00000 
020307 635001 
O20310 0147474 
020311 000000 
020312 022103 
0203143 075007 
G20314 017474 
020315 755000 
020316 020339 
U20317 020000 
020320 777777 
020321 017622 
020322 v00000 
020323 0207014 
020324 000002 
020325 Uupn0g00 
020326 017664 
OF BINARY CARD 
020327 020337 
V20350 000003 
020351 000003 
020332 017673 
020333 090003 
020334 004000 
020335 Og90000 
020336 090000 
020337 000003 
020340 0090003 
020341 047673 
020342 000003 
020343 091000 
020344 9090000 
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$050 OS 
60u9 OY 
7ou0 Oy 
2350 16 
6350 O11 
Q750 O/ 
Y7>50 07 
Y7>0 00 
7000 OY 
2350 OV 
7490 OV 
5050 08 
OoVvoUuseY 
6009 OU 
7000 OY 
2250 16 
70\N9 OV 
2350 46 
6350 91 
0750 a7 
70u0 00 
7270 416 
7000 00 
0750 O07 
7ouo0 og 
2390 Q7 
7400 90 
3070 OS 
6000 OY 
70yuo 40 
2220 46 
7000 Q0 
2350 16 
6330 04 
0750 Oy 
QOu00350 
7400 90 
23600 46 
7550 46 
7000 90 
2390 $6 
2690 08 
7450 46 
7400 0 
2360 46 
7590 $6 
7000 QQ 
2350 £6 
2650 O3 
7450 46 
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6502 MVA7 
6503 
6504 
6595 
656 
6507 
658 
6509 
6510 
6511 
6512 
6543 MVAB 


6514 
6515 
6546 
6547 
6548 
6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6827 
8528 MVA9 
6529 
6530 
6534 
6532 
6533 
6534 
6535 


6536 
6537 MVAR 
5538 
6539 
5540 
5344 
5342 MVARG 
6543 MVAX 
6544 MVAP 
6545 
6346 
6547 
$348 
5549 MVAPS 


CANXS 
TZE 
TSXO 
LDA 
cAA 
ADA 
ADA 
ADA 
TSXO 
LDA 
TRA 
CANXS 


TZE 
TSX0 
LDX5 
TSXO 
LDA 
EAA 
ADA 
TSX0 
LXL7 
TSX0 
ADA 
TSXo0 
DA 
TRA 
CANXS 
TZE 
TSX0 
LDX5 
TSX0 
LDA 
EAA 
ADA 


TRA 
LDQ 
STA 
TSX0 
LDA 
ORX5S 
STX5 
TRA 
LDQ 
STA 
TSX0 
LDA 
ORX5 
STX5 


PASS 3 


BEF A,DU 
MVAB 
GXR 

1,6 
G,AU 
D,vDL 
LOX, DL 
XREGI 
GAD 
XREGM 
MVAP 
BSFD,DU 


0,AU 
EAAsAU,DL 
GAD 

0,6 

MTL 
ADAeDL,DL 
GAD 
STA,DL 
MVAR 
BSFE,DU 
$ERROR 
GXR 

0,6 

NLOc 

2,6 

Q3,AU 
XREGM 


MVAP 
3,6 

3,6 

CLS 

316 
BEFG,DU 
0,6 

ae 

$36 

5,6 

CLS 

3,6 
BSF1,DU 
0,6 
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1S VALUE A DENOTATION 

TRANSFER IF NOT 

ALLOCATE AN INDEX REGISTER 

GET ADDRESS OF POINTER IN AU 

ZERO QUT aL 

ADD D REGISTER MONIFICATION 

ADD LEX COMMAND 

ADD ALLOCATED INDEX REGISTER TO INSTRUCTION 
AND ADD LDXX PTR,D TO GENERATED OUTPUT 

GET ALLOCATED X REGISTER MODIFICATION IN a 
GO TO POINTER CLEANUP ROUTINE 

1S VaLUE & NONLOCAL NAME 


TRANSFER IF NOT 

ALLOCATE a REGISTER 

RESTORE FLAGS 

GET NAME IN A REGISTER 

GET OFFSET TO DISPLAY 

ZERO OUT AL 

ADD EAA 9,AU COMMAND 

ADD EAA OFFSET,AU YO GENERATED CODE 
GEY MODE @F VALUE IN XR « 7 

GET FYPE ADDRESS IN AU 

ADD ADA 0,AL COMMAND 

ADD AMA Y¥YPE,DL TO GENERATED CODE 
GET STA COMMAND IN A REGISTER 

GO TO REGISTER CLEANUP 

JS NONLOCAL NAME POINTER TO VALUE 
NO » MUST BE SOMETHING 

ALLOCATE aN JNDEX REGISTER 
RESTORE FLAGS 

GEY NONLOCAL DISPLAY IN XR 

GEY OFFSET IN AU 

ZERO OUT al 

ADD X REGISTER MODIFICATION 


GO 10 POINTER CLEANUP ROUTINE 
GEY PREVIOUS CONTENTS OF [a,B) 
SYORE NEW NAME IN BLOCK 
DEALLOCAYS PREVIQUS [A,6) 

GET NEW 14,8) FOR RETURN 

SET VALUE IN REGISTER BIT 
RESTORE FLAGS IN BLOCK 

AND EX]? 

GET PREVIOUS CONTENTS OF {A,B} 
STORE NEW [A,8] JN BLOCK 
DEALLOCATB PREVIOUS (A,B) 

GET NEW [A,8) FOR RETURN 

SET (A,B) JS REF To VALUE BIT 
RESTORE FLAGS IN BLOCK 


01557 


END 


END 


O4 0526672 
3 

020345 020336 
020346 090001 
020347 Gg900N0 
020350 u20353 
V203>51 017040 
020352 0417037 
020353 090000 
020354 020376 
OF BINARY CARD 
020355 040562 
020356 020364 
020357 017037 
020360 000001 
020361 000001 
020362 017037 
020363 0090090 
020364 017037 
026365 0090001 
020366 090000 
020367 010630 
020370 777777 
020371 017037 
020372 017037 
020373 017040 
020374 020376 
020375 017040 
020376 0090000 
020377 020414 
020400 035234 
020401 005754 
020402 035234 
QF BINARY CARD 
020403 005754 
020404 035234 
020405 005754 
020406 035234 
020407 005754 
020440 035234 
020411 090004 
020412 ug0000 
020443 020354 
020444 000000 
020415 0204209 
020416 090037 
020447 020377 
020420 000000 
020421 020450 
020422 000000 
020423 677377 
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22u0 
71U0 
on00 
74N0 
2200 
7400 
7400 
7400 


O0UV0USS1 


70y0 
7100 
2200 
4490 
O4u0 
740 
7270 
2200 
74Q0 
7270 
7000 
7200 
o46u0 
7400 
4000 
6040 
7400 
7100 
7400 


020400 


4500 
7470 
4590 


00000332 


7170 
4500 
7470 
4500 
7470 
2260 
1660 
4470 
7000 
7400 
74U0 
6270 
7000 
7400 
7400 
2250 
3650 


00 
00 
00 
16 
OS 
OU 
£6 
00 
16 
16 
00 
17 
00 
90 
00 
0Q 
00 
OU 
00 


56 
00 
$6 


ag 
56 
00 
56 
OU 
00 
05 
£6 
00 
90 
90 
00 
00 
00 
00 
44 
03 
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6550 
6551 
6552 
6553 
6554 
6555 
6556 
6557 


6558 
6559 
6560 
65614 
6562 
6563 
6564 
6565 
6566 
6567 
6568 
6569 
6370 
65714 
6572 
6573 
6574 
6575 
6576 
6377 
6578 
6579 


6580 
6581 
6562 
6583 
6584 
6585 
6586 
6587 
6588 
6589 


6590 


6594 


MVAT 
MAX 


MAXX 
GTMP 


GTMP1 


GTMPX 
MBLK 


MBLKX 
MREF 


MREF X 
MR 


PASS 3 


MVAX 
1,0 
0,1Cc 
MAXX 
MAXS 
SP 

on 
GTMpX 


ASRCHK 
GTMP1 
SP 

1,6 
4,0U 
SP 

U,6 

sp 

126 
0,6 
ASXFER 
7147 
SP 

SP 
MAXS 
GTMPX 
MAXS 
on 
MBLKX 
2, WL 
ASWORK, 1D 
TSWOVE 
ASWORK, ID 


TSWOVF 
ASWORK, ID 
TSWOVF 
ASWORK, ID 
TSWOVF 
ASWORK 
Wha DU 

0,6 

GMP 

en 

MREFX 
MSPTR 
MBLK 

ee 

MRX 


PAGE 153 


GET RETURN ADDRESS IN XR = 0 
AND RETWRN 


SAVE RETURN 

GET CURRENT STackK POINTER MAXIMUM 
AND MAKE IT CURRENT STACK POINTER 
AND RETURN 

SAVE RETURN 


SEE IF MODE OF VALUE CONTAINS DESCRIPTORS 
TRANSFER {f NO ROW MODES TO WORRY apoUTt 
GET CURRENY STACK POINTER 

STORE AS ADDRESS FOR STACK POINTER 
INCREMENY CURRENT STACK POINTER BY POINTER LENGTH 
AND RESTORE IN CURRENT STACK POINTER 
RESTORE XR » 7 

GET CURRENT STACK POINTER 

STORE AS ADDRESS FOR STATIC TEMP 

GET MODE OF VALUE 

MAKE MOBE POINTER UNIQUE AND ABSOLUTE 
GET LENGTH OF VALUE JIN XR » Q 

ADD LOCATION OF VALUE 

STORE aS NEW STACK POINTER 

COMPARE WITH MAXIMUM S 

TRANSFER IF NOT NEW MAXIMUM 

STORE NEW MAXEMUM 

AND RETURN 

SAVE REYURN 

GENERATE BLOCK WL ENTRIES LONG 

ZERO OUT CREATED BLOCK 

CHECK FOR STACK OVERFLOW 

ZERO OUT CREATED BLOCK 


CHECK FOR STACK OVERFLOW 

ZERO OUT CREATED BLOCK 

CHECK FOR STACK OVERFLOW 

ZERO OUT CREATED BLOCK 

CHECK FOR STACK OVERFLOW 

GET POJRTER TO END OF WORKING STACK 
GET POINTER TO NEWLY CREATED BLOCK 
STORE MODE IN BLOCK 

AND ALLOCATE STACK SPACE FAR VALUE 
AND RETURN 

SAVE RETURN 

GET POINTER MODE IN XR « 7 

MAKE A BLOCK FOR REFERENCE 

AND EXIT 

SAVE RETURN 

GET FLAGS FROM ORIGINAL BLOCK 


0,4 
wie BSFC@BSFY, DU RESET VALUE [S STACKED AND S 1S STORED ByTS 


0155? 


END 


END 


01 O5"26-72 


3 
v20424 Uvgnong 
020425 ugno02 
020426 000002 
020427 vgnons 
026430 000003 
OF BINARY CARD 
0206451 Uonodo 
020452 035214 
020433 000000 
020434 035214 
0204355 o90000 
020436 017046 
020437 020441 
020440 017046 
020441 000001 
020442 000011 
020443 020436 
020444 090000 
020445 0090400 
020446 190000 
020447 090000 
020450 od00000 
020451 020524 
020452 0o90000 
020453 100000 
020454 020514 
020455 020204 
020456 020507 
OF BINARY CARD 
020457 090000 
020469 000001 
020461 0090000 
020462 000017 
020463 0147534 
020464 090000 
020465 010562 
020466 020514 
020467 0090004 
020470 020525 
020471 020525 
020472 17474 
020473 090400 
020474 000000 
020475 000000 
020476 020377 
020477 777774 
Q20500 020421 
020501 000000 
020502 025741 


17,803 


7490 
23590 
7590 
2350 
7550 


DOUVdUSSS 


6250 
1650 
6240 
1640 
2220 
1050 
6010 
7440 
0620 
1020 
6010 
2250 
$690 
2690 
7450 
7400 


020451 


7400 
2250 
3050 
6040 
7000 
7100 


00000554 


7270 
2360 
6360 
0760 
7090 
7270 
7000 
7100 
7200 
7400 
2350 
7000 
2250 
2450 
7270 
7000 
6240 
7000 
7270 
2200 


16 
14 
16 
44 
16 


£4 


90 


+6 
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6592 
6593 
6594 
6595 
6596 


6597 
6598 
6599 
64600 
6601 
6602 
6603 
64604 
6605 
6606 
6607 
6608 
6609 
6610 
6611 
6612 
6413 
6614 
6615 
6616 
6617 
6618 
6619 


6620 
6624 
6622 
6623 
6424 
6625 
6626 
6627 
6628 
6629 
6630 
6631 
6632 
6633 
6634 
6635 
6636 
6637 
6638 
6639 


MR 


MR2 


STX5 
LDA 
STA 
LDA 
STA 


EAXS 
SBXS 
EAX4 
SBX4 
LDX2 
CMPX3 
TNZ 
STX4 
ADX2 
CMPX2 
TNZ 
DX5 
ANX5 
ORX5 
STX5 
TRA 
EQU 
STXo 
LDX5 
CANXS 
INZ 
7Sxo0 
TRA 


LXL7 
DQ 
eAQ 
ADQ 
TSXo 
LXL7 
TSX0 
TRA 
X10 
STX0 
LDA 
18X0 
4Dx5 
ORSX5 
LXL? 
¥SX0 
EAX4 
TSX0 
LXL7 
LDXO 


TSWORK 
Q,0U 
REG, 2 
MR2 
REG,2 
41,Du 
STREeSTR, DU 
MRL 

03:4 
BSFU,DYU 
BSFC,DU 
0,4 

on 

* 

FSX 

0,6 
BSFC,DU 
FS2 

MVA 
FS4. 
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AND STORE FLAGS IN NEW RLOCK 
GET OFFSET/LL WORD 

AND STORE IN NEW RLOCK 

GET REGISTER WORD 

AND STORE IN NEw BLOCK 


GET POINTER TO OLD BLOCK IN XR # 3 
MAKE POINTER RELATIVE 

GET POINTER TO NEW BLOCK IN XR ~ 4 
MAKE POINTER RELATIVE 

INI TIEALEZE REGISTER POINTER TO ZERO 
IS THIS REGISTER USED BY OLD BLOCK 
NO = TRANSFER 

YES + CHANGE TO ROINT TO NEW BLOCK 
STEP TO NEXT REGISTER 

IS THIS THE LAST REGISTER 

NO # TRANSFER TO LOOP 

GET FLAGS FROM OLD BLOCK 

ZERO ALL BITS EXCEPT S IS STORED Bly 
SET VALUE 1S STACKED BIT 

AND RESTORE FLAGS JN BLOCK 

AND RETURN 


SAVE RETURN 

GET FLAGS FOR CURRENT BLOCK IN XR « 5 
1S VALUE ALREADY STACKED 

TRANSFER IF VALUE ALREADY STACKED 
MAKE VALUE AVAILABLE 

TRANSFER {tf VALUE [S$ IN &A REGISTER 


GET MODE OF VALUE IN xR & 7 

GET DESFINATION ADDRESS IN Qy 

ZERO OUT aL, 

ADD D REGISTER MODIFICATION 

MOVE VALUE TO STACK 

GET MODE OF VALUE IN XR @ 7 

SEE JF ANY ARRAYS 70 MOVE TO STACK 
TRANSFER IF NO ARRAYS TO MOVE 

GET ADDRESS OF LOCATION TO SAVE S REGISTER 
AND STORE JIN ENSTRUCTION 

GET STX S, (SAVE LOCATION),B INSTRUCTION 
AND ADD TO GENERATED OUTPUT 

GET S$ REGISTER 1S SAVED BIT 

AND OR IN¥O BLOCK FLAG WORD 

GET MODE OF VALUE IN XR «= 7 

AND MAKE A BLOCK FOR ANOTHER SIMILAR VALUE 
GET POJNTER TO OLD BLOCK IN XR = 4 

MOVE REGISTER POINTERS TO NEW BLOCK 

GET MODE OF VALUE IN XR e 7 

GET ADDRESS OF RUNTIME FS ROUTINE 
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3 PASS 3 

020503 021524 7400 00 6640 STXO AS]8 AND STORE [IN INSTRUCTION SEQUENCE 
020504 021041 70u0 40 66414 TSX0 ASG MOVE ARRAYS TO STACK 

END OF BINARY CARD 00000355 
020505 021007 7oN0 00 6642 TSXo DELV DELETE BLOCK ADDED FOR FS 
020506 020514 7100 OO 6643 TRA FS2 TRANSFER TO CLEAN UP 
020507 000001 2350 16 6644 FS4 LDA 1,6 GET ADDRESS OF STACK VALUE IN aU 
020510 000000 6350 04 6645 EAA 0, AU ZERO OUT Ab 
020511 000017 0750 07 6646 ADA D,OL ADD D REGISTER MODIFICATION 
020512 000003 0750 46 6647 ADA 3,6 ADD STORE COMMAND 
020513 017474 7000 90 6648 TSXO GAD AND ADD 70 GENERATED OUTPUT 
020514 000000 2250 16 6649 FS2 LOx5 0,6 GET FLAGS FROM BLOCK IN XR ® 5 
020515 000001 2360 %6 6650 Da 1,6 GET REGESTER TO DEALLOCATE 
020516 017665 7000 a9 64651 TSX0 Cha DEALLOCATE DEREFERENCED VALUE 
020517 000003 2360 46 6652 Da 3,6 GET REGISTER TO DEALLOCATE 
020520 017673 7ou0 00 6653 TSX0 CL3 DEALLOCATE ALL OTHER REGISTERS 
020521 100000 2650 93 6654 QRX5 BSFC,DU SET STACKED BIT 
020522 707777 3650 03 6655 ANXS #4 =BSFDeQSFE-BSFF,DU RESET ANY RANGE INFORMATION 
020523 000000 7450 46 6656 STX5 0,6 RESTORE FLAGS IN BLOCK 
020524 000000 7400 O0 6657 FSX TRA ae AND RETURN 
020525 090000 7460 47 6658 Fs! STX $,0.D 
020526 020674 74u0 90 6659 STYPE STX0 STYPX SAVE REYURN 
020527 020675 4500 90 6660 STZ STYPR INITIALIZE REGISTER INDEX 
020550 020675 7220 00 6661 LXL2 STYPR GET NEX¥ REGISTER TO PURGE 
020531 017730 7ouo O09 6662 STYP1 8X0 PURGE AND PURGE REGISTER 
020532 020675 9540 OY 6663 aos STYPR STEP TO NEXT REGISTER 

END OF BINARY CARD 00000336 
020533 020675 7220 OD 6664 XL 2 STYPR GET NEXY REGISTER TO PURGE 
020554 000011 1020 03 6665 CMPX2 STREeSTR,DU SEE IF LAST REGISTER IS PURGED 
020535 02053, 6040 Ou 6666 TNZ STYPy TRANSFER IF MORE REGISTERS TO PURGE 
020536 035227 2210 03 6667 DX TSTYPE, DU GET POINTER TO TYPE TABLE CONTROL WORD 
020537 000000 6350 OV 6668 EAA ted GET NUMBER OF WORDS NEEDED = 4 IN AU 
020540 005663 7000 a0 6669 TSX0 TSALOC AND ALLOCATE SPACE IN TYPE TABLE 
020541 000001 1610 OS 6670 SBX4 1, Du GET POIRTBR TO ALLOCATED WORD IN XR ~ 4 
020542 035227 1610 Oo 6671 GBX4 TSTYPE MAKE POINTER RELATIVE 
020543 020676 74140 00 6672 $TX4 STYPP AND SAVE POINTER IN MEMORY 
020544 035234 2260 a0 6673 LDX6 = ASWORK GET POINTER TO END OF WORKING STACK 
020545 035214 16600 09 6674 S$BX6 TSWORK MAKE POINTER RELATIVE 
020546 000004 1660 98 6675 SBX6 WL» DU GET RELATIVE POINTER TO LAST BLOCK IN WORK 
020547 020677 7460 QO 6676 STX6 STYB AND SAVE 
020550 047044 2260 60 6677 LDX6 LSTMK GET POINTER TO LAST TIME WORK WAS MARKED 
020551 035214 0660 00 6678 STYP2 ADX6 TSWORK MAKE BLOCK POINTER ABSOLUTE 
020552 000000 7270 46 6679 X17 0,6 GET MODE OF BLOCK IN XR « 7 
020553 010562 7000 00 6680 TSX0 ASRCHK SEE IF MODE 18 A ROW TYPE MODE 
020554 020572 7400 00 64681 TRA STYP7 TRANSFER IF NOT ROW TYPE 
020555 090009 6350 49 6662 EAA lei ALLOCATE ONE WORD 
020556 035227 2210 93 6683 LDX1 TSTYPE, BU IN THE TYPE TABLE 
020557 035214 1660 0 6664 SBX6 TSWORK MAKE BLOCK POINTER RELATIVE 
020560 005663 7090 80 6685 TSX0 TSALOC ALLOCATE MEMORY 


END OF BINARY CARD 009003357 
020561 035214 9460 OV 6686 ADX6 TSWORK MAKE BLOCK POINTER ABSOLUTE 
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3 PASS 3 
020562 000000 2250 16 6687 LDX5 0,6 GET FLAGS FROM BLOCK IN XR # 5 
020563 000400 3050 O48 6688 CANX5 BSFU,DU SEE IF POINTER TU STACK IS STORED 
020504 020567 60u0 Og 6689 TZE STYP5 TRANSFER IF NOT 
020565 0272415 2350 0¢ 6690 LDA TSPTR,DU GET POJNTER TYPE IN AU 
020566 020571 7400 OV 6691 TRA STYP6 AND CONTINUE 
020567 027222 2350 O¢ 6692 STYP5S LDA TESKIP,DU GET SKJ]P TYPE IN AU 
020570 000001 0750 a7 6693 ADA 4,0L ADD ONE aS NUMBER OF WORDS TO SKIP IN aL 
020571 777777 7550 1 6694 STYP6 STA "et AND STORE TYPE WORD IN TYPE TABLE 
020572 000000 7270 16 6695 STYP7 LXL7 0,6 GET MODE OF BLOCK IN XR e 7 
020573 010630 7000 Q0 6696 TSXO ASXFER MAKE MOBE POINTER ABSOLUTE 
020574 000000 2250 46 6497 LOx5 0,6 GET FLAGS FROM BLOCK IN XR = 5 
020575 100000 3050 O03 6698 CANXS BSFC,DU IS VALUE STACKED 
020576 020623 6000 9u 6499 TZE STYP3 TRANSFER IF VALUE JS NOT STACKED 
020577 090000 7240 47 6700 LX 4 0.7 GET POINTER YO TYPE FOR MODE IN XR ~ 4 
020600 035227 9640 49 6704 ADX4 TSTYPE MAKE TYPE POINTER ABSOLUTE 
020601 777777 2350 44 6702 LDA 74154 GET NUMBER OF WORDS IN TYPE IN AU 
020602 777777 6350 O4 6703 EAA wi, AU GET NUMBER OF WORDS ew 4 TO ALLOCATE IN aU 
020603 035227 2210 98 6704 LDX4 TSTYPE,DU GET POINTER TO YYPE TABLE CONTROL WORD IN XR © ¢ 
020604 035227 1640 900 6705 SBX4 TSTYPE MAKE TYPE POINTER RELATIVE 
020605 035214 1660 00 6706 SBX6 TSWORK MAKE BLOCK POINTER RELATIVE 
020606 005663 7000 §u 6707 TSX0 TSALOC ALLOCATE SPACE IN TYPE TABLE 
END OF BINARY CARD 90000358 
020607 035227 0640 99 6708 ADX4 TSTYPE MAKE TYPE TABLE POINTER ABSOLUTE 
020610 035214 94660 00 6709 ADX6 TSWORK ; MAKE BLOCK POINTER ABSOLUTE 
020611 000001 1610 O63 6710 $BX4 1,0u GET POINTER TO STARY OF ALLOCATED SPACE 
020612 777777 2390 $4 6714 LDA =4)4 GET NUMBER OF WORDS IN TYPE IN AU 
020613 000000 6350 4 6712 EAA 0,AU ZERO OUT AL 
020614 000040 7740 O09 6713 ARL 8 POSITION WORD COUNT FOR REPEAT 
020615 001400 6200 05 6714 EaXxo 768, aL GET COUNT aND a AND B BITS IN XR ~ 6 
020616 Ae 
0206147 000000 56 01 6715 RPDX at MOVE 
020620 000000 se £4 6716 LDA 0,4 FROM TYPE 
020621 000000 7550 43 6717 STA Oot TO NEWLY ALLOCATED SPACE IN TYPE TABLE 
020622 020634 7400 90 6748 TRA STYP4 AND CONTINUE 
020623 777777 7240 47 6749 STYPS LXL4 ~417 GET LENGTH OF VALUE IN XR » 4 
020624 035227 2210 08 6720 LDOX4 TSTYPE,DU GET POJNTER TO TYPE TABLE CONTROL WORD IN XR ~ 4 
020625 000000 6350 00 672k EAA int PREPARE ¥O ALLOCATE ONE WORD 
020626 035214 14660 09 6722 SBX6 TSWORK MAKE BLOCK POINTER RELATIVE 
020627 005663 7000 80 6723 YSxo TSALOC ALLOCATH ONE WORD IN TYPE TABLE 
020630 035214 0660 90 6724 ADX6 TSWORK MAKE BLOCK POINTER ABSOLUTE 
020634 027222 2200 OS 6725 LDX0 TSSKIP,DU GET SKI® TYPE IN XR © Q 
020632 777777 74y0 2 6726 STX0 edad AND STORE jn TYPE TABLE 
020633 777777 4440 41 6727 SXL4 w1a4 STORE LB8NGTH TO SKIP IN SaMeé WORD OF TYPE TABLE 
020634 000004 9660 Q3 6728 STYP4 ADX6 WL »DU STEP TQ NEXT BLOCK IN WORK 
END OF BINARY CARD Q0N0U03389 ‘ 
020635 035214 1660 og 6729 SAX6 TSWORK MAKE POINTBR RELATIVE 
020636 020677 1060 O00 6730 CMPX6 STYE SEE JF AT END OF WORKING STACK 
020657 020551 6010 60 673% TNZ STYP2 TRANSFER JF MORE BLOCKS IN WORK 
020640 035227 1610 OV 6732 SBX4 TSTYPE GET RELATIVE POINTER TO END OF T¥PE TABLE ENTRY 


0206441 020676 1610 00 6735 SBX4 STYPP SUBTRACT BEGINNING LOCATION OF TYPE TaBLE ENTRY 
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3 PASS 3 
020642 777777 6350 41 6734 EAA "Lat GET LENGTH OF ENTRY IN AU 
020643 020676 2210 OV 6735 LDX4 STYPP GET POJNTER TO START OF TYPE TABLE ENTRY 
020644 035227 9619 OV 6736 ADX1 TSTYPE MAKE POYNTER ABSOLUTE 
020645 090000 7550 41 6737 STA 0,1 STORE LENGTH IN FRONT OF ENTRY 
020646 035227 1610 OV 6738 SBX4 TSTYPE MAKE POINTER RELATIVE 
020647 000001 0610 OS 6739 ADX4 4, DU STEP OVER LINK WORD 
020650 020700 7410 OV 6740 STX4 STYPT SAVE TYPE POINTER 
020651 017044 2260 O09 6744 LDX6 LS TMK GET POINTER TO BLOCK OF LAST MARK 
020652 035214 0660 Ou 6742 ADX6 TSWORK MAKE POYNTER ABSOLUTE 
020653 000001 22y0 16 6743 LDXO 1,6 GET ADDRESS OF LAST MARK IN XR = QO 
020654 000000 6350 49 6744 EAA 0,0 GET LAST MARK ADDRESS JN AU 
020655 635017 0750 07 6745 ADA EAAsD,DL MAKE EAA LSTMK,D INSTRUCTION 
020656 017474 7au0 ov 6746 TSX0 Gap AND ADD TO GENERATED OUTPUT 
020657 020700 2210 OU 6747 LDX4 STYpT GET TYPE POINTER IN XR w 4@ 
020660 022110 70u0 OV 6748 TSX0 Th GET LINKED YYPE ADDRESS IN aU 
020661 075007 0750 07 6749 ADA ADAsDL,DL MAKE ADA TYPE,DL INSTRUCTION 
020662 017474 7000 40 6750 TSXO GAD AND ADD TO GENERATED OUTPUT 
END OF BINARY CARD 00000440 
020663 035234 2260 00 6754 LDX6 ASWORK GET POJNTER YO END OF WORKING STACK 
020664 000004 1660 Q3 6752 SBX6 Wha DV GET POINTER TO mS OR MSCW BLOCK 
020665 100000 2250 03 6753 LDX5 BSFc,DU GET VALUE IS STACKED BIT 
020666 U90000 7450 46 6754 STX5 016 AND STORE IN BLOCK 
020667 0090001 2320 16 6755 LDA 1,6 GET ADDRESS OF vaALUE IN AU 
020670 000000 6350 94 6756 EAA 0, AU ZERO OUT AL 
020671 7550147 0790 97 6757 ADA STA«#D,DL MAKE STA MS,D INSTRUCTION 
020672 017474 7000 90 6758 TSX0 GAD AND ADD TO GENERATED OUTPUT 
020673 023652 7000 00 6759 SXO PUSH PUSH OLp MS AND MAKE NEW ONE CURRENT 
020674 000000 7100 90 6760 STYPX YRA ** AND RETURN WITH TYPE IN XR # ¢ 
020675 000000 on0008 6764 STYPR ZERO 
020676 000000 On0000 6762 STYPP ZERO 
020677 000000 On00U0 6763 STYE ZERO 
020700 000000 000000 6764 STYPT ZERO 
020701 020710 7490 90 6765 NL,OC STXO0 NLOCX SAVE RETURN 
020702 000092 7220 16 6766 LXL2 2,6 GET LEXECOGRAPHICAL LEVEL DIFFERENCE IN XR » 9 
020703 047663 2350 a0 6767 LDA XREGJ GET ALLOCATED X*REGISTER FOR COMMAND 
020704 220017 0750 97 6768 ADA WDXeD,DL ADD LDX® 0,0 COMMAND 
020705 000002 Q750 OS 6769 ADA 2,Du MAKE JT LBXR 24D 
020706 017474 7000 QO 6770 TSXO GaD AND ADD LDXR 2,0 TO GENERATED CODE 
020707 000001 18620 93 6771 NLOCL SBX2 4,Du DECREMERT NUMBER OF LEVELS LEFF TO EXIT 
020710 000000 6nu0 ON 6772 NLOCX YFZE on EX]T IF NO MQRE TO EXIT 
END OF BINARY CARD 00000341 
020711 047663 2350 09 6773 LDA KREG] GET ALLOCATED XeREGISTER FOR COMMAND 
Q20712 017664 0750 00 6774 ADA XREGM ADD ALLOCATED X#REGISTER MODIFICATION 
020743 220000 0750 97 6775 ADA LOX, DL ADD LDX COMMAND 
020714 00900002 0750 03 6776 ADA 2,0u MAKE JT LBXR 2,R 
020715 017474 7ng00 Ay 6777 YSx0 GAD AND ADD LDXR 2,R TO GENERATED CODE 
02c716 020707 7409 Qu 6778 YRA NLOCL AND LOOP 
020717 029740 7409 OV 6779 IDFY STXO ] DF yx SAVE RETURN 
020720 0179045 7210 oY 6780 LXi4 PARAM GET DEFINITION POINTER IN XR = 4 


020721 035220 0610 OV 6781 ADX4L TSDEF MAKE DEFINITION POINTER ABSOLUTE 


0155? 


END 


END 


Of 05"26-72 
x) 

020722 vodunD 
U20723 020746 
020724 020747 
029725 777777 
020726 017042 
U20727 v35215 
020730 035215 
0207351 009090 
V20752 020737 
020733 020746 
020754 09000 
020755 490000 
020736 020730 
OF gINARY CARD 
020737 Oo0000 
020740 090000 
020741 029747 
020742 0090000 
020743 777777 
020744 000000 
020745 020730 
020746 000000 
020747 0909000 
020759 021005 
020751 035234 
020752 0090004 
020753 090000 
020754 000004 
020755 017665 
020756 09000038 
020757 017673 
020769 0090400 
020761 020766 
020762 000001 
020763 021006 
020764 0214006 


OF BINARY CARD 


020765 017474 
020766 000001 
020767 047037 
020770 0090000 
020771 010562 
020772 020777 
020773 035234 
020774 000004 
020775 od00001 
020776 017037 
020777 035234 
021000 000004 
021001 000001 


17,868 


2350 11 
45u0 Ou 
4500 Oy 
2360 OS 
2200 OS 
16Q0 00 
Q6u00 OU 
2340 tu 
6050 OY 
u540 OU 
2200 10 
6600 OS 
7400 00 
00000842 
24409 10 
6000 OU 
0540 Ou 
2340 40 
6009 00u 
2200 40 
7400 90 
Q0Q00u0 
000000 
7490 980 
2260 00 
1660 OS 
2250 46 
2360 46 
7000 9u 
2360 16 
70u0 OU 
3950 Qs 
6000 00 
7200 46 
7400 00 
2350 00 
00000443 
7000 90 
2200 16 
7400 OY 
7270 16 
7000 00 
7400 90 
2260 00 
1660 03 
7200 16 
7409 90 
2260 00 
16600 O35 
6200 §y 
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6782 
6783 
6784 
6785 
6786 
6787 
6788 
6789 
6790 
6794 
6792 
6798 
6794 


6795 
6796 
6797 
6798 
6799 
6800 
6801 
6802 
6803 
6804 
6805 
6906 
6897 
6898 
6899 
6810 
6814 
6812 
64313 
6814 
6815 
6816 


6817 
6818 
6849 
6820 
682t 
6822 
6823 
6824 
6825 
6826 
6827 
6428 
6829 


IDF YB 


IDF Y4 


IuFy2 
IDF YX 


TUFYC 
TOF YF 
VOID 


VOIDS 


VOID2 


LDA 
S¥Z 
SfZ 
LOG 
LOx0 
SBX0 
ADXO 
SZN 
TPL 
AQS 
LOXG 
ERXO 
TRA 


CMK 
TZE 
aos 
SZN 
TZE 
LDxo 
TRA 
ZERO 
ZERO 
STXxo 
LDX6 
SBX6 
DX5 
DQ 
TSXo 
Da 
TSXO 
CANX5 
TZE 
XL 
STX0 
LDA 


TSX0 
LDXO0 
STXo 
LXL7 
TSX0 
TRA 

LDXx6 
SBX6 
LXL0 
STXO 
LDX6 
SBX6 
EAXO 


Pass 3 


Usd 

IDF yc 
[DF YF 
°71,D0U 
LLINK, Du 
TESTACK 
TESTACK 
0,0 

IpF v2 
lor yc 
0.0 


20490000,DU 


IOFY41 
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GET LL OF IDENTIFIER IN AL 

INT TIALIZE LL DIFFERENCE 

INITIALYZE LOCAL FLAG 

MASK OUT UPPER HALF OF A REGISTER 

GET POJNTER TO CURRENT ENVIRONMENT 
MAKE PSEUDQeRELATIVE FOR LOOP ENTRY 
MAKE ENVIRONMENT POINTER ABSOLUTE 
CHECK JF LEXICOGRAPHICaL LEVEL CHANGE 
TRANSFER IF NO CHANGE 

INCREMENT LEVEL DIFFERENCE 

GET POINTER TO SURROUNDING ENVIRONMENT 
MAKE POINTER CORRECT 

AND LOOP 


SEE IF tpENTIFIER IS MECLARED IN THIS RANGE 
RETURN YF YES 

SET Ly CHANGE FLAG 

SEE JF THIS IS THE OUTERMOST RANGE 

YES = COMPILER ERROR 

GET POINTER TO SURROUNDING ENVIRONMENT 

AND LOOP 


SAVE RETURN 

GET POINTER TO END OF WORKING STACK 

GET POINTER TO LAST BLOCK IN WORKING STack 
GET FLAGS FROM BLOCK IN XR « 5 

GEY REGISTER YO DEALLOCATE 

DEALLOCATE ANY DEREFERENCED VALUE 

GET REGISTER TO DEALLOCATE 

DEALLOCATE ANY OTHER REGISTERS 

IS ARRAY IN S7ACK Bly SEry 

NO = TRANSFER 

GET ADDRESS OF OLD STACK POINTER IN STACK 
AND STORE IN INSTRUCTION 

GET INSTRUCTION IN a REGISTER 


AND ADD YO GENERATED OUTPUT 

GET ANDRESS ALLOCATED FOR VALU& IN STACK 
RESET STACK POINTER 

GET MODE OF VALUE IN XR «@ 7 

SEE JF MODE CONTAINS ARRAYS 

TRANSFER {fF NO ARRAYS 

GET POINTER TO END OF WORKING STACK 

GET POINTER TO LAST BLOCK JIN WORKING STACK 
GET ADDRESS ASSIGNED FOR SAVED STACK POINTER 
AND DEARLLOGATE STACK POINTER WORD 

GET POJRYTER TO END OF WORKING STACK 

GET POINTER TO LAST BLOCK JIN WORKING STacKk 
GET VQIB MODE IN XR #& Q 


01557 


END 


04 05626672 
3 
024002 0090000 
021003 100000 
021004 vu00000 
021005 090000 
021006 000000 
024007 021014 
Q21010 020750 
024011 035234 
021012 035234 
END OF BINARY CARD 
024013 021011 
0240144 000000 
024015 021025 
024046 017045 
024017 0003523 
021020 000041 
021021 021024 
021022 0090330 
021023 777777 
021024 017256 
021025 000000 
021026 000000 
0214027 021040 
Q24050 021554 
021051 025624 
021052 021524 
021033 035234 
021034 000004 
021035 000000 
021056 021041 
021057 021007 
021040 000000 
OF BINARY CARD 
024041 035235 
021042 005742 
021043 021553 
021044 0140630 
021045 000000 
021046 016757 
021047 021072 
021050 000004 
021051 035216 
024052 035235 
024053 005742 
024054 035235 
021055 005742 
021056 035216 
024057 021060 
021060 090000 
021064 000000 
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4400 
2250 
7450 
74009 
2260 
74y0 
7000 
0140 
1060 


00000344 


6040 
71400 
7400 
7270 
2210 
4070 
6000 
2240 
60310 
7ou0 
7100 
7400 
7400 
4500 
2240 
7440 
2260 
4660 
7270 
7000 
70U0 
7100 


00000345 


7400 
7470 
7470 
7000 
2200 
1000 
6040 
2240 
4670 
7470 
7470 
7440 
7470 
0670 
7440 
04670 
2270 


00 


36 
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6830 
6831 
6832 
6835 
6834 
6835 
6836 
6837 
6838 


6839 
6840 
6844 
6842 
6843 
6844 
6845 
6846 
6847 
6848 
6849 
6850 
6854 
6852 
6853 
6854 
6855 
6856 
6857 
6858 
6859 
6860 


6864 
6862 
6863 
6664 
6865 
6866 
6867 
6868 
6869 
6870 
6874 
6872 
6873 
6874 
6875 
6876 
6877 


VOTpX 
VOID} 
DELYV 


DELV4 


DEL VX 
PRIM 


PRIM4 
PRIMX 
ASGN 

ASGNE 


ASGNX 


ASG 


AST 


AST? 


$Xi,0 
DX5 
STX5 
TRA 
DX 
STX0 
TSX0 
NOP 
CMPX6 


YNZ 
TRA 
STX0 
LX? 
LPX4 
CMPX?7 
YZE 
LOX4 
TNZ 
7SxX0 
TRA 
TRA 
STX0 
STZ 
LDxd 
STX¢ 
LDX6 
SBX6 
LXL7 
TSX0 
¥SX0 
TRA 


STXO 
XED 
STX7 
TSXo 
LOx0 
CMPXO 
ING 
DX4 
$8X7 
$TX7 
XED 
STX4 
XED 
ADX7 
STX4 
ADX7 
DX7 


PASS 3 


0,6 
BSFc,DY 
0.6 

ne 

S$,0,0 
DELVX 
VOID 
ASWORK,D] 
ASWORK 


DELV1 

** 

PRIMX 
PARAM 
TR,pU 
MSREAL, DY 
PRIM4 
BIR, DU 
SERROR 
OPES 


RSACHEKj DU 
AS{a 
ASWORK 

Wh» DU 

0,6 

ASG 

DELV 


*n 


ASSTACK;]D 
TSSOVF 
ASGM 
ASXFER 

0,7 
MSSTRET;DU 
ASGq 

4,00 
TSMODE 
ASSTACK, ID 
TSSOVF 
ASSTACK, 1D 
TSSOVF 
TSMODE 
AST2 

##,DU 

0,7 
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AND STORE [IN BLOCK 

GET VALUE IS STACKED BIT 

CLAIM THA? THE VOID IS IN THE STACK 
AND RETURN 


SAVE RETURN 

VOJD VALUE 

DELETE A WORD FROM THE WORKING STack 
HAVE WE DELETED ENOUGH 


TRANSFER IF MORE TO DELETE 

AND RETURN 

SAVE REVURN 

GET MODR OF RESULT OF COERCION 

GET POJNTER TO INT TO REAL COERCION MACRO 
1S RESULT MODE REAL 

YES + ALL SET UP SO TRANSFER 

GET POINTER TO LINT TO LREAL COERCION MacRO 
TRANSFER IF COERCION NOT IMPLEMENTED YET 
DO MAGRO 

AND RETURN 

NOTHING YO DO To SET UP AaSSIGNATION 

SAVE REYURN 

ZERO OU OFFSET 

GET ASSIGN SUBROUTINE 

AND STORE FOR ASSIGN ROUTINE 

GET POINTER TO END OF WORKING STACK 

GET POINTER TO LAST BLOCK IN WORKING STack 
GBT MODE OF BLOCK IN XR e 7 

ASSIGN WaLWE TO NAME 

DELETE SOURCE BLOCK FROM WORKING STACK 
AND RETURN 


SAVE RETURN 

CHECK FOR STACK OVERFLOW 

SAVE MODE OF ASSIGNATION 

MAKE MODE POINTER aBSOLUTE 

GET TYPH OF MODE IN XR & 0 

1S If A STRUCTURED MODE 

TRANSPER IF NOT STRUCTURED 

GET A RELATIVE POINTER 70 FIRS? STRUCTURE FIELD 
MAKE STRUCTURE MODE POINTER RELATIVE 

SAVE STRUCTURE MODE IN STACK 

CHECK FOR STACK OVERFLOW 

SAVE FIELD POINTER IN STACK 

CHECK FOR STACK OVERFLOW 

GET ABSOLUTE STRUGTURE MODE POINTER IN XR « 7 
STORE FIELD POINTER FOR ADDING 

GET POINTER TO CURRENT FIELD OF STRUCTURE 

GET MODE OF FIELD IN XR w 7 
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R) PASS 3 
621062 021041 7000 OV 6873 TSXO ASG ASSIGN FIELD 
021063 035235 2210 54 6879 LOX4 ASSTACK,DI GET FIELD POINTER IN XR = 4 
021064 035235 2270 54 6880 LDX7 ASSTACK,DI GET STRUCTURE MODE IN XR - 7 
021065 035246 y6/0 oO 68BL ADX7 TSMODE MAKE MODE POINTER ABSOLUTE 
021066 000001 0610 OS 6882 ADX4 1,DuU STEP FIBLD POINTER TO NEXT FIELD 
END OF BINARY CARD 00000346 
021067 777777 1010 17 6883 CMPX4 7497 SEE JF ANY MORE FIELDS 
021070 21051 6010 00 6884 YNZ AST TRANSFER IF MORE FIELDS IN STRUCTURE 
U24071 021511 7100 OV 6885 TRA ASGR AND GO fO RETURN 
024072 v16770 1000 OS 6886 ASGL CMPXQ MSROW, DU IS If A ROW VALUE 
021073 021076 60uN0 OU 6887 YZE ASG2 TRANSFER [TF ROW VALUE 
021074 016776 10uU0 OS 6888 CMPXQ MSROWE, DU IS IT aA ROW VALUE 
021075 021465 6010 OV 6869 TNZ ASG3 TRANSFER IF NOT A ROW VALUE 
021076 00900335 6270 OU 6890 aSG2 EAX7 MEMS GET MODE OF MARK STACK IN XR © 7 
021077 U20377 7A00 OY 6891 TSX0 MBLK AND MAKE a BLOCK FOR MARK STACK 
021100 009001 2350 46 6892 LDA 1,6 GET ADDRESS OF MaRK STACK IN AU 
U21101 021570 7510 79 6893 STCA AS15,70 AND STORE IN INSTRUCTION SEQUENCE 
021102 020526 7ou0 OV 6894 TSX0 STYPE MARK THE STACK 
021103 035234 2260 Oy 6895 LDX6 ASWORK GET POINTER TO END OF WORKING STACK 
0211904 00004 1660 O08 6896 SBX6 Wha DU GET POINTER TO MARK STACK BLOCK 
021105 090004 2350 16 6897 LDA 1.4 GEY ADDRESS OF MARK STACK IN Ay 
021106 000001 0750 O58 6898 ADA 1,QU GET POINYER YO SAVED S WORD 
021107 021513 7510 79g 6899 STCA AS10,70 AND STORE IN INSTRUCTION SEQUENCE 
U21110 000004 1660 O08 6900 SBX6 WLEL»DU GET POINTER TO SOURCE BLOEK 
021111 020204 7oy0 Ou 69014 TSXO0 MVA MAKE SOURCE DESCRIPTOR AVAILABLE 
021112 777777 7400 950 6992 TRA gERROR CAN NOT BE IN ACCUMULATOR 
021113 021554 9750 O00 6993 ADA ASL ADD OF FSEY 
021114 021516 7510 74 6904 STCA ASI3,74 STORE DESCRIPTOR apDRESS IN INSTRUCTION SEQUENCE 
END OF BINARY CARD go0yous47 
024415 000004 1660 03 6905 SBX6 WL,DU GET POINTER TO DESTINATION BLOCK 
021116 021524 2200 90 6906 LDx0 AS]8 GET TYPE OF ASSIGNATION FLAG IN XR ~- O 
021117 025621 1000 OS 6907 CMPXQ  RSACHEK)DU IS !¥ A REGULAR ASSIGNATION 
024120 021123 S910 OY 8998 TNZ ASG22 TRANSFER fF NOT 
021121 020066 7900 00 5909 ¥Sx0 MNA MAKE DESTINATION NAME AVAILABLE 
021122 021125 74y0 00 6940 TRA ASG23 AND CONFINUE 
021123 020204 700 ov 6914 ASG22 TSXpo sen MAKE DESYINATION POINTER AVAILABLE 
021124 777777 7400 OY 6942 YRa $SERROR COMPILER ERROR » NEVER IN ACCUMULATOR 
021125 021554 0750 ou 6943 ASG23 ADA ASL ADD OFFSET 
024426 024514 7540 74 6944 STCA AS|as74 STORE DBSTINATION aDDRESS IN INSTRUCTION SEQUENCS 
021127 020052 7000 900 6945 TSXO PALL PURGE aLL REGISYERS 
021150 0090037 6270 O00 6946 £AX7 MSPYR GET MODE OF POJNTER IN XR & 7 
021151 020377 7900 00 6947 TSXo0 MBLLK MAKE a BLOCK FOR 4 POINTER 
021132 190000 2250 O08 6948 LOXS BSrc, DU GET VaLVE IS STaCKED BIT 
021153 000000 7450 16 6919 §TX5 0:6 AND SYORE JN FLAGS OF BLOCK 
021154 000001 23950 16 6920 LDA 1,6 GET ADDRESS OF POINTER IN AU 
024155 021515 7510 7y 8921 STCA AS12,70 AND STORE IN INSTRUCTION SEQUENCE 
021156 090037 6270 oy 6922 EAX7 MSPTR GEY MODE OF POINTER IN XR # 7 
021137 029377 7009 00 6923 TSX0 MBLK MAKE a BLOCK FOR a POINTER 
021140 1009090 2250 435 6924 LOXx5 BSFC,DY GEY VaLUE JS SYACKED BIT 


021141 090000 7450 16 6925 SYX5 0,6 AND SYoORE IN FLAGS oF BLOCK 


01557 


END 


END 


04 0526872 
3 

021142 000001 
OF BINARY CARD 
024143 021517 
021144 021553 
021145 090000 
021146 090001 
021147 010630 
021150 090000 
021151 000001 
0214152 0416776 
024153 021146 
021154 021555 
021155 021522 
021156 021556 
024157 010630 
024160 777777 
021161 021521 
024162 0214523 
024163 017507 
021164 021555 
021165 022103 
021166 624900 
024167 017474 
021170 021524 
OF BINARY CARD 
024171 017474 
024172 021007 
0241173 021007 
024174 035225 
024175 047045 
024176 021557 
024177 035225 
021200 0090000 
024201 095663 
024202 777777 
021203 022047 
021204 730004 
023205 017474 
021206 021556 
0214207 021560 
024210 000004 
024211 021561 
021212 000042 
021213 020377 
0242144 021561 
Q214215 000001 
021216 090000 
OF BINARY CARD 
024217 0900017 
024220 000042 
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2390 


00000448 


7510 
2270 
2210 
0610 
70y0 
2200 
2270 
1000 
6010 
7470 
7410 
4410 
70U0 
7200 
7400 
2350 
7000 
2270 
7000 
0750 
7000 
2350 


Q0000349 


7000 
7000 
7000 
7220 
4420 
7420 
2210 
6350 
7000 
4590 
7000 
0750 
7000 
3350 
7550 
2200 
74090 
6270 
7000 
2350 
2360 
6360 


Qeu00350 


0760 
6270 


16 


70 


00 


02 


07 
00 
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ASR2 


PASS 3 
1,6 


AS14,70 
ASGM 
Q,DU 
1,0U 
ASXFER 
0.7 

1,7 
MSROWE, BU 
ASR 
ASE 
ASI7 
ASD 
ASXFER 
e117 
AST6 
ASITi 
GADL 
ASE 

MTL 
EAX4,DL 
GAD 
AST8 


GAD 
DELV 
DELV 
TSLBL 
PARAM 
ASLBL 
TSLBLsDU 
i=) 
TSALOC 
wiet 
TRAD 
TRAaIC, PL 
GAD 
ASD 
ASTP 
1,Du 
ASRX4 
MSQUAD 
MBLK 
ASRX1 
1,6 

0, QU 


DDL 
MSQUAD 


PAGE 161 


GET ADDRESS OF POINTER IN AU 


AND STORE IN INSTRUCTION SRQUENCE 
GET MODE OF ROW VALUE IN XR « 7 
INITIALIZE COUNT To ZERO 
JNCREMENT DIMENSION OF ROW MODE 


MAKE MODE ABSOLUTE 


GET TYPE OF MODE IN XR =» Q 
GET DEROWED MODE IN XR w& 7 
TS THIS THE LAST ROW MODE 


NO » LOOP 


SAVE MODE OF ELEMENT 


STORE DIMENSION IN INSTRUCTION SEQUENCE 
SAVE DIMENSION OF ARRAY 

MAKE MOBE POINTER ABSOLUTE 

GET LENGTH OF ELEMENT VALUE IN XR ~ g 
AND STORE IN INSTRUCTION SEQUENCE 

GET TALLY WORD FOR INSTRUCTION SEQUENCE 
AND ADD INSTRUCTIONS TO GENERATED QUTPUT 
GET MODE OF ELEMENT IN XR w& 7 

GET TYP8 OF ELEMENT IN au 

MAKE EaAX4 TYPE INSTRUCTION 

AND ADD YO GENERATED OUTPUT 


GET TSX9 TO FIX/FLEX 


AND ADD YO GENERATED 
DELETE POINTER BLOCK 
DELETE POINTER BLOCK 
GET NEXT LABEL TO BE 
STORE AS PARAMETER 
STORE DONE LABEL 

GET POINTER TO LABEL 
ALLOCATE ONE WORD 


CLEANUP ROUTINE 
OUTPUT 


ASSIGNED 


TABLE CONTROL WORD IN XR = 4 


ALLOCATE ONE WORD JN LABEL TABLE 

ZERO OUT ALLOCATED WORD 

GET CHAJN ADDRESS IN AU 

ADD TRA O.]¢ INSTRUCTION 

AND ADD TO GENERATED OUTPUT 

GET MINWS NUMBER OF DIMENSIONS FOR COUNT 
AND STORE FOR COUNTING 

GET OFFSET FOR QUADRUPLE 


AND STORE 


GET MODE OF QUADRUPLE IN XR - 7 
AND MAKE A QUADRUPLE BLOCK 

GET ADDRESS OF CURRENT QUADRUPLE 
GET ADDRESS TO mQVE TO 


ZERO OUT OL 


ADD XR » D MODIFICATION 
GET MODE OF QUAD IN XR » 7 


01557 01 O5"26-72 17,863 ALGAL68 pide ve 


. PASS 3 
024221 17531 70u0 ov 6973 TSXO MOVE MOVE QUADRUPLE 
021222 000004 2200 OS 6974 LDxo 4, Du GET LENGTH OF QUADRUPLE IN XR w 0 
021223 021561 04u0 a0 6975 ASXO ASRX4 STEP OFFSET TO NEXT QUADRUPLE 
peace. Celso Uoee a0 6976 AOS ASTP COUNT REMAINING DIMENSIONS: 
021225 021212 6010 900 6977 TNZ ASR? TRANSFER IF MORE DIMENSIONS 
021226 035234 2260 O00 6978 LDX6 ASHORK GET ANDRESS aT END OF WORKING STACK 
O21227 = Us5244 1660 OU 6979 S8X6  — TSWORK MAKE POINTER RELATIVE 
021250 021563 7460 ou 6980 STX6 ASQ4 AND SAVE 
betes e. ueee eee a 6981 LCA ASD GET MINUS NUMBER OF DIMENSIONS FOR COUNT 
Ce ae ae od are S782 STA asTP AND STORE FOR COUNTING 
021233 090001 22u0 as 6983 LDX0 1,DU GET OFFSET FOR QUADRUPLE 
021254 021562 7400 00 6984 STXO ASRX2 AND STORE 
0214235 000042 62/70 op 6985 ASR EAX7 MSQUAD GET MODE OF QUAPRUPLE IN XR - 7 
021256 020577 7000 00 6986 TSXO = MBLK AND MAKE A QUADRUPLE BLOCK 
0214237 021562 2350 40 6987 LDA ASRX2 GET ANDRESS OF CURRENT QUADRUPLE 
021240 000001 2360 16 6988 Da 1,6 GET ADDRESS TO MOVE TO 
024241 QON0ND 6360 D2 6989 EAQ 0,QuU ZERO OUT aL 
021242 000017 0760 07 6990 aDQ DDL ADD XR » D MODIFICATION 
021243 000042 6270 0 6991 EAX7 § MSQUAD GET MODE OF QUAD IN XR = 7 
022244 017531 7000 O09 6992 TSX0 MOVE MOVE QUADRUPLE 
END OF BINARY CARD 00000352 
021245 000004 2200 OS 6993 LDXo 4, Du GET LENGTH OF QUADRUPLE IN XR 6 
021246 021562 0400 00 6994 ASXO ASRX2 STEP OFFSET TO NEXT QUADRUPLE 
021247 021560 0540 OO 6995 AOS ASTP COUNT REMAINING DIMENSIONS 
021250 021235 6010 OV 6996 TNZ ASR3 TRANSFER IF MORE DIMENSIONS 
021251 035234 2260 00 6997 LDX6  — ASWORK GET ADDRESS AY END OF WORKING STACK 
021253 021564 7460 oy 6999 STX6 ASQ2 AND SAVE 
021254 021556 3350 09 7000 LOA ASD GET MINUS NUMBER OF DIMENSJONS FOR COUNTING 
021255 021560 7550 00 7004 STA ASTP AND STORE FOR COUNTING 
021256 000007 6270 90 7002 ASR4 €EAX7 MSINT GET MODE OF PLACE IN XR «@ 7 
021257 020377 7000 00 7003 TSX0 MBLK MAKE & BLOCK FOR PLACE 
021260 000001 2350 46 7004 LDA 4,6 GET ADDRESS OF PLACE IN AU 
021261 090000 6350 04 7005 EAA Q,AU ZERO OUT AL 
024262 450017 750 07 7006 ADA S7ZeD, DL ADD STZ 0.D INSTRUCTION 
024263 017474 7000 do 7007 TSX0 GAD AND ADD TO GENERATED OUTPUT 
021264 021560 0540 90 7008 aos ASTP COUNT REMAINING DIMENSTONS 
021265 021256 6040 00 7009 TNZ ASR4 TRANSFER IF MORE DIMENSIONS 
021266 000037 6270 00 7010 BAX? MSPTR GET MCDE OF POINTER IN XR ow 7 
021267 020377 7900 90 7044 TSX0 MBLK AND MAKE A BLOCK 
021270 100000 2250 Os 7012 LDX5 BSFc,DU GET VALUE $S STACKED BIT 
024271 000000 7450 46 7013 STX5 0,6 AND STORE IN BLOCK 
021272 000004 2350 46 7014 LDA 116 GET ADDRESS OF POINTER IN AU 
END OF BINARY CARD g0v00822 
021274 000057 6270 00 7016 EAX7  -MSPTR GET MODE OF POINTER IN XR = 7 
021275 020377 7000 00 7047 T8X0 MBLK AND MAKR A BLOCK 
021276 490000 2250 93 7028 LDX5 = BSFa, Dy GET VALUE $8 POINTED TO BY STACKED POINTER BIT 
021277 000000 7450 16 7049 S$7X5 046 AND STORE JN BLOCK 


021300 000004 2350 16 7A20 LDA 1,6 GET ADDRESS OF POINTER IN AU 


01557 


END 


END 


01 05"26-72 
3 

V241301 021530 
0214302 021531 
U214303 0147507 
021304 35226 
021305 035235 
021306 095742 
021307 021563 
024310 035235 
021311 005742 
021312 021564 
023313 035235 
024314 095742 
0243145 021557 
021316 035235 
024317 095742 
021320 021553 
OF BINARY CARD 
021321 035235 
021322 005742 
021323 021554 
021324 035235 
021325 095742 
024326 021554 
024327 021555 
024350 035235 
021331 0095742 
021332 021556 
0214353 035235 
021334 095742 
021335 021041 
021336 035235 
021357 021556 
021340 035235 
021341 021555 
021342 035235 
021343 021554 
024344 035235 
0213495 021553 
021346 035235 
OF BINARY CARD 
021347 021557 
021350 035235 
021351 021564 
021352 035235 
021353 021563 
0214354 035235 
021355 021565 
024356 035234 
021357 009004 
021360 Q09001 


17,863 


7510 20 
2350 00 
7Ou0 OY 
7200 O09 
7400 56 
74170 OY 
2200 OU 
74y0 56 
74170 OV 
2200 00 
74U0 56 
7170 OY 
2200 499 
74U0 56 
71470 OY 
2270 OQ 
00000353 
7470 56 
7470 00 
2350 O09 
7590 56 
7470 00 
4500 00 
2270 OO 
7470 56 
7170 00 
2350 00 
7550 56 
7170 OY 
7000 90 
2350 $4 
7550 00 
2270 34 
7470 QO 
2390 54 
7590 00 
2270 54 
7470 00 
2200 34 
00000354 
7400 00 
2200 $4 
740 00 
2209 54 
7400 00 
2200 54 
7400 00 
2260 00 
1660 O83 
2350 16 


ALGOL68 


7Met 
722 
7923 
7024 
7025 
7026 
7027 
7928 
7029 
7030 
7031 
7032 
70353 
7934 
7035 
7056 


703? 
7038 
7039 
7040 
7n44 
7042 
7043 
7044 
7045 
7046 
7047 
7048 
7049 
7050 
7054 
752 
7053 
7054 
7055 
7056 
7057 
7058 


7059 
7660 
7064 
7062 
7063 
7064 
765 
7066 
70967 
7068 


STCA 
LDA 
TSXO 
XO 
STX0 
XED 
LUXG 
STXO 
XED 
LDXO 
STX0O 
XED 
LL DXO 
STX0 
XED 
0X7 


STX7 
XED 
LDA 
STA 
XED 
STZ 
LDX7 
STX7 
XED 
LDA 
STA 
XED 
TSX0 
LDA 
STA 
LDX7 
STX7 
LDA 
STA 
LDX7 
STX7 
LDxo 


S7X0 
LDXO 
STX0 
LDXO 
STXo0 
LDX0 
STXO 
LDX6 
SBX6 
LDA 


PASS 3 


AS112,70 
ASIT2 

GADL 

TSGEN 
APSTACK,ID 
TESOVE 
ASQ4 
AZSTACK,ID 
TESOVF 
ASQ? 
ASSTACK,ID 
TSSOVF 
ASLAL 
AZSTACK,ID 
TESOVE 
ASGM 


ASSTACK, ID 
TESOVF 

ASL 
ASSTACK, ID 
TSSOVF 

ASL 

ASE 
ASSTACK, 1D 
TSSOVF 

ASD 
ASSTACK, ID 
TSSOVF 

ASG 
ASSTACK,DI 
ASD 
ASSTACK,D! 
ASE 
ASSTACK,D!I 
ASL 
ASSTACK,D!I 
ASGM 
ASSTACK,DI 


ASLBL 
ASSTACK,DI 
ASQ? 
ASSTACK,D! 
ASOU1 
ASSTACK,DI 
ASMLB 
ABSWORK 

WL DU 

1,6 


PAGE 


AND STORE IN INSTRUCTION SEQUENCE 
GET TALLY WORD FOR INSTRUCTION SEQUENCE 
AND AND SEQUENCE To GENERATED OUTPUT 


GET ADDRESS OF NEXT GENERATED INSTRUCTION 


AND STORE IN STACK 

CHECK FOR STACK QVERFLOW 

GET POINTER TO END OF DESTINATION QUADS 
AND STORE JN STACK 

CHECK FOR STACK QVERFLOW 

GET POINTER TO END OF SOURCE QUADS 
AND STORE IN STACK 

CHECK FOR STACK OVERFLOW 

GET DONE LABEL IN XR = 9 

AND STORE IN STACK 

CHECK FOR STACK OVERFLOW 

GET MODE OF ROW VALUE 


AND STORE IN STACK 

CHECK FOR STACK QVERFLOW 
GET CURRENT OFFSET 

AND STORE IN STACK 

CHECK FOR STACK QVERFLOW 
RESET OFFSET FOR ELEMENT ROUTINES 
GET MODE OF ELEMENT IN XR # 7 
AND STORE IN STACK 

CHECK FOR STACK OVERFLOW 
GET DIMENSJON OF ROW VALUE 
AND STORE JN STACK 

CHECK FOR STACK OVERFLOW 
ASSIGN AN ELEMENT OF ARRAY 
GET DIMENSION OF ARRAY 

AND RESYORE 

GET MODE OF ELEMENT 

AND RESTORE 

GET OFFSET 

AND RESTORE 

GET MODE OF ROW VALUE 

AND RESTORE 

GET DONE LABEL 


AND RESTORE 

GET POINTER TO END OF SOURCE QUADS 

AND RESTORE 

GET POINTER TO END OF DESTINATION QUADS 
AND RESTORE 

GET ADDRESS OF MOVE ELEMENT ROUTINE 

AND STORE 

GET POINTER TO END OF WORKING STACK 

GET POINTER TO SOURCE POINTER 

GET ABDRESS OF SOURCE POINTER IN AU 


U4557 


END 


END 


UL U5"26-72 


") 


024361 uz2td%6 
021362 21559 
b21363 Oynon4 
U21364 ugpnony 
024365 021534 
021366 021545 
021367 G9n004 
021370 vanons 
024371 U2itd53e 
021372 v21541 
021373 021543 
0214374 021546 
OF BINARY CARD 
024375 0215514 
024376 021563 
021377 035214 
021400 0007094 
021401 o00001 
021402 u2154y 
021403 900001 
021404 021537 
021405 vnn001 
021406 021533 
021407 021544 
021410 021564 
021411 035214 
021412 090074 
021413 090001 
021414 090002 
021415 021535 
024416 021547 
024417 035226 
021420 000010 
021421 021542 
024422 021565 
OF BINARY CARD 
024423 021542 
021424 021556 
021425 021569 
024426 021552 
021427 017507 
021430 021560 
021451 21452 
024452 090004 
024433 021533 
021454 021535 
024435 021537 
021456 021540 
021457 021544 
021440 021547 


7519 7y 
75190 7y 
1669 98 
2399 16 
7510 7y 
7510 7y 
1660 O¢$ 
2350 16 
7549 70 
7519 7Yy 
7510 7y 
7510 79 
Ooudgdg>5 
7510 79 
2260 ON 
Q660 OY 
1660 O68 
2350 16 
7510 7y 
0750 OS 
7510 79 
Qg750 OS 
7510 79 
7510 7y 
2260 OY 
660 OY 
1660 Qs 
2350 16 
0750 OS 
7510 7y 
7510 79 
7200 OO 
06qon O38 
7400 OU 
2200 90 
00000356 
1400 OO 
$350 OV 
7590 OY 
2390 OU 
70u0 OU 
0540 OY 
6000 OY 
$200 98 
0409 OU 
0400 OY 
0400 ON 
y4u0 ay 
0400 OU 
0400 460 


ALGIL45 


7969 
7970 
7971 
7972 
7H73 
7074 
7975 
7076 
7077 
7078 
7979 
7960 


7NB81 
7082 
7083 
7084 
7085 
7986 
7087 
7988 
7089 
7090 
7094 
7992 
7093 
7094 
7095 
7096 
7097 
7098 
7099 
7400 
7101 
7402 


7403 
7404 
7405 
7406 
7107 
71408 
7409 
7110 
71411 
7112 
7113 
7414 
71415 
7416 


ASRS 


STCA 
STcA 
SRX6 
LDA 

STCA 
STCA 
SBX6 
LDA 

STCA 
STCA 
STCA 
STCA 


STCA 
LDX6 
ADX6 
SBX6 
LDA 

STCA 
ADA 

STCA 
ADA 

STCA 
STCA 
LDX6 
ADX6 
SBX6 
LDA 

ADA 

STCA 
STCA 
LXLo 
ADX0O 
STX0 
LOX0 


SSX0 
LCA 
STA 
LDA 
TSX0 
aos 
TZE 
LOX0 
ASXO 
ASX0 
ASXO 
ASXO 
ASXO 
ASXO 


PASS 3 


AS124,70 
AS136,70 
WL»DU 
1,6 
AS122,79 
AS133,70 
whan 
1,6 
AS120,76 
AS127,70 
AS131,70 
AS134,79 


AS137,706 
ASQ, 
TEWORK 
wh apu 
116 
AS126,706 
1,0U 
AS125,70 
1,0uU 
AS]21,70 
AS132,70 
ASQ? 
TSWORK 
Whe DU 
1,6 

2,Du 
AS]23,76 
AS135,76 
TEGEN 


ASI3Q"A8120,.DU 


AS13090 
ASMLB 


ASI30 
ASD) 
ASTP 
ASIT3 
GADL 
ASTP 
ASR6 
4,Du 
AST21 
AS]23 
ASJ25 
AS]26 
AS132 
ASI35 
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STORE IN INSTRUCTION SEQUENCE 
STURE IN INSTRUCTION SEQUENCE 

GET POINTER TO NESTINATION POINTER 
GET ANDRESS OF DESTINATION POINTER IN au 
STORE JN INSTRUCTION SEQUENCE 
STORE IN INSTRUCTION SEQUENCE 

GET POINTER TO LaST PLACE BLOCK 
GET ADDRESS OF LAST PLACE IN AU 
STORE IN INSTRUCTION SEQUENCE 
STORE JN INSTRUCTION SEQUENCE 
STORE JIN INSTRUCTION SEQUENCE 
STORE IN INSTRUCTION SEQUENCE 


STORE IN INSTRUCTION SEQUENCE 
GET RELATIVE POINTER TO END OF DESTINATION QUapS 
MAKE POYJNTER ABSOLUTE 

GET POINTER TO LaST DESTINATION QUaD IN XR = 6 
GET ANDRESS OF LAST DESTINATION QUAD IN AU 
STORE IN ENSTRUCTION SEQUENCE 

GET UPPER BOUND ADDRESS 

STORE IN INSTRUCTION SEQUENCE 

GET STRIDE ADDRESS 

STORE IN INSTRUCTION SEQUENCE 

STORE IN INSTRUCTION SEQUENCE 

GET RELATIVE POINTER TO LaST SOURCE QUapD 

MAKE POYNTER ABSOLUTE 

GET POINTER TO LAST SOURCE QUAD IN XR © 6 

GET LOWER BOUND ADDRESS 

GET STRIDE ADDRESS 

STORE IN ENSTRUCTION SEQUENCE 

STORE JN INSTRUCTION SEQUENCE 

GET ADDRESS OF NEXT INSTRUCTION TO RE GENERATED 
GET ADDRESS OF TPL INSTRUCTION 

STORE IN INSTRUCTION SEQUENCE 

GET ADDRESS WHERE TO TRANSFER 


SET TRANSFER ADDRESS IN INSTRUCTION SFQUENCE 
GET MINUS NUMBER OF DIMENSIONS 

AND STORE FOR COUNTING 

GET TALLY WORD FOR INSTRUCTION SEQUENCE 
AND AND ¥O GENERATED OUTPUT 

COUNT REMAINING DIMENSIONS 

TRANSFER {fF DONE 

GET MINUS LENGTH OF QUAD IN XR = QO 
UPDATE CODE FOR NEXT DIMENSION 

UPDATE CODE FOR NEXT DIMENSION 

UPDATE CODE FOR NEXT DIMENSION 

UPDATE CODE FOR NEXT DIMENSION 

UPDATE CODE FOR NEXT DIMENSION 

UPDATE CODE FOR NEXT DIMENSION 


0155? 


END 


END 


3 
021441 UonontL 
021442 21532 
02144$ 021541 
021444 021545 
021445 021546 
0214446 Uu21d554 
021447 00900020 
021450 621542 
OF BINARY CARD 
024451 021426 
024452 021556 
0213453 021569 
024454 023663 
024455 021553 
021456 010630 
021457 777777 
0214690 021554 
024461 021557 
021462 017045 
021463 022006 
021464 021511 
021465 035234 
024466 000010 
021467 020966 
021470 021566 
0214471 000004 
021472 020204 
021473 u21506 
021474 021566 
021475 021553 
021476 021554 
OF BINARY CARD 
024477 021554 
024500 017534 
021501 021553 
024502 010630 
021503 777777 
021504 021554 
021505 021511 
021506 021566 
024507 021554 
021510 017474 
021511 035235 
021512 0900000 
021513 Og90009 
021514 cgnuno 
021515 oyo00n00 
021516 wugngndg 
021517 ognono 
021520 Oongtyo 


17,863 


S20 03 
0400 O09 
0400 40g 
04uU0 OQ 
0400 Og 
0400 90 
200 O¢ 
g4un du 
O0U0UI5S7 
7409 QY 
3350 OV 
7550 OV 
7000 Ov 
2270 OV 
7000 60 
7200 17 
0400 00 
2200 60 
4400 Og 
70u0 90 
7400 OO 
2260 09 
16609 93 
7009 OY 
7590 AQ 
0669 93 
7000 OO 
7400 09 
2369 00 
2270 OQ 
0750 00 
009090558 
0760 ay 
70u0 00 
2270 49 
70909 90 
72y0 1417 
0400 09 
7100 OO 
0750 OV 
Q750 OQ 
7090 OO 
22N0 $4 
7100 £9 
4500 47 
6350 06 
7590 47 
6350 09 
7590 47 
6210 17 


ALGIL68 


7117 
7418 
7419 
7420 
7421 
7422 
7123 
7424 


7425 
7426 
7127 
7428 
7129 
7430 
7151 
7432 
7133 
71434 
7433 
7436 
7437 
7138 
7439 
71440 
7141 
7442 
7443 
71444 
7445 
7446 


71447 
7148 
7449 
7450 
7154 
7452 
7153 
7454 
7155 
7156 
7157 
7158 
71459 
7160 
7261 
7162 
7463 
7164 


ASR6 


ASR7 


ASG3 


ASG4 


ASGR 


ASI0 
ASI1 
AST2 
ASIZ 
AST4 
ASI5 


LOXO 
ASXO 
ASX0 
ASXO 
ASX0O 
ASX0 
LOX0 
ASXO 


TRA 
LCA 
STA 
TSx0 
DX7 
TSX0 
LXL.0 
ASXO 
LDxo 
SXL0 
TSX0 
TRA 
LDX6 
SBX6 
TSX0 
STA 
ADX6 
TSX0 
TRA 
LDQ 
L.DX7 
ADA 


ADQ 
TSXO0 
0x7 
YSX0 
LXLO 
ASXO 
YRA 
ADA 
ADA 
TSXO 
x0 
TRA 
STZ 
EAA 
STA 
EAA 
STA 
EAXL 


PASS 3 


1,Du 
ASI20 
AS12927 
ASI 31 
AS134 
ASJ37 


ASIT3-ASI20,DU 


AS130 


ASR5 
ASD 
ASTP 
POP 
ASGM 
ASXFER 
w1a7 
ASL 
ASLBL 
PARAM 
LBL 
ASGR 
ASWORK 
2eWi,DU 
MNA 
ASGT 
WLaDU 
MVA 
ASG4 
ASGT 
ASGm 
ASL 


ASL 
MOVE 
ASGM 
ASXFER 
w4.7 
ASL 
ASGR 
ASGT 
ASL 
Gad 


ASSTACK,DI 


PAGE 165 


GET MINUS ONE IN XR © QO. 

UPDATE CODE FOR NEXT DIMENSION 

UPDATE CODE FOR NEXT DIMENSION 

UPDATE CODE FOR NEXT NIMENSION 

UPDATE CODE FOR NEXT DIMENSION 

UPDATE CODE FOR NEXT DIMENSION 

GET MINUS LENGTH OF INSTRUCTION SEQUENCE 
UPDATE CODE FOR NEXT DIMENSION 


AND LOOP 

GET MINUS NUMBER OF DIMENSIONS 

AND STORE FOR COUNTING 

DELETE WORKING STACK BACK TO MARK STACK 
GET MODE OF ARRAY VALUE IN XR « 7 
MAKE MODE POINTER aBSOLUTE 

GET LENGTH OF VALUE IN XR # g 
INCREMENT OFFSET BY DESCRIPTOR LENGTH 
GET DONE LABEL 

AND STORE AS PARAMETER 

DEFINE LABEL 

AND GO FO RETURN 

GET POINTER TO END OF WORKING STACK 
GET POINTER TO pESTINATION BLOCK 
MAKE pESTINATION NAME AVAILABLE 

AND SAVE IN TEMP 

GET POINTER TO SQURCE BLOCK 

MAKE SOURCE VALUE AVAILABLE 
TRANSFER IF VALUE IS IN A REGISTER 
GET DESTINATION IN 0 REGISTER 

GET MODE IN XR - 7 

ADD OFFSET TQ SOURCE ADDRESS 


ADD OFFSET TO DESTINATION ADDRESS 
MOVE VALUE FROM SOURCE TO DESTINATION 
GET MODE OF VALUE JN XR # 7 

MAKE MODE POINTER ABSOLUTE 

GET LENGTH OF VALUE IN XR © 9 
INCREMENT OFFSET BY LENGTH OF VALUE 
AND GO TO RETURN 

ADD ADDRESS OF DESTINATION TO STORE COMMAND 
ADD OFFSET 

AND ADD TO GENERATED OUTPUT CODE 
RESTORE RETURN ADDRESS IN XR © 0 

AND RETURN 


U1957 UL C5-2b6072 17,863 A-GOLS8 PAGE 166 


3 PASS 3 
021521 Ugondto 6220 OV 7165 ASI6 EAX2 0 
021522 000099 6250 OV 71466 ASI7 EAXS U 
021523 021513 voli nu 7167 ASIT1 TALLY AST 0, #-ASI O41 
021524 025621 7000 Ou 7168 ASI8 TSXO RRACHEK 
END OF BINARY CARD Q0U0YNSD9 
021525 0000N9 2350 41 7169 ASI10 LDA vet 
621526 000009 7550 17 71470 Aaslit STA 0,0 
021527 UOD0ND 2350 te 741714 LDA 0.2 
024530 dog0009 7550 17 7472 ASI12 STA U,D 
021551 021525 gous oo 7473 ASIT2 TALLY ASI410,%"ASI10e14 
021532 000000 0540 17 7474 AST20 AOS 0,0 
021553 000000 2360 17 7475 AST24 {DQ 0,0 
021534 000090 y560 17 7476 Adl22 ASQ 0,D 
021555 Up0000 2360 47 7477 aSt23 Da 0.0 
021536 000000 u560 17 7478 ASI24 ASQ 0,0 
021537 090000 2360 17 7479 ASI25 (DQ 0,0 
021540 000000 1760 17 7480 ASI26 SBQ re) 
021541 000000 1160 147 7481 ASI27 ¢MPO 0,0 
021542 090000 6050 04 7482 ASI30 TPL U,IC 
024543 000090 $360 147 7483 ASI34 {CO 0,0 
021544 000000 4020 147 7184 ASI32 MPY 0,0 
021545 090000 9560 17 7485 aSt33 asa 0,0 
024546 90000 3360 147 7486 ASI34 (LCQ 0,D 
021547 000000 4020 $7 7487 ASI35 MPY 0,0 
021550 000000 0560 47 7488 ASI36 ASQ 0,D 
0214551 O090000 450 17 7489 ASI37 §fZ 0,0 
024552 021532 0021 00 7490 ASITS TALLY ASI20,#°ASI20¢1 
END OF BINARY CARD go00u360 
021553 090000 goudu0 7494 ASGM ZERO 
021554 000090 900000 7492 ASL ZERO 
021555 000000 Qov0uD 7493 ASE ZERO 
021556 000090 Qo000U0 7494 ASD ZERO 
021557 000000 900000 71495 ASLBL ZERO 
021560 000000 Qav0u0 71496 ASTP ZERO 
021561 Og9000Q000U11 7497 ASRXL OCT 11 
021562 o00000000012 7498 ASRX2 OCT 12 ‘ 
021563 000000 OnQ0V0 7499 ASQ4 ZERO 
021564 0000%0 QnN0U0 7200 AS@2 ZERO 
021565 000090 Q000U8 7201 ASMLB ZERO 
021566 000000 Qou0Uua 7202 ASGT ZERO 
021567 021642 7400 00 7203 SeLcT SfXo SELX SAVE RETURN 
021579 035234 2260 oy 7204 LDX6 ASWORK GET POINTER TO END OF WORKING STACK 
021571 000004 1660 O08 7205 SBX6 1eWL,DU GET POINTER TO LAST BLOCK IN WORKING STACK 
021572 000000 7270 16 7206 XL, 7 0,6 GET MODE OF VALUE JIN XR # 7 
021573 021705 7000 Oy 7207 TSX0 SLOT CALCULATE OFFSET OF DESIRED FIELD 
0214574 020204 7nun OV 7208 TSX0 MVA MAKE STRUCTURED VALUE AVAILABLE 
024575 777777 7400 O00 7209 TRA SERROR STRUCTURED VALUF CANNOT BE IN REGISTER 
021576 000090 62y0 a5 7210 EAX0 QO, AL GET MODIFICATION OF VALUE ADDRESS IN XR ~ g 
021577 000017 1000 OS 7211 CMPXQ D,DU IS If D REGISTER MODIFICATION 


021600 021633 6010 OV 7212 TNZ SEL2 TRANSFER [IF NOT 
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$ PASS 3 
ENV OF BINARY CARD UOLVOUSO1L 
021601 d0N000 62uU0 O01 7213 EAXO Uy At GET ADDRESS PART OF VALUE POINTER IN XR ~ QO 
021602 090001 1fun 16 7214 CMPXQ 1,6 SEE IF ¥¥ IS A STACKED VALUE 
021603 021621 6010 OY 7215 TNZ SEL4 TRANSFER IF NOT a STACKED VALUE 
021604 021643 7550 09 7216 STA SFLT SAVE VALUE POINTER IN TEMP 
021605 021643 236n og 7217 LDQ SEL? AND PUT IT IN Q@ AS DESTINATION 
021606 021730 W750 Oy 7218 ADA DELTA ADD DELTA TO SOURCE ADDRESS 
021607 021731 2270 OV 7219 LDX7 FMODE GET MODE OF FIELD IN XR e 7 
021610 017531 70u0 99 7220 TSX0 MOVE MOVE FJELD TO STACK 
021611 0090000 2250 16 7221 DX5 0.6 GET FLAGS FROM RLOCK IN XR = 5 
024612 uon0001 2360 16 7222 LDQ 1,6 GET REGISTER TO DEALLOCATE 
021613 017665 7ou0 OY 72238 TSX0 Cla DEALLOCATE ANY nEREFERENCED VALUES 
021614 000003 2360 16 7224 DQ 3,6 GET REGISTER TO DEALLOCATE 
024615 047673 7nu0 OV 7225 TSX0 CL3 DEALLOCATE ALL OTHER REGISTERS 
021616 707777 3650 0% 7226 ANX5 PL eRSFDeBSFE-BSFF,DU RESET ALL DISPLAY RELATIVE NAME FLAGS 
021617 000000 7450 16 7227 STX5 016 RESTORE FLAGS IN BLOCK 
021620 021642 71400 OU 7228 TRA SELX GO TQ RETURN 
021621 0217390 2200 90 7229 SelLi 0X0 DELTA GET OFFSET FOR pESIRED FIELD 
021622 009002 0400 16 7250 ASXO 2,6 INCREMENT NAME POINTER IF ANY 
021623 000000 2250 46 7231 LDx5 0,6 GET FLAGS FROM BLOCK 
021624 000001 2360 46 7232 LDQ 1,6 GET REGISTER TO DEALLOCATE 
024625 017665 7ou0 oy 7233 TSXo Ch4 DEALLOCATE ANY DEREFERENCED VALUES 
021626 677777 3650 0$ 7234 ANX5 =4*BSFC,DU RESET STACKED FLAG 
END OF BINARY CARD 00000362 
021627 000003 2360 16 7235 00 3,6 GET REGISTER TO DEALLOCATE 
021650 06147673 7ouU0 aD 7236 TSX0 CLS DEALLOCAYE ANY REGISTER USED To POINT TO VaLUE 
021651 090000 7450 16 7237 STX5 46 RESTORE FLAGS IN BLOCK 
021632 021642 7400 40 7238 TRA SELX GO TO RETURN 
021653 021730 2200 00 7239 Sela \Dxo DELTA GET OFFSET FOR pES]YRED FIELD 
021654 00900003 0400 16 7240 ASX0 3,4 INCREMENT REGISTER BASED POINTER 
021655 000000 2250 16 7244 0X5 0156 GET FLAGS FROM BLOCK IN XR » 5 
024636 000004 2360 46 7242 DQ 1.6 GET REGISTER YO DEALLOCATE 
021657 017665 760U0 QO 7243 TSX0 Cli DEALLOCATE ANY NDEREFERENCED VALUES 
021640 607777 3650 O38 7244 ANX5 rl eRSFCeBSFD-BSFE-BSFF,DU RESET STACKED AND D REGISTER FLAGS 
021641 000000 7450 16 7245 $TX5 0,6 RESTORE FLAGS IN BLOCK 
021642 000000 7100 90 7246 SELX TRA n AND RETURN 
021643 000000 onua0ud 7247 SELT ZERO 
021644 021704 7499 00 7248 RSLCT STXO RSLX SAVE RETURN 
024645 035234 2260 00 7249 LDX6 ASWORK GET POINTER TO END OF WORKING STACK 
021646 000004 1660 Os 7250 SBX6 1eWL,DU GET POINTER TO LAST BLOCK IN WORKING STACK 
021647 000000 7270 16 7254 Xt, 7 0,6 GET MODE OF VALUE IN XR w& 7 
024650 010630 7000 Ou 7252 TSX0 ASXFER MAKE MODE POINTER UNIQUE AND ABSOLUTE 
021651 090000 2200 17 7253 LDx0 0,7 GET TYPE OF MODE IN XR = Q 
021652 0146762 1ngo O38 7254 CMPXQ MSREF,DU IS If A REFERENCE 
021653 777777 610 Ou 7255 TNZ SERROR COMPILER ERROR 
021654 000001 22/0 17 7256 LDX7 1,7 GET DEREFERENCED MODE IN XR ~- 7 
END OF BINARY CARD 00000365 
021655 021765 7000 ON 7257 TSX0 SLOT CALCULATE OFFSET OF DESIRED FIELD 
024656 0209066 7009 00 7258 TSXO MNA MAKE THE STRUCTURE NAME AVAILABLE 


021657 Og00f0 6200 05 7259 EAXO O,AL GET MODIFICATION IN XR - 9 


61557 


END 


END 


Ut U5"26-7 


$ 
U21660 vJonyi7 
U21661 021674 
024662 u21730 
021663 ug0002 
024664 oygodurg 
021665 vgouny 
U21666 17665 
021667 677777 
021670 Gon00s8 
021671 017673 
021672 Go0und 
021673 021704 
021674 U21730 
021675 vgn003 
021676 vugnonte 
021677 Goyonung 
021700 wugnoot 
021701 U17665 
021702 697777 
OF BINARY CARD 
021703 009000 
021704 90000 
021705 021727 
021706 640630 
02147u7 voqoota 
021710 016757 
0217114 #777777 
021712 000001 
021713 021739 
021714 017045 
021715 U00001 
021716 021725 
021717 Og0000 
021720 010639 
021724 777777 
021722 021750 
021723 00001 
0214724 421715 
021725 0009000 
021726 0217314 
024727 onn000 
021730 Ognono 


OF BINARY CARD 


021751 000000 
021752 021742 
024753 035234 
021734 ag00n4 
021755 017045 
021756 ognong 
021737 vp00%1 


17,865 


Loun as 
6010 Ou 
22u0 09 
v400 16 
22> 16 
2360 16 
70U0 OY 
5650 038 
2360 16 
700M OY 
7420 46 
7400 OY 
2200 O00 
0400 16 
04u0 16 
2220 16 
2360 416 
7000 OO 
53650 O36 
0000364 
7450 46 
74Q0 OY 
7400 OQ 
7000 O00 
2200 47 
1990 Os 
6010 00 
6220 17 
4500 900 
7240 OV 
1610 95 
6000 OU 
2270 42 
7000 OO 
7200 147 
0400 00 
0620 OS 
7400 90 
2270 t2 
7470 Ov 
7400 OO 
oogouda 
00000865 
dQ0u000 
7400 OO 
2260 OY 
1660 0S 
7270 OQ 
4470 46 
2200 16 


AuG%7.48 


7269 
7261 
7262 
7263 
7264 
7265 
7266 
7267 
7268 
7269 
7270 
7271 
7272 
7273 
7274 
7275 
7276 
7277 
7278 


7279 
7280 
7281 
7282 
7283 
7284 
7285 
7286 
7287 
7288 
7289 
7290 
7291 
7292 
7293 
7294 
7295 
7296 
7297 
7298 
7299 
7300 


7301 
7302 
7303 
73u4 
7305 
73U6 
7307 


RSL41 


RSLX 
SLOT 


SLCT4 


SLCT2 


SLCOTX 
DELTA 


FMODE 
ETC 


Pass 3 


D,zv) 
RSLY 
DELTA 
21,6 
0.6 
1,6 
Cha 
=¢-RSFC,DU 
3,6 
CLS 
U,6 
RSLX 
DELTA 
3,6 
2,6 
0.6 
1,6 
cli 
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1S If D REGISTER MODIFICATION 
TRANSFER IF NOT 

GET OFFSET IN XR = 0 

INCREMENT NAME BY OFFSET 

GET FLAGS FROM RLOCK IN XR « 5 

GET REGISTER TO DEALLOCATE 
DEALLOCATE ANY DEREFERENCED VALUES 
RESET STACKED VALUE FLAG 

GET REGISTER TO DFALLOCATE 
DEALLOCATE ANY REGISTERS USED 
RESTORE FLAGS IN BLOCK 

GO To EXIT 

GET OFFSET IN XR e O 

ADD TO REGISTER RELATIVE POINTER 
ADD TC ANY DISPLAY RELATIVE POINTER 
GET FLAGS FROM BLOCK IN XR © 5 

GET REGISTER T0 DEALLOCATE 
DEALLOGATE ANY pEREFERENCED VALUES 


“1"RSFCeBSFD-BSFE=BSFF,DU RESET STACKED AND D REGISTER FLAGS 


0,6 

at 

SLCOTX 
AGXFER 

0.7 
MESTRCT,DU 
ERROR 


0,2 
AEXFER 
=14.7 
DELTA 
41,D0uU 
SUCTL 
012 
FMONE 


oe 


ETCX 
ASWORK 
Lewi_,DU 
PARAM 
056 

1,6 


RESTORE FLAGS IN BLOCK 

AND RETURN 

SAVE RETURN 

MAKE MOME POINTER UNIQUE AND ABSOLUTE 
GET TYPE OF MODE IN XR & 0 

IS 17 A STRUCTURED MONE 

NO » COMPILER ERROR 

GET POJNTER TO FIRST FIELD OF STRUCTURE 
INJTIALIZE DELTA OFFSET 

GET FIELD NUMBER IN XR w 4 

DECREMENT NUMBER OF FIELDS To GO 
TRANSFER fF ALL FIELDS CONSIDERED 

GET MODE OF FIELD IN XR e 7 

MAKE MODE POINTER UNIQUE AND aBSOLUTE 
GET LENGTH OF VALUE OF MODE IN XR & Q 
AND ADD IF TO DELTA OFFSET 

STEP TO NEXT FIFLD 

AND \|,0OP 

GET MODE OF DESIRED FIELD 

AND STORE 

AND RETURN 


SAVE RETURN 

GET POINTER TO END OF WORKING STACK 

GET POJNTER TO LAST BLOCK IN WORKING STACK 
GET MODE OF RESULT OF SELECTION 

AND STORE IN BLOCK 

GET TEMP CURRENTLY ALLOCATED FOR BLOCK 


04557 


END 


END 


U1 U5-26-72 
Re) 

021740 017037 
0217414 020354 
021742 oanono 
021743 021773 
021744 035234 
021745 000094 
021746 OdO2n2n4 
024747 021757 
021750 021774 
021751 017612 
021752 021774 
024753 236000 
021754 017474 
024755 099095 
024756 047721 
OF BINARY CARD 
021757 047045 
02417690 000022 
024761 090001 
021762 116007 
024763 017474 
021764 021775 
021765 047474 
021766 U21776 
021767 047474 
021770 021777 
024774 017474 
Q21772 021007 
021773 090000 
024774 090000 
021775 0000038 
024776 0000014 
021777 090000 
022000 022005 
022001 017045 
022002 020377 
022003 100090 
022004 090000 
OF BINARY CARD 
022005 09009000 
022006 022016 
022007 020052 
022010 017045 
022011 035225 
022012 090000 
022013 777777 
022014 035226 
022015 vonung 
022016 OUgn000 
022017 022026 


17,868 


7400 OO 
7000 09 
740 OD 
74y0 OO 
2260 OY 
1660 05 
7000 OO 
7100 OO 
7550 00 
7euo 09 
2350 OV 
0750 07 
7AU0 O00 
2220 OS 
7000 OU 
00900366 
2350 OV 
7390 00 
0750 O¢ 
Q750 Q7 
70u0 00 
2350 00 
76g0 a0 
2350 09 
7009 90 
2350 O00 
7000 OO 
70u0 40 
7409 OO 
000000 
6050 04 
7590 04 
71900 Q6 
7400 O90 
7270 60 
7000 OO 
2250 OS 
7450 46 
000003567 
72400 90 
7400 OO 
7000 OU 
72140 0Q 
0610 O9 
7200 £1 
6010 Ov 
7220 OQ 
4420 41 
7100 O00 
7400 O09 


ALGOL68 


7308 
7309 
7310 
7311 
73142 
7313 
7314 
7345 
7316 
7347 
7348 
7319 
7320 
7321 
7322 


73258 
7324 
7325 
7326 
7327 
7328 
7329 
7350 
7331 
7332 
7338 
7334 
7335 
7336 
7337 
7338 
7339 
7340 
7344 
7342 
7348 
7344 


7345 
7346 
7347 
7348 
7349 
7350 
7354 
7352 
7353 
7354 
7355 


ETEX 
CASE 


CASEY 


CASEX 
CASET 
CASI1 
CAS]2 
CAS]3 
HIP 


HI PX 
LBL 


LBLX 
TRAD 


STXO0 
TSXO 
TRA 
STX0 
LDX6 
SBX6 
TSXO0 
TRA 
STA 
YSX0 
LDA 
ADA 
TSXxXo 
LNX2 
TSXO 


LDA 
ALS 
ADA 
ADA 
TSX0 
(DA 
TSXO 
LDA 
TSX0 
LDA 
TSXO 
TSXo 
TRA 
ZERO 
TRC 
STC2 
TRA 
STXO 
LXL7 
TSXO 
LDx5 
STX5 


TRA 

STX0 
TSXO 
LXL4 
ADX4 
LXLO 
TNZ 

LXL2 
SXL2 
TRA 

STX0 


PASS 3 


SP 
GTMPp 
oe 
CASEX 
ABWORK 
1aWL DU 
MVA 
CASEL 
CASET 
GO 
CASET 
WBQ,DL 
GAD 

5, DU 
DR 
PARAM 


16 
4,D0u 


CMPQ*DL,DL 


GAD 
CAS!1 
GaD 
CASI2 
GAD 
CASTS 
GaD 
DELV 


on 


3,1¢ 
1,1¢ 
0,QL 
HIPX 
PARAM 
MBLK 
BSFC,DU 
0,4 


+* 
LBLX 
PALL 
PARAM 
TSLBL 
0,1 
$ERROR 
TEGEN 
Oi. 
en 
TRAI)X 
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AND DEALLOCATE [{T 

REALLOCATE STORAGE FOR NEW MODE 

AND EXIT 

SAVE RETURN 

GET POINTER TO END OF WORKING STACK 
GET POINTER TO LAST BLOCK JN WORKING STack 
MAKE VALUE AVAILABLE 

TRANSFER IF VALUE IS IN REGISTER 

SAVE POINTER TO VALUE IN TEMP 

GET Q REGISTER 

GET POINTER TO VALUE IN A 

ADD LDQ COMMAND 

AND aDD TO GENERATED CODE 

GET POINTER TO Q REGISTER CONTROL WORD 
RELEASE Q REGISTER 


GET MAXIMUM VALID JNDEX IN AL 
MOVE IY FO av 

AND ADD ONE TO MAXIMUM 

GET CMP® MAXe4,DL INSTRUCTION 
AND ADD TO GENERATED COPE 

GET FRC 3,1C INSTRUCTION 

AND ADD TO GENERATED CODE 

GET STC2 4,1C INSTRUCTION 

AND AND TO GENERATED CODE 

GET FRA 9,QL INSTRUCTION 

AND ADD TO GENERATED CONE 
RELEASE ALL REGISTERS 

AND RETURN 


SAVE REFURN 

GET MODE OF LABEL IN XR @ 7 
AND MAKE A BLOCK FOR IT 

GET STACKED VALUE BIT 

AND STORE IN BLOCK 


AND RETURN 

SAVE RETURN 

PURGE ALL REGISTERS 

GET LABEL NUMBER IN XR w ¢ 

ADD BASE OF LABEL TABLE 

GET DEFINED VALUE FOR LABEL 
ERROR + LABEL IS DEFINED TWICE 
GET ADDRESS OF NEXT GENERATED CODE WORD 
AND STORE AS DEFINITION OF LABEL 
AND RETURN 

SAVE RETURN 


U1557 


END 


END 


Ut U5e26-/72 17, 36S 
5 

u22020 0147045 7210 Ay 
022021 35225 0610 OO 
022022 009000 2220 £1 
027023 035226 7250 ny 
022024 OoNOLO0 74359 11 
V22025 Ug0000 6350 tLe 
022026 vonUNO 7460 00 
022027 U22034 7400 OY 
022050 020052 7000 OU 
022051 022017 7nu0 OVO 
022032 710094 750 O7 
OF BINARY CARD 00U0U868 
0220353 017474 7000 O00 
022034 090000 7400 ay 
022035 022076 7400 Ou 
022056 035234 2260 ny 
022057 090004 1669 OS 
022040 020204 /7nu0 oO 
022041 22045 7400 ou 
022042 234000 0750 97 
022043 017474 7000 OV 
022044 022072 7100 OU 
022045 035226 7240 00 
022046 035226 0640 OV 
022047 777774 23590 14 
022050 777000 2360 07 
022051 022077 2410 00 
022052 022070 6010 Og 
022053 022100 2220 O58 
022054 0090000011007 
022055 097649 5602 44 
022056 777775 2350 144 
022057 000000 1150 42 
022050 022070 6010 O09 
OF BINARY CARD 0000U469 
022061 090004 3350 47 
022062 035226 0550 ag 
022063 022017 7000 OV 
022064 000000 6200 O04 
022065 777774 7400 44 
022066 035226 9540 O90 
022067 022075 7100 00 
022070 736000 2350 67 
022071 017474 7ou0 49 
022072 022017 7000 90 
022073 60900004 0750 07 
022074 017474 7000 OV 
022075 021007 7000 OV 
022076 90000 7400 OO 
022077 000003 On00 04 


A.GIL48 


7355 
7357 
7358 
7359 
7360 
7361 
7362 
7363 
7364 
7365 
7366 


7367 
7368 
7369 
7370 
73714 
7372 
7373 
7374 
7375 
7376 
7377 
7378 
7379 
7380 
7381 
7362 
7383 


7384 
7385 
7386 
7387 


7388 
7389 
7390 
73914 
7392 
7393 
7394 
7395 
7396 
7397 
7398 
7399 
7400 
7401 
7402 


TRADX 
JUMP 


JUMPX 
Tr 


TF3 
TF 2 
TF4 


TFX 
TRI4 


LXL1 
ADX4L 
LDX2 
LXLS 
STX3 
EAA 

TRA 

STXO 
TSX0 
TSXO 
ADA 


TSXO 
TRA 
STX0 
0x6 
SBX6 
TSXO 
TRA 
ADA 
TSX0 
TRA 
XL 4 
ADX4 
LDA 
.,0Q 
CMK 
TNZ 
LDX2 


RPD 
LDA 
CMPA 
TNZ 


LCA 
ASA 
TSx0 
EAXO 
STX0O 
aos 
TRA 
LDA 
TSxo 
TSXO 
ADA 
TSX0 
TSX0 
TRA 
ARG 


TRAeIC,DL 


GAD 

oe 

TFX 
ASWORK 
WL ,»DU 
MVA 

TFL 
SZN,DL 
GAD 

TF2 
TSGEN 
TS$GEN 
7444 
®0777000,DL 
TFI4 
TFS 
TFY2,DU 


S,1,7NZ 
~304 


0,2 
TFS 


4,DL 
TEGEN 
TRAD 
0,AU 
T¢GEN 
TF4 
QLS,DL 
GAD 
TRAD 
TZEeIC,DL 
GAD 
DELV 
ee 
3,1C 
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GET LABEL TO TRANSFER TO 

ADD BASE OF LABEL TABLE 

GET ADDRESS OF LaST TRANSFER TO THIS LABEL 
GET ADDRESS OF CURRENT TRANSFER INSTRUCTION 
STORE ADDRESS OF CURRENT TRANSFER IN TARLE 
GET LINK TO LAST TRANSFER IN AU 

AND RETURN 

SAVE RETURN 

PURGE ALL REGISTERS 

GET ANDRESS FOR TRANSFER J{NSTRUCTION IN QU 
ADD TRA 0,1€ 


AND ADD TO GENERATED CODE 

AND RETURN 

SAVE RETURN 

GET POINTER TO END OF WORKING STACK 

GET POINTER TO LAST BLOCK IN WORKING STacK 
MAKE BOOLEAN VALUE AVAILABLE 

TRANSFER 'F VALUE IS IN A REGISTER 

GET SZN 4,8 IN a REGISTER 

AND ADD YO GENERATED CODE 

TRANSFER TO CONTINUE 

GET ADDRESS OF NEXT WORD TO BE GENERATED 
MAKE END 6F CODE POINTER aBSOLUTE 

GET FOURTH To LAST INSTRUCTION IN gUTPUT 
GET MASK 70 COMPARE ALL BUT? OP CODE 
COMPARE WITM ARG 3,IC INSTRUCTION 

TRANSFER IF NOT EQUAL TO NORMAL SEQUENCE 
GET POJNTER TO REST OF INSTRUCTION SEQUENCE 


SEARCH GENERATED CODE FOR A MISMATCH 

GET GENERATED OUTPUT WORD 

COMPARE WITH SEQUENCE TO CHANGE INDICATOR TO BOOL 
TRANSFER 1F NOT EXPECTED SEQUENCE 


GET A MINUS 4 IN a REGISTER 

AND DELETE LAST FOUR WORDS OF GENERATED OUTPUT 
GET ADDRESS OF TRANSFER INSTRUCTION IN ay 

GET ADDRESS IN XR w Q 

AND STORE IN CONDITIONAL TRANSFER INSTRUCTION 
ADD CONDITIONAL TRANSFER INSTRUCTION TO OUTPUT 
GO TO DELETE BOOLEAN VALUE 

GET QLS 9 INSTRUCTION 

AND ADD TO GENERATED CODE 

GET ADDRESS FOR TRANSFER INSTRUCTION IN AU 

GET TZE ADDR,IC INSTRUCTION IN A 

AND ADD TO GENERATED CODE 

DELETE BOOLEAN VALUE FROM STACK 

AND RETURN 
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3 PASS 3 
022100 009001 2360 07 7403 Tr12 LDO 1,01 
022101 090002 7100 04 7404 TRA 2,1C 
022192 090000 2360 07 7495 Da ODL 
022103 022107 74y0 QU 7406 MIL STXO MTLX SAVE RETURN 
022104 619630 70uU0 90 7407 TSX0 ASXFER MAKE MODE POINTER ABSOLUTE 
022105 von0n0 7219 17 7408 LXL1 0,7 GET TYPE POINTER FOR MODE IN XR = 4 
022106 022110 7000 eu 7409 TSXO TL GET ADDRESS FOR TYPE IN AU 
END OF BINARY CARD O000y370 
022407 vpn000 74uU0 GO 7410 MTILX TRA os AND RETURN 
022110 022126 74u0 O00 7444 TL STX0 TLX SAVE RETURN 
022111 022124 7420 00 7412 STX2 TLS SAVE XR « 2 
022112 022125 7450 Og 7413 STX3 TL4 SAVE XR w 3 
022113 035227 0610 OO 7414 ADX1 TSTYPE MAKE TYPE POINTER ABSOLUTE 
022114 777777 7220 $1 7415 LXL2 ede GET POINTER TO LAST USE OF THIS TYPE IN XR © 2 
U22115 035226 7250 00 7416 LXLS TSGEN GET ANDRESS OF NEXT INSTRUCTION IN XR = 3 
022116 022122 7450 OU 7447 STX3 Tha AND STORE FOR RELATIVE CALCULATION 
022117 777777 4450 t1 7418 SXL3 "194 AND STORE AS POINTER TO THIS USE OF THIS TYPE 
022120 000000 1n20 05 7419 CMPX2 8 Q,DU JS PREVIOUS LINK POINTER ZERO 
022121 022123 6000 Ou 7420 TZE TL2 YES = TRANSFER 70 LEAVE ALONE 
O22122 0900000 1620 O5 742d Tht SBX2 ##,DU MAKE PREVIQUS LINK POINTER RELATIVE 
022123 000000 6390 t2 7422 The EAA 0,2 GET POINTER TO LAST USE IN Au 
Q22124 000000 2220 OS 7423 TL3 LDX2 ##, DU RESTORE XR w# 2 
022125 090000 2250 53 7424 TL4 LDXS #%)DU RESTORE XR # 8 
022126 000000 7100 Oy 7425 TLX TRA #e AND RETURN 
022127 022233 7400 g0 7426 DeEREF STx0 DERXx SAVE RETURN 
022130 035234 2260 00 7427 LOx6 ASWORK GET POINTER TO END OF WORKING STACK 
022151 00004 1660 O53 7428 SBX6 WLh»DU GET POINTER TO LAST BLOCK [{N WORKING STack 
022132 000000 72/70 16 7429 LXL7 0.6 GET MODE OF VALUE IN XR e& 7 
022153 010630 7900 O90 7430 TSX0 ASXFER MAKE IY ABSOLUTE 
022134 090000 22u0 17 7431 Oxo 0,7 GET TYPE OF MODE IN XR @ 0 
END OF BINARY CARD 00U0U0371 
022155 016762 14oy0 O83 7432 CMPXO MSREF , DU IS IT A REFERENCE MODE 
022136 777777 6010 00 7433 TNZ SERROR NO = COMPILER ERROR 
022157 0090001 2270 17 7434 .DX7 1.7 GET DEREFERENCED MODE IN XR e 7 
022440 022240 7470 09 7435 STX?7 DERM SAVE DEREFERENCED MODE 
022141 010562 7000 60 7436 TSX0 ASRCHK SEE IF IT IS AN ARRAY MODE 
022142 022167 7100 Q0 7437 TRA DERN NO = TRANSFER 
022143 020204 7000 00 7438 TSX0 MVA MAKE ARRAY VALUE AVAILABLE 
022144 777777 7100 00 7439 TRA SERROR COMPILER ERROR - NEVER IN ACCUMULATOR 
022145 022234 7510 71 7440 STCA DERI1,74 STORE ADDRESS IN INSTRUCTION SEQUENCE 
022146 022236 7519 74 7444 STCA DERI2,714 STORE ABDRESS IN INSTRUCTION SEQUENCE 
022147 022237 2350 oy 7442 LDA DERIT GET TALLY WORD FOR INSTRUCTION SEQUENCE 
022190 017597 7000 90 7443 TSXo GADL AND ADD TO GENERATED OuyTPuT 
022152 617673 7ou0 ov 7445 TSXo CLS AND DEALLOCATE IT 
022153 000010 2350 97 7446 LDA 2010,DL GEy (0.0) ADDRESS IN A REGISTER 
022154 090001 2360 16 7447 LDQ 1,6 GET STACK ADDRESS JN QU 
022155 777777 3760 OS 7448 ANQ =4,NU ZERO OUT OL 
022156 000092 7560 46 7449 STO 2,6 AND STORE IN BLOCK 


022157 000017 0760 OF 7450 ADQ D,DL AQD D REGISTER MODIFICATION 


61557 Ly G5-264-72 
3 
027150 U22240 
022164 oUgnuny 
U22162 047531 
END OF BINARY CARD 
022163 030090 
022164 000090 
022165 020451 
022166 22233 
0221467 don000 
022170 242000 
022171 022173 
022172 029066 
022173 20n000 
022174 022274 
022175 odongas 
022176 017673 
022177 wuognons 
022200 da000N1 
022201 uon0n3 
022202 977777 
022203 un4000 
022204 0400N0 
022205 022210 
022206 d20000 
022207 U22211 
G22210 747777 
END OF BINARY CARD 
022241 002000 
022242 022216 
022213 775777 
022214 491090 
022215 022220 
022216 090003 
022217 0147673 
022220 237777 
022221 022240 
U2222e2 Odon0ND 
022223 000000 
022224 000001 
022225 0417037 
022226 027354 
022227 Og00nD 
022230 696019562 
022234 022233 
022232 020451 
022233 00N0ND 
022234 000000 
022255 od0Nn002 
022256 000000 


END OF BINARY CARD 


17,805 


2270 Oy 
94/9 16 
7Joun Ou 
V000US72 
2250 085 
7450 16 
70u0 OY 
74U0 O00 
2250 16 
$050 0S 
6N10 09 
7000 00 
3nd0 O85 
6000 9Y 
2360 16 
70u0 OU 
45u0 16 
7200 16 
44u0 16 
3650 OS 
2650 OS 
3050 OS 
6000 00 
2650 OS 
7100 00 
3650 OS 
Q0000373 
3050 OS 
6000 OU 
3650 OS 
2650 O35 
7490 OU 
2360 46 
7o0yu0 OU 
3650 03 
2270 00 
4470 16 
7450 16 
2200 16 
7400 QO 
7000 OO 
7270 46 
7000 Oy 
7400 00 
7000 00 
7400 00 
2200 00 
6010 04 
6200 00 
00000374 


A-GCL68 


TaD) 
7452 
7453 


7454 
7455 
7456 
7457 
7458 
7459 
7460 
7461 
7462 
7463 
7464 
7465 
7466 
7467 
7468 
7469 
7470 
7474 
7472 
7473 
7474 
7475 


7476 
7477 
7478 
7479 
7480 
7481 
74B2 
7483 
7484 
7485 
7486 
7487 
7488 
7489 
7490 
7494 
7492 
7493 
7494 
7495 
7496 
7497 


DERQ 


DER 


DeRO 


DER 


DERG 


DERS 


DER6 


DERX 
DERI 4 


DERT2 


LDx7 
SXxL7 
TSX0O 


Dx 
STx5 
TSX0 
TRA 
LDX5 
CANXS 
TNZ 
TSXx0 
CANX5S 
TZE 
Da 
TSXx0 
STZ 
LXLG 
5 XL.0 
ANX5 
QORX5 
CAaNXx5 
TZE 
QORX5 
TRA 
ANX5 


CANXS 
TZE 
ANX5 
ORX5 
TRA 
LDQ 
7SX0 
ANX5 
LDX7 
SXL7 
STX5 
LDX0 
STX0 
TSX0 
LXL7 
TSX0 
TRA 
TSX0 
TRA 
LDX0 
TNZ 
EAXO 


PASS 3 


DERM 
U,6 
MOVE 


BSFEeRSFF ADU 


0,6 
FS 
DERX 
Usd 


PAGF 


GET MODE OF DEREFFRENCEN VALUE IN XR - 7 
AND STORE IT IN BLOCK 
MOVE VALUE TO STACK 


CLAIM VALUE IS IN STACK 
AND STORE FLAGS IN BLOCK 
FORCE ARRAYS TO STACK 
AND RETURN 

GET FLAGS IN XK = § 


172 


BEFReBSFD+BSPH, NU CHECK IF VaLUE IS IMMEDIATELY ACCESSABLE 


DER, 
MNA 
BSFAR,DU 
DER? 


516 


“4 7HSFB,DU 


BSFG,DY 
BSpn,DuU 


~{eASFESBSFF, DL 


BSFH,DU 
DERS 


“{-BSFH, DU 


BF I,DU 
DER6 
3,6 
CLS 


TRANSFER IF IMMEDIATELY ACCESSABLE 

MAKE NAME AVAILABLE 

IS DEREFERENCFD VALUE IN A REGISTER 
TRANSFER IF NOT 

GET POSSIBLE NAME POINTER IN Q 

AND DEALLOCATE {Tf 

RESET POSSIBLE POINTER 

GET STORE COMMAND FOR DEREFERENCED VALUE 
AND MAKE !f7 srORE COMMAND FOR VALUE 
CLEAR DEREFERENCED VALUE IN REGISTER BIT 
SET VALUE IN REGISTER BIT 

1S NAME VALUE OrreSET,LL 

TRANSFER IF NOT 

SET OFFSET,LL IS REFERENCE TO VALUE BIT 
AND CONTINUE 

RESET ALL BITS ABOUT 2,6 


1S 1A,B} VALUE 

TRANSFER IF (4,B] JS NOT VALUE 
RESEY [A,8} 3S VALUE BIT 

SET (a,B8) IS REFERENCE TO VALUE BIT 
CONTINUE 

GET (A,B) WORD 

DEALLOCATE IT 


71cBSFA-BSFC-BYFD,DU RESET DENOT, STACK, 2,6 IS VALUE BITS 


DERM 
0,6 
016 
1,6 
SP 
GYMP 
0,6 
ABRCHK 
DERy 
FS 
*% 

0 
2,I1C 
0 


GET DEREFERENCED MODE IN XR « 7 
AND STORE AS MODE OF NEW VALUE 
RESTORE FLAGS IN RLOCK 

GET PREVIOUS ALLOCATED TEMP 
RESTORE {Tf 

ALLOCATE YEMP FOR NEW VALUE 

GET MODE OF VALUE IN XR «© 7 

SEE [PF y¥ 3S A ROW TYPE MODE 
TRANSFER tf NOT 

FORCE THE ARRAY VALUES TO THE STACK 
AND RETURN 


01557 


END 


END 


04 J5"-26-72 
3 

022237 022234 
022240 d00000 
022241 022260 
022242 017045 
022243 035220 
022244 000082 
022245 029377 
022246 020717 
022247 090093 
022250 000000 
022251 029746 
0227252 020000 
022253 020746 
022254 022256 
022255 010050 
022256 O0n0n2 
022257 000000 
022260 000000 
022261 022521 
022262 020717 
022263 020746 
022264 020747 
OF BINARY CARD 
022265 022311 
022266 035215 
022267 022277 
022270 000000 
022274 020746 
022272 022277 
022273 022322 
022274 017474 
022275 020746 
022276 022272 
022277 090090 
022300 0352145 
022301 0090000 
022302 035215 
022303 ag00n2 
022304 035214 
022305 Odn0000}4 
022306 000001 
022307 022323 
022310 017474 
022311 017045 
022312 035220 
OF BINARY CARD 
022313 0099003 
022314 4017945 


17,303 


Q004 Oy 
oogau0 
7400 OU 


7210 OO 
04610 09 
2270 41 
7009 OO 
70Qg0 ON 
2350 &1 
6350 OL 
Q75N OV 
2290 OS 
2340 40 
6010 OY 
2650 03 
7550 416 
7450 16 
74909 OO 
7400 00 
7000 OQ 
2360 O00 
0760 00 
000004875 
6000 OO 
1600 90 
7400 G0 
2360 07 
1560 00 
6000 00 
2350 00 
7000 00 
0540 09 
71400 00 
2200 08 
0690 60 
2200 40 
0600 00 
2260 40 
0660 O00 
2390 46 
6350 O41 
0750 OO 
7090 O00 
7210 00 
0619 OO 
00000376 
2220 £1 
4420 00 


ALGOL68 


7498 
7499 
7500 
75014 
7502 
75038 
7504 
7505 
7506 
7507 
7508 
7509 
7540 
75344 
7512 
7313 
7514 
75145 
7546 
7517 
7518 
7549 
7520 
7824 


7522 
7523 
7524 
75325 
7526 
7527 
7528 
7529 
7530 
7534 
7532 
7533 
7534 
7535 
7536 
7537 
7538 
7539 
7540 
7544 
7542 
7543 


7544 
7545 


DERIT 
DERM 
IDENT 


TDEN6 


]DENX 
GUTO 


GBUTOL 


GOTO? 


GUTOS3 


TALLY 
ZERO 
STXO 
NE 
VERROR 
WXb4 
ADX4 
L.DX7 
TSXO 
TSXO 


LDA 


EAA 
ADA 
|,DX5 
SZN 
TNZ 
ORX5 
STA 
STX5 
TRA 
STX0 
TSXO 
DQ 
ADQ 


TZE 
$BX0 
STX0 
,oQ 
SSQ 
YZE 
LDA 
TSX0 
AOS 
TRA 
DX0 
ADXO 
LDXO 
ANXO 
LDX6 
ADX6 
LDA 
EAA 
ADA 
TSXO 
LXGL 
ADX4L 


LDX2 
SXL2 


PASS 3 


DERT1,#-DERI1+14 


IDENX 
Wha 4 


PARAM 
TSDEF 
2,1 
MBLK 
[DRY 
Sel 
0,AU 
IDF yc 
BEFE,DU 
IDF YC 
JDEN6 
BSFF,DU 
2,6 

0.6 

oe 
GOTOX 
[OFy 
]DF YC 
lDOF YF 


GOTOS 
TESTACK 
GOTO2 
0,D0L 
JDF YC 
GOTO2 
GOT!1 
GAD 
LOFYC 
GOTO1 
#%,DU 
TESTACK 
0,0 
TSSTACK 
2,0 
TEWORK 
1,6 
1,AuU 
GOT!2 
GAD 
PARAM 
TEDEF 


Sah 
PARAM 
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SAVE RETURN 


THIS ROUYINE NEEDS WL TO EQUAL 4 

GET POINTER TO pEF TABLE ENTRY FOR IDENTIFIER 
MAKE POINTER ABSOLUTE 

GET MODE OF [DENTIFIER IN XR = 7 

CREATE BLOCK FOR IDENTIFIER 

TOENTIFY IDENTIFIER AND GET LL DIFFERENCE 
GET OFFSET OF SYMBOL IN AU 

ZERO OUT Als 

PUT LL DIFFERENCE IN AL 

GET OFFSET, LEVEL 1S REFERENCE TO VaLUE BIT 
SEE IF YDENTIFIER IS IN CURRENT LEVEL 
TRANSFER IF NOT IN CURRENT LEVEL 

SET OFFSET, LEVEL IS LOCAL BIT 

STORE ADDRESS IN BLOCK 

STORE FLAGS IN IDENTIFIFR BLOCK 

AND RETURN 

SAVE RETURN 

JDENTIFY LABEL 

GET LL DIFFERENCE IF ANY IN Q 

ADD ANY CHANGES DETECTED IN ENVIRONMENT 


TRANSFER IF NO CHANGE IN tL 

MAKE ENVIRONMENT POINTER RELATIVE 
AND SAVE 

GET A ZBRO IN Q 

AND NEGATE LL DIFFERENCE IN MEMORY 
TRANSFER tf NO MORE LL CHANGE 

GET LDX D,2,D INSTRUCTION 

AND ADD TO GENERATED OUTPUT 
DECREMENT AMOUNT OF LL CHANGE LEFT 
AND LOOP 

GET ENVYRONMENT POINTER IN XR ~ Q 
MAKE POINTER ABSOLUTE 

GET PREVIOUS ENVJRONMENT POINTER IN XR © 
AND MAKE {7 aBSoLuTEe 

GET POINTER To MS BLOCK 

MAKE POINTER ABSOLUTE 

GET ADDRESS OF mS IN AU 

GEY ADDRESS OF SAVED S IN AU 

ADD LDX $,0,D INSTRUCTION 

AND ADD TO GENERATED CODE 

GET DEF POINTER JN XR = 4 

MAKE POf{NTER ABSOLUTE 


GET LABEL IN KR = 2 
AND STORE IN PARAM 


L1557 


END 


END 


G1 05~+26-72 


) 


U2-315 Uv2?7017 
U22516 71NuN04 
U2z2317 U17474 
O?2320 G2n052 
022321 090000 
U22322 U9g0002 
022323 ugn0nnd 
022324 022355 
¥22325 017045 
G22326 035229 
022327 090002 
022350 020577 
022351 0417045 
022332 vu35220 
022353 000003 
0223384 022357 
022355 00900000 
022336 047355 
022337 024300 
022340 000000 
OF BINARY CARD 
022344 777777 
022342 777776 
022343 777777 
022344 090003 
022345 777777 
022346 022369 
022347 777777 
022350 017637 
022351 004000 
022352 090000 
022353 022364 
022354 017507 
022355 od00000 
022356 090002 
022357 0090000 
022360 777777 
022364 022356 
022362 022364 
022363 022366 
022364 090001 
022365 236007 
022366 022402 
OF BINARY CARD 
022367 022401 
022370 000003 
022371 020877 
022372 017612 
022373 004090 
022374 0090000 


17,805 


70uU"n Bu 
Q750 7 
7nu9 OU 
70u0 OY 
74u0 OU 
22/0 1/ 
22600 17 
7409 OO 
7210 OO 
0610 OQ 
2270 11 
7000 Qu 
7210 OO 
0610 OV 
2350 41 
7550 00 
7270 46 
2229 03 
9202 02 
1070 12 
0000uU3577 
6010 00 
2350 12 
3790 07 
7550 16 
2390 12 
2510 10 
2220 12 
7000 00 
2250 03 
7450 416 
2350 00 
7000 00 
7400 00 
7400 04 
000008 

0000 94 
0004 09 
2350 00 
7400 90 
2360 97 
2390 07 
7590 00 
00000378 
7400 00 

6270 00 

7000 00 

7000 00 

2290 03 
7450 46 


AG. 64 


7546 
7547 
7548 
7549 
7550 
7551 
7552 
7553 
7554 
7555 
7556 
7557 
7558 
7559 
7560 
75614 
7562 
7563 
7564 
7565 


7566 
7567 
7568 
7569 
7570 
7374 
7572 
7573 
7574 
7575 
7576 
7577 
7578 
7579 
7580 
7584 
7582 
7563 
7564 
7585 
7586 
7587 


7588 
7589 
7590 
7394 
7592 
7593 


GUTOX 
GOTI4 
GUT]2 
DENQT 


DENX 
DEN, 
DEN? 
DENS 
DENT 
TRUE 


TRUET 
FALSE 
BUOL 


TSx0 
ADA 
TSXO 
TSX0 
TRA 
DX 
L. DX 
STXO 
LxXb 4 
ADX1L 
LDX?7 
TSX0 
XL 
ADX4 
LDA 
STA 
LXL7 
.DX2 
RPT 
CMPX7 


TNZ 
LDA 
ANA 
STA 
LDA 
STBA 
LDX2 
TSX0 
LDX5 
STX5 
LDA 
TSxo 
TRA 
TRA 
ZERO 
ARG 
TALLY 
LDA 
TRA 
[DO 
LDA 
STA 


S7X0 
EAX7 
TSXO0 
TSX0 
LDX5 
STX5 


PASS § 


TRai} 


TRA+IC DL 


GAD 
PALL 
+H 
De2,D0 
9,0,D 
DENX 
PARAM 
TSDEF 
204k 
MBLK 
PARAM 
TSDEF 
3,1 
DEN@2 
0,6 
OPET,DU 
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GET LINKED TRANSFER ADDRESS IN AU 
ADD TRA 0,1C INSTRUCTION 

AND aND TO GENERATED OUTPUT 

PURGE ALL REGISTERS 

AND RETURN 


SAVE RETURN 

GET POINTER 70 NEF TABLE ENTRY FOR NENOTATION 
MAKE POINTER ABSOLUTE 

GET MODE OF DENOTATION 

AND MAKE & BLOCK FOR IT 

GET POJNTER TO DEF TABLE ENTRY FOR DENOTATION 
MAKE POINTER ABSOLUTE 

GET VALUE OF DENOTATION IN & REGISTER 

AND STORE IN INSYRUCTION SEQUENCE 

GET MODE OF DENOTATION IN XR # 7 

GEY POINTER TO MODE COMMAND TABLE 


OPETE/2~e0PET/2,2,7ZE AND SEARCH FOR MODF IN TABLE 


0.2 


$ERROR 
7212 
=“t,DhL 

’ 
"442 
DEN3,10 
"492 
GET 
BEFG,DU 
0,6 
DENT 
GADL 
on 
2,1c 


wi,1C 


DENq,#-DEN4 +4 


TRUBT 
BOOL 
4.0L 


WOOeDL,DL 


BOOLT 


BOOLX 
MSBOOL 
MBLK 

GO 
BSFG,DU 
0,6 


LOOK IN XR « 7 


ERROR MODE IS NOT IN TABLE 

GET STORE COMMAND FOR MODE 

MAKE IT CLEAN 

AND STORE JN BLOCK 

GET LOAD CQMMAND FOR MODE 

AND STORE IN COMMAND SEQUENCE 

GET REGISTER ALLOCATION ROUTINE NUMRER 
AND ALLOCATE REGISTER FOR VALUG 

GET VALUE IS IN REGISTER FLAG 

AND STORE IN BLOCK 

GET FALLY WORD FOR INSTRUCTION SEQUENCE 


AND aDD INSTRUCTION SEQUENCE TO GENFRATED OUTPUT 


AND RETURN 


GET .pQ@ TRUE INSTRUCTION 
AND GO PROCESS {T 


GET LnQ FALSE COMMAND 
STORE BOOLEAN LOAD COMMAND 


SAVE RETURN 

GET MODE OF VALUE {IN XR @ 7 

MAKE & BLOCK FOR VALUE 

ALLOCATE Q REGISTER FOR BOOLEAN VALUE 
GET VALVE IN REGISTER FLAG 

AND STORE IT IN BLOCK 


64557 


END 


END 


Uy U5"26472 
3 

022375 756090 
022376 000003 
022377 022402 
022400 017474 
022401 090000 
V22402 090000 
022403 026130 
022404 022452 
022405 022410 
0224U6 026157 
022407 022453 
G22410 022450 
022411 023073 
022412 022445 
022413 009033 
022414 020377 
OF BINARY CARD 
022415 020526 
022416 035234 
022417 000004 
022420 «6000001 
022421 022446 
022422 023663 
022423 017045 
0224624 020377 
022425 017610 
022426 004000 
022427 0900000 
022430 755000 
022431 090003 
022432 Odo0n00L 
022433 023074 
022434 040630 
022435 777777 
022456 022447 
022437 035216 
022440 022454 
022441 017507 
022442 022103 
OF BINARY CARD 
022443 075007 
022444 047474 
022445 00900000 
022446 Q000N0 
022447 vn00nD 
022450 000000 
027454 022446 
022452 026015 
022453 026017 
022454 U225N6 


17,863 


2350 07 
7550 16 
2350 OU 
7000 00 
7109 OY 
oogou0 
2210 08 
2350 OV 
7100 00 
2210 OS 
2350 09 
7410 Ov 
7550 O00 
7400 OV 
6270 00 
7000 90 
00000379 
7000 00 
2260 OU 
1660 03 
2200 16 
7400 00 
7000 90 
7270 OU 
70U0 00 
7000 00 
2250 03 
7450 46 
2350 07 
7550 16 
2270 47 
7470 OV 
7000 60 
7200 47 
7400 00 
1670 00 
2350 00 
7000 00 
700 OU 
Qov00g80 
0750 07 
7000 00 
7400 90 
6210 47 
6220 00 
70U9 00 
ocu4 OU 
7000 OO 
7000 OU 
7400 OU 


ALGOL68 


7594 
7595 
7596 
7597 
7598 
7599 
7600 
7601 
7602 
7603 
7604 
7695 
7606 
7607 
7608 
7609 


7610 
7611 
7642 
7643 
7644 
7643 
7616 
7617 
7618 
7649 
7620 
76214 
7622 
7623 
7624 
7625 
7626 
7627 
7628 
7629 
7630 
7634 


7632 
7633 
7634 
7635 
7636 
7637 
7638 
7639 
7640 
74841 


BOOL X 
BOOLT 
LGEN 


HGEN 


GeN 


GENX 
GENQ 
GENL 
GEN2 
GENT 
RLGEN 
RHGEN 
BOUND 


LNA 
STA 
LDA 
TSX0 
TRA 
ZERO 
DX4 
LDA 
TRA 
OX4 
LDA 
STX1 
STA 
STX0 
EAX7 
TSxO 


TSX0 
LDX6 
SBX6 
LDXO 
STX0 
TSX0 
LX, 7 
TSX0 
TSXO 
0x5 
$TxX5 
LDA 

STA 

| DX7 
STX7 
TSX0 
Lx1,0 
STX0O 
SBX7 
LDA 

TSx0 
TSX0 


ADA 
TSX0 
TRA 
EAXL 
EAX2 
7SX0 
TALLY 
¥SX0 
TSX0 
STXo 


PASS 3 


STQ,DL 
5,6 
BOOLT 
GA 


ae 


R$LGEN, DU 


KLGE 
GEN 


RSHGEN, DU 


RHGEN 
GEN? 
BGEN 
GENX 
M$MS 
MBLK 


ADAsDL, DL 
GAD 


*% 
0,D 
0 

0 


GEN), e#-GENO tL 


RERLGEN 
RERHGEN 
BNDX 


GET 
AND 
GET 
AND 
AND 


GET 
GET 
AND 
GET 
GET 
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BOOLEAN STORE COMMAND 

STORE IN BLOCK 

BOOLEAN LOAD VALUE COMMAND 
ADD TO GENERATED OUTPUT CODE 
EXIT 


ADDRESS OF RUN-TIME LOCaL GENERATOR ROUTINE 
TSX9 RERLGEN ENSTRUCTLON Ip A REGISTER 

GO TO GENERATOR ROUTINE 

ADDRESS OF RUN-~TIME HEAP GENERATOR ROUTINE 
TSXO0 RERHGEN INSTRUCTION IN A REGISTER 


STORE IN INSTRUCTION SEQUENCE 
STORE ROW GENERATOR INSTRUCTION FOR BOUND ROUTINE 
SAVE RETURN 


GET 
AND 


MODE OF MARK STACK IN XR © 7 
MAKE A BLOCK FOR MARK STACK 


MARK THE STACK IN MARK STACK WORDS 


GET 
GET 
GET 
AND 
POP 
GET 


POINTER TO END OF WORKING STACK 
POINTER TO LAST BLOCK IN WORKING STack 
ADDRESS OF MARK STACK 

STORE JN INSTRUCTION SEQUENCE 

STACK BACK THROUGH MARK STACK 

MODE OF GENERATOR 


MAKE A BLOCK FOR VaLUF OF GENERATOR 


GET 
GET 
AND 
GET 
AND 
GET 


A REGISTER 

A VALUE IN ACCUMULATOR FLAG 
STORE JN BLOCK 

A STORE VALUE COMMAND 

STORE JN BLOCK 

DEREFERENCED MODE 


STORE DEREFERENCED MODE FOR BOUND ROUTINE 
MAKE MODE POINTER UNIQUE AND ABSOLUTE 


GET 
AND 


LENGTH OF VALUE REFERED TO BY GENERATOR 
STORE IN INSTRUCTION SEQUENCE 


MAKE MODE POINTER RELATIVE 


GET 
AND 
GET 


ADD 
AND 
AND 


TALLY WORD FOR INSTRUCTION SEQUENCE 
ADD SEQUENCE To GENERATED QUTPUT 
FYPE ADDRESS IN AU 


ADA ,D\l, COMMAND 
ADD TO GENERATED OUTPUT 
RETURN 


SAVE RETURN 


uio5? 


END 


END 


V1 Ub"2b-72 


S) 


0227425 02n052 
027496 23074 
027457 047630 
022460 uynono 
022461 016757 
022462 22476 
022463 00037 
022464 020377 
022465 1000N0 
022466 090U00 
022467 vonnoi 
0224790 022510 
OF BINARY CARD 
022471 0090004 
022472 von001 
022473 022507 
0227474 022511 
022475 017507 
022476 023075 
022477 0225142 
022500 023074 
022501 0106359 
022502 000000 
022503 046757 
022504 022506 
022505 021007 
022506 000000 
022507 090000 
022510 090000 
022511 022507 
022512 023076 
022513 047045 
022514 U23074 
022515 023075 
022516 023074 
OF BINARY CARD 
022517 040630 
022520 023075 
022521 777777 
022522 023076 
022523 023077 
022524 000090 
022525 016757 
022526 022602 
022527 023077 
022530 000009 
022551 010639 
022532 d90000 
022533 046757 
022534 022541 


17,463 


7ouN 
22/9 
7009 
2200 
1090 
60u0 
62/n 
7000 
2250 
7450 
2350 
7510 


Qoyuo0gss1 


1660 
2350 
7510 
2350 
7000 
4500 
7000 
2270 
7000 
2200 
4000 
6000 
7000 
7400 
6350 
7550 
d005 
7400 
7200 
4400 
0540 
2270 


000003682 


7000 
7200 
1000 
6000 
7400 
2200 
1000 
6040 
0670 
2270 
7000 
2200 
1090 
6000 


i) 


OU 
0Q 
17 
51 
00 
17 
Qs 
0Q 
00 
17 
00 
17 
03 
00 


ALGILS5& 


7442 
7443 
7644 
7645 
7646 
74647 
7448 
7649 
7650 
7651 
7652 
7653 


7654 
7655 
7656 
7657 
7658 
7659 
7660 
7664 
7662 
7663 
7664 
7665 
7666 
7667 
7668 
7669 
7670 
7$71 
7672 
7673 
7674 
7675 


7676 
7677 
7678 
7679 
7680 
7681 
7682 
7685 
7684 
7685 
7686 
7687 
7688 
7689 


BND4 


BNDX 
BNDI4 
BNDI2 
BNOT 
BL 


BDd 


TSXO 
LDXx7 
TSX0 
LDX0 
CMPXQ 
TZE 
EAX7 
TSX0 
LOX5 
STX5 
DA 
STCA 


SBX6 
LDA 
STCA 
LDA 
TSXo0 
STZ 
TSX0 
LOX7 
TSX0 
LOxO 
CMPXQ 
TZE 
TSX0 
TRA 
EAA 
STA 
TALLY 
STXU 
XL 0 
SXL.0 
AOS 
DX? 


TSX0 
LXL0 
CMPXQ 
TZE 
STX0 
|DXo 
CMPXQ 
TNZ 
ADX7 
,DX7 
TSX0 
LDXO 
CMPXQ 
TZE 


PASS 3 


PALL 
BDOCLR 
AFXFER 
0,7 
MESSTRCT,DU 
BND4 
MEPTR 
MBLK 
BSFc,NU 
0,6 

1,6 
BND12,70 


WLADY 


0,7 


MBSTRCT,DU 


BNDX 
DELV 
on 
0,D 
0,0 


BND14,#°BNDI 401 


BDX 
PARAM 
BOCLR 
BPOS 
BDCLR 


AEXFER 
BPOS 

eiy7 

BOX, J 
BPOS4 

U,7 
MSSTRCT, DU 
BD5 

BPOS1 

0,7 

ASXFER 

0,7 
ME$STRCT,DU 
BD2 
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PURGE ALL REGISTERS 

GET MODE OF VALUE IN XR - 7 
MAKE MODE POINTER aBSOLUE 

GET TYPE OF MODE IN XR & Q 

IS IF A STRUCTUREN MODE 
TRANSFER JF STRUCTURED MODE 
GET MODE OF POINTER IN XR w 7 
MAKE A BLOCK FOR A POINTER 
GET A VALUE IS STACKED FLAG 
AND STORE JN BLOCK 

GET APDRESS OF POINTER IN AU 
AND STORE IN INSTRUCTION SEQUENCE 


GET POINTER TO GENERATOR BLOCK 

GET ADDRESS OF DESCRIPTOR IN aU 

AND STORE IN INSTRUCTION SEQUENCE 

GET TALLY WORD FOR INSTRUCTION SEQUENCE 


AND ADD INSTRUCTION SEQUENCE TO GENERATED OUTPUT 


INITJALIZE CURRENT POSITION TO ZERO 

SET UP ALL BOUNDS IN GENERATED VALUE 
GET MODE OF GENERATED VALUE IN XR « 7 
MAKE MODE POINTER aBSOLUTE 

GET TYPE OF MODE IN XR © 0 

IS 17 A STRUCTURED VALUE 

TRANSFER IF STRUCTURED VALUE - ALL DONE 
DELETE POINTER BLOCK 

AND RETURN 


SAVE RETURN 

GET POINTER TO BOUND TABLE ENTRY FOR DECLARER 
AND STORE JN CURRENT DECLARER 

STEP TO NEXT FIELD 

GET MODE OF DECLARER IN XR ~ 7 


MAKE MODE POINTER ABSOLUTE 

GET POJNTER TO GURRENT FIELD NUMBER 
IS CURRENT POSITION AY END OF CURRENT MODE 
RETURN IF SO 

SAVE CURRENT POSIJTION NUMBER 

GET TYPE OF MODE IN XR » 9 

1S IF A STRUCTURED MODE 

TRANSFER IF NOT STRUCTURED MODE 

GET POINTER TO CURRENT FIELD 

GET MODE OF FIELD IN XR & 7 

MAKE MODE POINTER aBSOLUTE 

GET TYPE OF FIELD MODE IN XR ~ 0 

IS IT A STRUCTURED MODE 

TRANSFER IF YES 


01557 


END 


END 


04 05-26-72 
3 

022535 016770 
022536 022541 
022537 046776 
0225490 022577 
022544 035216 
022542 023076 
022543 035235 
022544 095742 
OF BINARY CARD 
022545 023074 
022546 035235 
022547 005742 
022559 023075 
022554 035235 
022552 005742 
022553 023074 
022554 023074 
022555 0352417 
022556 090000 
022557 046757 
022560 777777 
022564 023077 
022562 090000 
022563 023074 
022564 090000 
022565 023075 
022566 022512 
022567 023974 
022570 035235 
022571 023075 
022572 035235 
OF BINARY CARD 
022573 023074 
022574 035235 
022575 023076 
022576 010630 
022577 777777 
022600 023075 
022601 022515 
022602 046770 
022603 022606 
022604 046776 
022605 777777 
022606 090035 
022607 020377 
022610 1090000 
022611 090080 
0226142 00001 
U22613 O231402 
022614 23116 


10u0 03 
60U0 90 
Loud O63 
6010 09 
1670 OO 
2350 OV 
759 56 
7470 Ov 
00000383 
2350 O00 
7550 56 
7170 OY 
2350 09 
7590 56 
7470 O00 
7470 O00 
7240 00 
0640 89 
2200 £1 
1000 Qs 
6010 OY 
0610 09 
2210 41 
4410 0Y 
22u0 OS 
4400 09 
7000 00 
2270 ON 
2350 54 
7550 00 
2350 54 
O0o000s84 
7590 OY 
2350 54 
7590 0Q 
7000 00 
7200 47 
0400 00 
7100 00 
1000 O¢ 
6000 00 
1900 035 
6010 O90 
6270 00 
7000 90 
2250 OS 
7450 16 
2210 16 
7410 00 
7419 06 


ALG®L68 


7690 
7TA9L 
7692 
7693 
7694 
7695 
7696 
7697 


7698 
7699 
7700 
7701 
7702 
7703 
7704 
7705 
7706 
7707 
7708 
7709 
7710 
7711 
7742 
7718 
7744 
7743 
7716 
7717 
7748 
7749 


7720 
77221 
7722 
7728 
7724 
7725 
7726 
7727 
7728 
7729 
7730 
7731 
7732 
7733 
7734 
7735 
7736 
7737 


BL2 


BLS 


BD4 


BUS 


BL6 


CMPXg 
TZE 
CMPXO 
INZ 
SBX7 
LDA 
STA 
XED 


LDA 
STA 
XED 
LDA 
STA 
XeD 
STX7 
Lua 
ADX4 
DX0 
CMPXQ 
TNZ 
ADX4 
LDX4 
SXL4 
LDXxO 
SXL0 
TSX0 
.DX7 
LDA 
STA 
LDA 


STA 
LDA 
STA 
¥SX0 
LXL0 
ASXO 
TRA 
CMPXO 
TZE 
CMPX0 
YNZ 
EAX?7 
TSXO 
LDx5 
STX5 
LDX4 
STX4 
STX4 


PASS 3 


MSROW, DU 
BD2 
MEROWE, DU 
BN4 

TEMNDE 

BDX 
ASSTACK, ID 
TSSOVF 


BDCLR 
ASSTACKs ID 
TESOVE 
BPOS 
ASSTACK, 1D 
TSSOVF 
BDCLR 
BOCLR 
TSBOUND 
Qed 
BSSTRCT,DU 


BDCLR 
ASSTACK,DI 
BPQS 
ASSTACK,DI 


BDCLR 
ASSTACK,DI 
BDX 
ASXFER 
=1,7 
BPOS 

BD4 
MSROW,DU 
BN6 
MSROWE, DU 
SERROR 
MSMSCW 
MBLK 
BSFC,DU 
0,6 

1,6 

BDI4 
BDI20 


PAGE 


IS IT A ROWED MODE 

YES s TRANSFER 

IS IT A END ROW MODE 

NO » TRANSFER 

MAKE MOBE POINTER RELATIVE 
GET RETURN 

AND STORE IN CONTROL STACK 
CHECK FOR STACK OVERFLOW 


GET CURRENT DECLARER 

AND STORE IN CONTROL STACK 

CHECK FAR STACK OVERFLOW 

GET CURRENT POSITION 

AND STORE IN CONTROL STACK 

CHECK FOR STACK OVERFLOW 

SET MODE OF FIELD IN CURRENT DECLARER 


177 


GET BOUND TABLE POINTER OF CURRENT DECLARER 


MAKE POINTER ABSOLUTE 


GET TYPE OF BOUNT TABLE ENTRY IN XR w Q 


1S 17 A STRUCTURE ENTRY 

COMPILER ERROR 

GET POINTER TO FIELD BOUND TABLE ENTRY 
GET FIELD BOUND POINTER IN XR = 1 
AND STORE JN CURRENT DECLARER 

GET A ZERO 

AND RESET FIELD COUNT 

DO ANY BOyNDS IN FIELD 

GET MODE OF FIELD 

POP A WORD FROM THE CONTROL STACK 
AND RESTORE CURRENT POSITION 

POP A WORD FROM THE CONTROL STACK 


AND RESTORE CURRENT DECLARER 

POP A WORD FROM THE CONTROL STACK 

AND RES¥ORE RETURN 

MAKE FIELD MODE POINTER aBSOLUTE 

GET GENGTH OF FYELD VALUE 

AND INCREMENT CURRENT POS!ETION 

AND LOOP 

IS 17 A ROW MODE 

TRANSFER IF YES 

IS IT A END ROW MODE 

NO » ERROR 

GET MODE OF MARK STACK IN XR w 7 

AND MAKE A BLOCK FOR A MARK STACK WORD 
GET A VALUE JS STACKED BIT 

AND CLAIM MARK STACK VALUE IS STACKED 
GET ADDRESS OF MARK STack IN AU 

AND STORE IN INSTRUCTION SEQUENCE 

AND STORE IN INSTRUCTION SEQUENCE 


01557 


ENL 


END 


U4 U5=P-7e 
$ 

C27615 VONO ry 
022616 V23104 
622617 onnon1 
022620 wU2316 
OF BINARY CARD 
022624 vonndL 
022622 023110 
022623 0231N2 
022624 017474 
022625 023074 
022626 uU35217 
022627 O00000 
0226350 016770 
022631 777777 
0226352 ugo0n1 
022633 023100 
022634 0090001 
022655 035221 
022656 000004 
022657 017045 
022640 Od0n003 
022641 022674 
022642 odn00N2 
022643 090022 
022644 020749 
022645 020723 
022646 022017 
OF BINARY CARD 
022647 923103 
0226590 623105 
0226514 0417507 
022652 020746 
022653 022657 
022654 635017 
022655 047474 
022656 022672 
022657 vugn000 
022669 020746 
022664 2350917 
022662 000002 
022663 617474 
022664 020746 
022665 022670 
022666 2350901 
022667 022662 
022670 635001 
022671 017474 
022672 023106 
022673 017474 
022674 0090000 


17,805 


Q610 
7419 
V610 
74190 


VOUDUSHE5 


0610 
7410 
2350 
7009 
7210 
0610 
22u0 
1000 
6010 
2200 
4400 
7200 
04600 
7220 
4420 
7220 
7420 
2350 
77140 
7500 
7100 
7000 


00000586 


7510 
2350 
7090 
2340 
6010 
2350 
7000 
7400 
2350 
1550 
2370 
0750 
7000 
0540 
6000 
2350 
7400 
2350 
7000 
2350 
7000 
2200 


OS 
OU 
0$ 
OU 


0S 
00 
OG 
00 
00 
OV 
t1 
0S 
00 
41 
00 
$1 
Oy 
10 
OY 


49 
00 
Ou 
00 
00 
07 
00 
00 
07 
Ou 
97 
03 
90 
00 


A-G°L48 


77$8 
77$9 
7740 
77414 


7742 
7743 
7744 
7745 
7746 
7747 
7748 
7749 
7750 
7754 
7752 
7753 
7754 
7755 
7756 
7757 
7758 
7759 
7760 
7764 
7762 
7763 


7764 
7765 
7766 
7767 
7768 
7769 
7779 
7774 
7772 
7773 
7774 
7775 
7776 
7777 
7778 
7779 
7780 
7784 
7782 
7783 
7784 
7785 


BU7 


Bys 


BDO 
BDLO 


BULL 


ANDX1 
STX1 
ADX1 
STX4 


ADX1 
STX1 
LDA 
TSXo0 
LXL4 
ADX1 
LDXo 
CMPXQ 
T™NZ 
LDX0 
SXL0 
LX4,0 
ADXO 
LXL2 
SXL2 
LXL2 
STXx2 
LDA 
ARL 
STC2 
TRA 
TSXO 


STCA 
LDA 
TSXO 
SZN 
TNZ 
LDA 
TSX0 
TRA 
LDA 
SSA 
LDA 
ADA 
TSXO 
AQS 
TZE 
LDA 
TRA 
LDA 
TSXo0 
LDA 
TSXo0 
LDX0 


PASS 3 


1,D0u 
BNI3 
1,00 
bDI14 


1,D0u 
BDI6 
BDI¢ 
GAD 
BDCLR 
TSBOUND 
Ord 
BSROW, DU 
SERROR 
tel 
BDED 
1,14 
TSPROG 


BDI2,70 
BDIT, 
GADL 
}oFyc 
BO7 
EAAsD,DL 
GAD 

BD4o 
0.0L 

IDF YC 
LDAaD, DL 
2,DU 

GAD 
TDFyYC 
BD9 
BDAeAU, DL 
8D8 
EAAsAU, DL 
GAD 

BDI4 

GAD 

ee, DU 
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GET ANDRESS OF SECOND WORD OF MARK STACK 
AND STORE IN INSTRUCTION SEQUENCE 
GET ADDRESS OF THIRD WORD OF MARK STACK 
AND STORE IN INSTRUCTION SEQUENCE 


GET ADDRESS OF FOURTH WORD OF MARK STACK 
AND STORE IN INSTRUCTION SEQUENCE 

GET FIRST INSTRUCTION IN SEQUENCE 

AND ADD TO INSTRUCTION SEQUENCE 

GET BOUND POINTER OF ROW MODE 

MAKE POINTER ABSOLUTE 

GET TYPE OF ENTRY IN XR = Q 

IS IT A ROW ENTRY 

NO » COMPILER ERROR 

GET BOUND POINTER FOR ELEMENT OF ROW VALUE 
AND STORE IN BOUND ELEMENT DECLARER 
GET POINTER TO PROG TABLE FOR DECLARER 
MAKE POINTER ABSOLUTE 

GET LABEL FOR BOUND PROC ST LENGTH 

AND STORE AS PARAMETER 

GET LABEL FOR PROCEDURE ENTRANCE 

AND SAVE 

GET ENVIRONMENT OF BOUNDS 

MOVE TO AL 

SAVE RETURN 

AND GET RANGE DIFFERENCE 

GET LINKED ADDRESS OF ST LEN OF PROE 


AND STORE JN INSTRUCTION SEQUENCE 

GET TALLY WORD FOR INSTRUCTION SEQUENCE 
AND ADD SEQUENCE TO GENERATED OUTPUT 
CHECK LL DIFFERENCE TO BOUND PROCEDURE 
TRANSFER FF NOT ZERO 

GET EAA 9,D INSTRUCTION IN A 

AND ADD TO INSTRUCTION SEQUENCE 

AND CONV INUE 

GET A ZERO IN A 

NEGATE LL DIFFERENCE 

GET LDA o.D INSTRUCTION 

SET ADDRESS OF {INSTRUCTION To 2 

AND ADD yO INSTRUCTION SEQUENCE 
DECREMENYT NUMBER OF LEVELS YET TO cROSS 
TRANSFER IF DONE 

GET LDA 0,AU INSTRUCTION 

TRANSFER TO Loop 

GET EAA g,AU INSTRUCTION 

AND ADD TO INSTRUCTION SEQUENCE 

GET STORE JN THIRD MSCW WORD INSTRUCTION 
AND ADD TO INSTRUCTION SEQUENCE 

GET LABEL FOR PROCEDURE ENTRANCE IN XR - 9 


01557 


END 


END 


END 


01 U5"26-72 


3 
OF BINARY CARD 
022675 0417045 
022676 G22017 
022677 023107 
C227u0) O23111 
022704 0417507 
022702 023516 
0227U3 035234 
022704 00909010 
022705 d0N001 
022706 023112 
022707 023117 
022710 023975 
022711 00001 
0227142 023113 
022713 000037 
022714 020377 
022715 100000 
022716 000000 
022717 090001 
022720 023114 
022721 023115 
022722 047507 
OF BINARY CARD 
022723 0090033 
022724 017045 
022725 023572 
022726 023101 
022727 023074 
0227359 6023101 
0227351 0410639 
022732 a90000 
022733 an0001 
022734 016776 
022735 022730 
022736 023104 
022737 023120 
022749 0231421 
022741 017507 
022742 022103 
022743 624000 
022744 017474 
022745 023073 
022746 017474 
02274947 0214097 
022750 1090000 


OF BINARY CARD 


022751 000007 
022752 629377 
022793 090000 


17,808 


00N00387 
4400 0u 
70U0 00 
7510 70 
2350 00 
7000 09 
7000 90 
2260 OV 
1660 O¢ 
2350 416 
7540 79 
75140 79 
2359 00 
0750 938 
7540 20 
6270 O00 
7000 00 
2250 O38 
7450 46 
2350 46 
7510 720 
2350 00 
7000 90 
00000388 
6270 00 
4470 00 
7000 00 
4500 90 
2270 40 
0540 00 
7000 00 
2200 47 
2270 47 
1000 a3 
6010 00 
7200 480 
7400 gu 
2350 09 
7000 00 
7000 00 
0750 07 
7000 00 
2350 00 
7000 90 
7000 90 
2250 O35 
00000389 
62709 00 
7000 00 
7450 16 


ALGIL68 


7786 
7787 
7788 
7789 
7790 
7794 
7792 
7793 
7794 
7795 
7796 
7797 
7798 
7799 
7800 
7804 
7802 
74903 
7804 
7805 
7806 
7807 


7898 
7809 
7810 
7811 
7842 
7843 
7814 
7845 
7816 
7817 
7818 
78419 
7820 
7821 
7822 
7923 
7824 
7825 
7826 
7827 
7828 
7829 


7830 
7831 
7332 


BD415 


SXL0 
TSX0 
STCA 
LDA 

TSXO 
TSX0 
LDX6 
SBX6 
LDA 

STCA 
STCA 
| DA 

ADA 

STCA 
EAX? 
TSX0 
LDX5 
STX5 
DA 

STCA 
LDA 

TSXo 


EAX7 
SX17 
7sX0 
$7Z 
,DX7 
AOS 
TSX0 
LDXo 
LDX7 
CMPXO 
TNZ 
LXL.0 
STXO 
LBA 
TSX0 
TSX0 
ADA 
TSXO 
LDA 
TSXO 
TSX0 
L.DX5 


EAX7 
TSX0 
STX5 


1,6 
B6DI7,70 
BD121,70 
BPOS 
1,00 
BNDJ8,70 
MESPTR 
MBLK 
BSFc,DU 
0,6 

1,6 
BDI9,70 
BOI TS 
GADL 


MEMS 
PARAM 
ENTER 
BDD 
BDCLR 
BDD 
AXFER 
0,7 
1.7 


MSROWE, DU 


BD115 
BDD 
BDI22 
BDITS 
GADL 
MTL 
GAD 
BGEN 
GAD 
DELV 
BSFC,DU 


MEINT 
MBLK 
0,6 
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AND STORE FOR LABEL ROUTINES 

GET LINKED LABEL IN AU 

AND STORE IN INSTRUCTION SEQUENCE 

GET TALLY WORD FOR INSTRUCTION SEQUENCE 
AND ADD YO INSTRUCTION SEQUENCE 

MARK THE STACK FOR PROCEDURE ENTRANCE 
GET POINTER TO END OF WORKING STACK 

GET POLNTER TO CURRENT FIELD OR ELEMENT 
GET ADDRESS OF POINTER IN AU 

AND STORE IN INSTRUCTION SEQUENCE 

AND STORE IN INSTRUCTION SEQUENCE 

GET CURRENT POSITION 

STEP OVER FLAG WORD 

MAKE EAA OFFSET,AU INSTRUCTION 

GET MODE OF A POINTER IN XR © 7 

MAKE A BLOCK FOR BOUND PROCEDURE PARAMETER 
CLAIM ARGUMENT IS STACKED 

AND STORE IN BLOCK 

GET ADDRESS OF ACTUAL PARAMFTER IN AU 
AND STORE IN INSTRUCTION SEQUENCE 

GET TALLY WORD FOR INSTRUCTION SEQUENCE 
AND ADD 0 GENERAYED OUTPUT 


GET MODE OF PSEUDO RESULT OF BOUND PROCEDURE 
AND STORE FOR ENTER ROUTINE 

AND ENTER BOUND PROCEDURE 

INITIALIZE DIMENSION COUNT TO ZERO 

GET ROW MODE IN XR » 7 

INCREMENT DIMENSION COUNT 

MAKE MOBE POINTER aSSOLUTE 

GET TYPB OF MODE IN XR = 

GET DEROWED MODE IN XR w 7 

1S THIS aN END ROW MODE 

NO » TRANSFER TO KEEP COUNTING DIMENSIONS 
GET DIMENSION OF ARRAY IN XR »~ O 

AND STORE JN INSTRUCTION SEQUENCE 

GET TALLY WORD FOR INSTRUCTION SEQUENCE 
AND ADD SEQUENCE To GENERATED OUTPUT 
GET FYPE OF ELEMENT MODE JN AU 

MAKE EAXg TYPE INSTRUCTION 

AND ADD TO INSTRUCTION SEQUENCE 

GET TSXO0 RSRLGEN OR RSRHGEN INSTRUCTION 
AND ADD T0 GENERATED OUTPUT 

DELETE MARK STACK BLOCK 

GET VALUE IS STACKED BIT 


GET INTEGER MODF IN XR w 7 
MAKE A BLOCK FOR MINUS ELEMENT COUNT 
CLAIM VALUE IS STACKED 


U1557 


END 


UL JU5"20-72 
3 
022754 OyMoL 
022755 623122 
022756 Oygogun7 
022757 U20377 
U22760 090000 
022761 090037 
022762 029377 
022763 O00N000 
022764 023074 
022765 010630 
022766 090000 
022767 099001 
022770 046776 
022771 022765 
022772 023100 
022773 040562 
022774 023065 
022775 023122 
022776 017474 
END OF BINARY CARD 
022777 035225 
023000 017045 
023001 035225 
023002 v90000 
023003 005663 
023004 777777 
023005 022017 
023006 600004 
023007 017474 
023010 017045 
023011 035235 
023012 005742 
023013 035226 
023014 035235 
023045 005742 
023016 023076 
023037 035235 
023020 005742 
023021 023074 
023022 035235 
023023 095742 
023024 023075 
OF BINARY CARD 
023025 035235 
023026 005742 
023027 023100 
023030 023074 
023051 023075 
023032 022512 
023033 035235 


2350 
7519 
62/0 
70u0 
7450 
6270 
7009 
7450 
2279 
7ouU0 
2200 
2270 
1000 
6010 
7470 
7000 
7400 
2350 
7000 


gooouaso 


7200 
4400 
2210 
6350 
7000 
4500 
7000 
0750 
7090 
2350 
7550 
7470 
2350 
7550 
7470 
2350 
7550 
7170 
2350 
7590 
71470 
2350 


Qo000s¥1 


7550 
7470 
2350 
7590 
4500 
7000 
2350 


16 
7y 
ene) 
OU 
16 
00 
0u 
16 
00 
00 
17 
17 
03 
00 
00 
0 
00 
00 
00 


56 
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7A $3 
7834 
7RS5 
7436 
7237 
7°38 
7339 
7840 
7°41 
7842 
7843 
7844 
7845 
7846 
7847 
7848 
7849 
7850 
7851 


7852 
7853 
7854 
7855 
7856 
7857 
7858 
7859 
7860 
7961 
7862 
7863 
7864 
7865 
7866 
7367 
7468 
7869 
7870 
7871 
7872 
7873 


7874 
7875 
7876 
7877 
7878 
7879 
7880 


BOL2 


LOA 
STCA 
EAX7 
TSx0 
STx5 
EAX7 
TSXU 
STX5 
0X7 
TSX0 
DX 
LDX7 
CMPXQ 
INZ 
STX7 
TSX0 
TRA 
LDA 
TSX0 


LL 0 
SXLoO 
LDX4 
EAA 
TSX0 
STZ 
TSX0 
ADA 
TSXO 
LDA 
STA 
XED 
LDA 
STA 
XED 
LDA 
STA 
XED 
LDA 
STA 
XED 
LDA 


STA 
XED 
LDA 
STA 
$TZ 
TSXO 
LDA 


FASS 8 


1,6 
6110.70 
MEINT 
MHLK 


0,6 
M$EPTR 


MRILK 
u,6 
BNCLR 
ASXFER 
0,7 
1,7 
MEROWE,DU 
BN1L2 
BNED 
AERCHK 
6D13 
BOIa0 
GAD 


TSLBL 
PARAM 
TSLAL,DU 
lel 

TSALOC 
wtat 

TRAD 

GAD 

PARAM 
ASSTACK, 10D 
TESOVF 
T$GEN 
ASSTACK,]D 
TSSOVF 

BNX 
ADSTACK, 1D 
TSSOVE 
BDCLR 
AZSTACK, ID 
TSSOVF 
BPOS 


ASSTACK, 1D 
TSSOVF 
BDED 

BDCLR 

BPOS 

BD 
ASSTACK, DI 
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GET ADDRESS OF COUNT IN AU 

AND STORE IN INSTRUCTION SEQUENCE 

GET INTEGER MODE IN XR = 7 

MAKE A BLOCK FOR LENGTH OF ELEMENT 
CLAIM VALUE IS STACKED 

GET POINTER MODE IN XR = 7 

MAKE A BLOCK FOR ELEMENT POINTER 

CLAIM VALUE IS STACKED 

GET MODE OF ARRAY IN XR # 7 

MAKE MODE POINTER aBSOLLTE 

GET TYPE OF MODE IN XR - 9 

GET DEROWED MODF IN XR - 7 

SEE IF TYPE OF MODE IS END OF ROW MODE 
TRANSFER IF NOT 

STORE MODE OF ELEMENT IN ELEMENT DECLARER 
SEE JF MORE BOUND PROCEDURES TO CALL 
TRANSFER fF NO MORE PROCEDURES TO CaLL 
GET SZN COUNT,D JNSTRUCTION 

AND ADD YO GENERATED OUTPUT 


GET ADDRESS OF NEXT LABEL TO BE GENERATED 
AND STORE AS PARAMETER 

GET POINTER TO LABEL TABLE CONTROL WORD 
PREPARE TQ ALLOCATE ONE WORD 

ALLOCATE WORD IN LABEL TABLE 

ZERO OUT ALLOCATED WORD 

GET LINKED LABEL IN AU 

GET FZ2E LAL,IC INSTRUCTION 

AND ADD 70 GENERATED OUTPUT 

GET LABEL IN A 

AND STORE JIN CONTROL STACK 

CHECK FOR STACK OVERFLOW 

GET ANDRESS FOR NEXT GENERATED INSTRUCTION 
AND STORE JN CONTROL STACK 
CHECK FOR STACK OVERFLOW 
GET RETURN 

AND STORE IN CONTROL STACK 
CHECK FOR STACK OVERFLOW 
GET CURRENT DECLARER 

AND STORE IN CONTROL STACK 
CHECK FOR STACK QVERFLOW 
GET CURRENT POSETION 


AND STORE JN CONTROL STACK 
CHECK FOR STACK OVERFLOW 

GET DECLARER FOR ARRAY ELEMENT 
MAKE CURRENT DECLARER 

ZERO OUT CURRENT POSITION 

AND COMPILE CODE FOR ELEMENT 
GET OLD POSITION 


01557 


END 


END 


3 
023034 023075 
023035 035235 
0230356 023074 
023037 035235 
023040 023076 
023041 035234 
023042 600004 
023043 90001 
023044 023124 
023045 000004 
023046 000004 
023047 0231423 
023050 090004 
023051 000004 
023052 023125 
OF BINARY CARD 
023053 035226 
023054 023426 
023955 035235 
023056 000003 
023057 023126 
Q23060 023127 
023061 0417507 
023062 035235 
023063 017045 
023064 022006 
023065 021007 
023066 021007 
023067 021007 
023070 023074 
023071 010630 
023072 022577 
023073 000000 
023074 On0000 
023075 000000 
023076 0090000 
023077 000000 
023100 000000 
OF BINARY CARD 
023101 090000 
023192 090000 
023103 000000 
023104 090000 
023105 023103 
023106 090000 
023107 0090000 
023110 0090090 
023111 023197 
023112 090000 
023113 Odonono 


17,805 


7550 
2390 
7550 
2350 
7550 
2260 
1660 
2350 
7540 
1660 
2350 
7540 
1660 
2390 
7510 


Oou00s92 


7290 
7400 
7200 
0600 
1400 
2350 
7000 
7200 
4490 
70Q0 
7000 
7000 
7000 
2270 
7000 
7400 


00 


90 
54 


o3 
00 


00 


0000090 
900000 
gog0u8 
Q00008 
0000098 
g00000 


00000395 


ALGOL68 


73861 
7882 
7883 
7884 
7885 
7886 
7887 
7888 
7889 
7890 
7891 
7892 
7893 
7894 
7895 


7896 
7897 
7898 
7899 
7900 
7901 
7902 
7993 
7904 
7905 
7996 
7907 
7908 
7909 
7940 
79414 
7942 
7913 
7944 
7945 
7916 
7917 


7918 
7919 
7920 
7924 
7922 
7923 
7924 
7925 
7926 
7927 
7928 


BO413 


BGEN 
BUELR 
BROS 
BOX 
BroSst 
BDED 


BUB 
BDI4 
BUI2 
BUI 
BDITI 
BLI4 
BDIS 
BUI6 
BUIT2 
BOI7 
BOI8 


STA 
LDA 
STA 
LDA 
STA 
LDX6 
SBX6 
DA 
STCA 
SBX6 
LDA 
STCA 
SBX6 
LDA 
STCA 


LXLO 
STX0 
Xi 0 
ADXO 
SSX0 
LDA 

TSX0 
LXLO 
SXL0 
TSX0 
TSXO 
TSXo 
TSXO 
|, DX7 
TSX0 
TRA 

ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 


ZERO 
STZ 
LDA 
STA 
TALLY 
STA 
EAA 
STA 
TALLY 
LDA 
EAA 


PASS 3 


BPOS 
ASSTACK,DI 
BDCLR 
ASSTACK,D! 
BDX 

ASWORK 

WL» DU 

1,6 

WL»DU 

1:6 
BDJ41,76 
Wha DU 

1,6 
BN143,70 


TSGEN 
BDI44 
ASSTACK,DI 
3,0U 

BDI44 
BDIT4 

GADL 
ASSTACK,DI 
PARAM 

LBL 

DELV 

DELv 

DELV 

BDCLR 
ASXFER 

BD4 


0,0 
0,Ic 
0,0 


BDI2,#-BDI2¢1 


0.0 
O,3¢ 
0,D 


BNI5,8-RDI544 


G,D 
O, At 


AND 
GET 
AND 
GET 
AND 
GET 
GET 
GET 
AND 
GET 
GET 
AND 
GET 
GET 
AND 


GET 
AND 
GET 
ADD 
AND 
GET 
AND 
GET 
AND 


PAGE 


RESTORE 

OLD DECLARER 

RESTORE 

OLD RETURN 

RESTORE 

POINTER TO END OF WORKING STACK 
POINTER TO POINTER RLOCK 
ADDRESS OF FLEMENT POINTER 
STORE JIN INSTRUCTION SEQUENCE 
POINTER TO ELEMENT LENGTH BLOCK 
ADDRESS OF ELEMENT LENGTH IN ay 
STORE IN INSTRUCTION SEQUENCE 
POINTER TO COUNT BLOCK 

ADDRESS OF COUNT IN aU 

STORE IN INSTRUCTION SEQUENCE 
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ADDRESS OF NEXT GENERATED INSTRUCTION 


STORE JN INSTRUCTION SEQUENCE 
ADDRESS FOR LOOP IN XR = 0 


THREE FOR THIRD FROM START IN SEQUENCE 


STORE CORRECT RELATIVE ADDRESS 


TALLY WORD FOR INSTRUCTION SEQUENCE 


ADD TO GENERATED OUTPUT 
LABEL FOR LOOP EXIT 
STORE AS PARAMETER 


DEFINE LABEL AT CURRENT ADDRESS 
DELETE POINTER BLOCK 

DELETE ELEMENT LENGTH BLOCK 
DELETE COUNT BLOCK 


GET 


MODE OF ARRAY IN XR = 7 


MAKE MODE POINTER ABSOLUTE 


AND 


LOOP 


0155? 


END 


END 


U4 U5-26-72 
5 

023414 0000ng 
023115 023112 
023116 000000 
023117 000000 
023120 090000 
023121 023116 
023122 Odon000 
023123 000000 
023124 090000 
023125 000000 
023426 090000 
OF BINARY CARD 
023427 023423 
0231430 023212 
023151 017042 
0231432 035235 
023133 005742 
023154 017040 
0231435 000022 
0231436 047037 
0231437 035235 
023440 095742 
023441 035234 
023142 035214 
023143 090000 
023144 035235 
023145 095742 
023146 035235 
023447 000003 
023150 035215 
023151 017042 
023452 047044 
023153 035214 
023154 090004 


OF BINARY CARD 


0231455 090004 
023156 023213 
023457 017474 
023160 009933 
0231614 020377 
023162 020526 
023463 035234 
023164 000004 
023165 0090001 
023166 000004 
023167 450017 
0231470 017474 
023171 017045 
023172 017042 
023173 035221 


7550 
o0u4 
6210 
2220 
6250 
Qou4 
2340 
33>0 
0550 
0540 
6040 


go000a94 


0005 
7400 
2350 
7550 
7170 
2350 
7740 
0750 
7550 
7470 
2200 
1600 
6350 
7550 
7470 
2200 
1600 
1600 
7400 
2260 
0660 
2350 


0000495 


0 

6350 
0750 
7000 
2270 
7000 
7000 
2260 
1660 
2350 
6350 
0750 
7000 
7240 
4410 
0610 


17 
OV 
17 
17 
00 
OU 
17 
17 
17 
17 
04 


00 
80 
00 
56 
00 
90 
00 
90 
56 
00 
00 
90 
40 
56 
00 
90 
OR) 


01 
00 


ALG9L58 


7929 
7930 
7931 
7932 
7933 
7934 
7935 
7936 
7937 
7938 
7939 


7940 
7944 
7942 
7943 
7944 
7945 
7946 
794? 
7948 
7949 
7950 
7954 
7952 
7953 
7954 
7955 
7956 
7957 
7958 
7959 
7960 
7961 


7962 
7963 
7964 
7965 
7966 
7967 
7968 
7969 
7970 
7974 
7972 
79738 
7974 
7975 
7976 


BLI9 

BUITS 
BOI20 
BUT21 
BDI22 
BOITS 
BDI10 
BOTi4 
BUYI42 
BOI13 
BDI14 


BDIT4 
SRNGE 


STA 
TALLY 
EAX1 
LDx2 
EAXS 
TALLY 
SZN 
LCA 
ASA 
AOS 
TM] 


TALLY 
STX0 
LDA 
STA 
XED 
LDA 
ARL 
ADA 
STA 
XED 
LDX0 
SBXO 
EAA 
STA 
XED 
DXO 
$BX0 
SBX0 
STX0O 
LDX6 
ADX6 
LDA 


EAA 
ADA 
TSX0 
LDX7 
TSxo 
TSX0 
DX6 
SBX6 
LDA 
EAA 
ADA 
TSX0 
LXLd 
SXL4 
ADX4 


PASS 3 


0,0 
BDI7,#-BDI7 +4 
0,0 

0,D 

0 
BDI20,#"BDI 2044 
0,D 

0,0 

0.0 

0,D 

0,1C 
BDl1i,#eBDJ11+1 
SRNGX 

LLINK 
ASSTACK, ID 
TSSOVF 


ASSTACK; ID 
TSSOVF 
ASWORK 
TEWORK 


0,0 
ASSTACK, 1D 


-TESOVF 


ASSTACK 
3,DU 
TSSTACK 
Ll INK 
LSTMK 
TSWORK 
1,6 


1, AU 
SRNGI 


‘GAD 


MEMS,DU 
MBLK 
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SAVE RETURN 

GET CURRENT ENVIRONMENT 

AND STORE JN CONTROL STACK 

CHECK FOR STACK OVERFLOW 

GET MAXIMUM EXTENT OF ALLOCATED TEMP 
MOVE IY 70 AL, 

GET TEMPORARY STACK POINTER IN AU 
AND STORE JN CONTROL STACK 

CHECK FOR STACK QVERFLOW 

GET POJRTER TO END OF WORKING STACK 
MAKE ENB POINTER RELATIVE 

GET LENGTH OF WORKING STACK IN AU 
AND STORE IN CONTROL STACK 

CHECK FOR STACK OVERFLOW 

GET POINTER TO END OF CONTROL STACK 
GET POJNTER YO RANGE MaRK JUST PUT IN STack 
MAKE POYNTER RELATIVE 

AND STORE AS NEW LJNK YO RANGE MARK 
GET POINTER YO LaST MARK [{N STACK 
MAKE POINTER aBSOLUTE 

GET ANDRESS oF LAST MS IN AU 


GET 
ADD 
AND 


ADDRESS OF SAVED S REGISTER IN aU 
STX $,9.D0 INSTRUCTION 

ADD TO GENERATED OUTPUT 

GET MODE OF MARK STACK IN XR ~ 7 

AND MAKE A BLOCK FOR IT 

STORE T¥PE OF STaCcK IN MS 

GET POINTER TO END OF WORKING STACK 
GET POJNTER TO LaST BLOCK JN WORK 

GET ADDRESS OF MS IN ay 

GET ADDRESS OF SAVED S REGISTER IN aU 
ADD STZ 02D INSTRUCTION 

AND ADD 70 GENERATED OUTPUT 

GET POJNTER TO RANGE JUST ENTERED 
STORE RANGE POINTER IN LUIENK 

MAKE PROG TABLE POINTER ABSOLUTE 
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S PASS 3 
023174 000002 7210 41 7977 LX 2.4 GET POJNTER TO NEFINITION CHAIN FOR THIS RANGE 
023175 023212 6040 09 7978 SKNG1 MJ SRNGX TRANSFER [F NO MORE DEFINITIONS IN THIS RANGE 
023176 035220 0610 90 7979 ADX4 TSDEF MAKE DEFINITION POINTER ABSOLUTE 
023177 000003 7220 $1 7980 LXL2 1rd GET POJNTER TO NEXT DEFINITION IN CHAIN IN XR ~ 2 
023200 000002 2270 $1 7984 .DX7 2% GET MODE OF JDENTIFIER IN XR ~ 7 
023201 000031 1070 as 7982 CMPX7 MSLBL,DU SEE JF 17 1S A LABEL 
023202 023210 6000 90 7983 TZE SRNG2 TRANSFER IF IF 1S a LABEL 
END OF BINARY CARD O000U396 
023203 017037 2200 Oo 7984 LDX0 SP GET CURRENT STACK POINTER 
023204 000003 7400 $1 7985 STXO 3,4 AND STORE AS ADDRESS OF IDENTIFIER 
023205 020377 7nU0 90 7986 TSx0 MBLK MAKE & BLOCK FOR IDENTIFIER 
023206 100000 2250 3 7987 LDXx5 BSFc,DU GET a VALUE IS STACKED BIT 
023207 000000 7450 16 7988 STX5 0,6 AND STORE IN BLOCK 
023210 000000 6210 12 7989 SKNG2 EAXi 0,2 GET POINTER TO NEXT DEFINITION IN XR ~ 4 
023211 023175 7400 90 7990 TRA SRNGL AND LOOP 
023242 000000 7100 90 799% SKNGX YRA #o AND RETURN 
0232413 000000 7460 47 7992 SRNG!I STX $,0;D 
023214 023260 7400 60 7993 ERNGE STXO ERNGX SAVE RETURN 
0232145 035234 2260 09 7994 L.DX6 ASWORK GET POINTER TO END OF WORKING STACK 
023216 000004 1660 93 7995 $BX6 WLaDU GET POINTER TO LAST BLOCK IN WORKING STacKk 
023217 0090000 7270 16 7996 XL7 0,6 GET MODE OF RESULT OF RANGE IN XR » 7 
023220 023233 7470 O0 7997 STX7 ERNGM AND SAVE 
Q23221 023261 4500 00 7998 STZ ERNGF INITLALSZ@ RANGE VALUE FLAG 
023222 020204 7000 0 7999 TSX0 MVA MAKE RANGE VALUE AVAILABLE 
Q23223 0235264 7500 00 8000 $tc2 ERNGF SET FLAG INDICATING VALUE IN ACCUMULATOR 
023224 023262 7550 O09 Boot STA ERNGT SAVE ADBRESS OF VALUE 
023225 023663 7000 90 8002 TSXO POP POP STACK BACK THROUGH LAST MARK 
023226 035235 0110 94 8003 NOP ASSTACK,DI DELETE POINTER WHERE WORK WAS MARKED 
023227 035235 2210 54 8004 LDX4 ASSTACK,DI GET SAVED STACK POINTER 
023250 0417037 7440 00 8005 STX4 SP AND RESTORE STACK POINTER 
END OF BINARY CARD 00000397 
023251 035235 2350 54 8006 LDA ASSTACK,DI GET PREVIOUS ENVIRONMENT 
023232 017042 7550 O09 8007 STA LLINK AND RESTORE 
023253 000000 2270 93 8908 ERNGM {DX7 #*,DU GET MODE OF RANGE IN XR @ 7 
023254 020377 7000 00 8009 TSX0 MBLK MAKE A BLOCK FOR RANGF VALUE 
023235 100000 2250 03 8910 .DX5 BSFC,DU GET VALUE IS STACKED BIT 
023256 000000 7450 46 BOLL STX5 0,6 AND STORE IN BLOCK 
023257 023262 2350 00 8012 LDA ERNGT GET ADDRESS OF VALUE IN A 
023240 023261 2340 00 8013 SZN ERNGF SEE IF VALUE IS IN ACCUMULATOR 
023241 025247 6010 Of 80144 NZ ERNGL TRANSFER IF VALUE JS IN ACCUMULATOR 
023242 000001 2360 46 815 LDQ 116 GET ADDRESS OF DESTINATION OF MOVE IN Q 
023243 000047 0760 07 8016 ADO Ds DL ADD D REGISTER MODIFICATION 
023244 090000 7270 16 8017 LXL7 0,6 GET MODE OF VALUE IN XR ® 7 
023245 017531 7000 Oy 6048 TSxX0 MOVE AND MOVE RANGE VALUE TO STACK 
023246 023252 7100 80 8919 TRA ERNG2 AND CONTINYE 
023247 000001 0750 16 8020 EXNG1 ADA 1,6 ADD ADDRESS WHERE VALUE IS TO BE STORED 
023250 000047 0750 07 N21 ADA D,DL ADD D REGISTER MODIFICATION 
023251 017474 7000 Ou an22 TSXO GAD AND ADD STORE COMMAND TO GENERATED OUTPUT 
023252 017044 2260 O90 8023 ERNG2 LDX6 LSTMK GET POINTER TO LAST MARK 


U23253 35214 9660 00 an24 ADX6 TSWORK MAKE POINTER ABSOLUTE 


014557 01 J5926-72 
3 
023254 dgnon4 
023255 oono01 
023256 023263 
END OF BINARY CARD 
023257 017474 
023260 090000 
023261 0g0000 
023262 ogn0n00 
023263 000000 
023264 023336 
023265 017042 
023266 035235 
023267 0095742 
023270 0147040 
023271 On90022 
023272 0147037 
023273 035235 
023274 0095742 
023275 035234 
023276 035214 
023277 0090000 
023300 035235 
023301 095742 
023302 035235 
023303 090003 
023304 017045 
END OF BINARY CARD 
023305 777777 
023306 017042 
023307 og0000 
023310 023315 
023341 017042 
023312 090000 
023313 490000 
023314 023322 
023345 090000 
023316 023324 
023317 035215 
023329 777777 
023321 000000 
023322 035245 
023323 0233507 
023324 035215 
023325 490000 
023326 017042 
023327 017037 
023330 017040 
023334 090035 
023332 020377 


END OF BINARY CARD 


17,863 


23909 
6390 
0750 


DOUCUS9E 


7000 
7100 


16 
Al 
QQ 


00 
00 


QoundUd 
QoQgduUs 


2200 
7400 
2350 
7550 
7170 
2350 
7710 
0750 
7550 
7470 
2200 
1600 
6350 
7550 
7170 
2200 
1600 
2390 


00000399 


2360 
4500 
2340 
6050 
0540 
2200 
6600 
7400 
2410 
6000 
1000 
6000 
2200 
0600 
7100 
1600 
6690 
7400 
4590 
4500 
6270 
7000 


009090400 


17 
00 
00 


00 


Gs 
00 
40 
00 
00 
10 
Os 
90 
40 
00 
9U 
00 
10 
90 
90 
90 
05 
i) 
50 
00 
00 
00 
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anes 
B8N26 
8n27 


anes 
8029 
8930 
BOS1L 
8N32 
8N3S3 
834 
8N35 
8NS6 
8037 
8038 
BN3S9 
8N40 
BN41 
8042 
8043 
8044 
8N45 
BN46 
gn47 
8N48 
Bn49 


8N50 
8N51 
8n52 
8053 
854 
8055 
8n56 
8957 
8058 
8n59 
8n60 
BNb6L 
8062 
8063 
8n64 
8065 
8066 
8067 
8068 
8069 
8N70 
BN71L 


ERNGX 
ERNGF 
ERNGT 
ERNG] 
Lb 


bbe 4 


Li,2 


Lb 


bu4 


LDA 
EAA 
ADA 


TSXO 
TRA 
ZERO 
ZERO 
DX 
STXO 
LDA 
STA 
XED 
LDA 
ARL 
ADA 
STA 
XED 
| DX0 
SBXO 
EAA 
STA 
XED 
LDX0 
SBX0 
LDA 


DQ 

TZ 
SZN 
TRL 
AOS 
LDXo 
ERX0 
FRA 
CMK 
TZE 
CMPXQ 
TZE 
LDXx0 
ADXO 
TRA 
$BX0 
ERX0 
STXO 
STZ 
STZ 
EAX7 
TSX0 


PASS 3 


1,6 
1,AU 
ERNG] 


GAD 
oe 


$,0,D 

LIX 

LLINK 
ASSTACK, ID 
TSSOVF 


ASSTACK, ID 
TSSOVF 
ASWORK 
TSWORK 

0,0 
ASSTACK, ID 
TSSOVF 
ASS™ACK 
3,0U 

PARAM 


#4,DU 

LL JNK 

0,0 

Lue 

LL JNK 

0:0 
™0490000,0U 
bd 

0,0 

LL 4 

TSSTACK 
SERROR 

0,0 

TSSTACK 

Lid 

TSSTACK 
#®0490000,DU 
LiL INK 

SP 


MAXS 
MSMSCW 
MBLK 
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GET ADDRESS OF LAST MARK IN AU 
GET ANDRESS OF SAVED S IN AU 
ADD LAX $.0.,0 INSTRUCTION 


AND ADD TO GENERATED OUTPUT 
AND EX]T 


SAVE RETURN 

GET CURRENT ENVIRONMENT 

AND STORE JIN CONTROL STACK 

CHECK FOR STACK OVERFLOW 

GET MAXIMUM TEMP USED IN PREVIOUS ENVIRONMENT 
MOVE TO al 

GET CURRENT EXTENT OF TEMPORARY STORAGE 
AND STORE JN CONTROL STACK 

CHECK FOR STACK OVERFLOW 

GET POINTER TO END OF WORKING STACK 
MAKE POINTER RELATIVE 

GET LENGTH OF WORKING STACK IN AU 

AND STORE IN CONTROL STACK 

CMECK FOR STACK OVERFLOW 

GET POINTER FO END OF CONTROL STack 

GET POJNTER TO ENVYRONMENT QUST STACKED 
GET POJNTER YO NEW ENVIRONMENT IN aL 


GET A MASK TQ COMPARE AL ONLY 

ZERO OUT DELTA LL IN LOWER HaLF OF LLINK 
SEE JF ENVIRONMENT IS LEXICOGRAPHICAL LEVEL 
TRANSFER {F NOT 

INCREMENT DELTA LL 

GET POINTER YO SURROUNDING RANGE IN XR ~ 
FLIP SJGEN BIT 

AND CONTINVE 

SEE JF DESJRED ENVIRONMENT WAS BEEN FOUND 
TRANSFER IF FOUND 

SEE JF CURRENT ENVIRONMENT? IS GLOBAL 
TRANSFER YF YES » ERROR NO BIGGER ENVIRONMENT 
GET SURROUNDING RANGE IN XR & g 

MAKE ENVIRONMENT POINTER ABSOLUTE 

AND LOOP 

MAKE ENVIRONMENT POINTER RELATIVE 

FLIP SIGN BIT 

STORE NEW ENVIRONMENT IN LLINK 

RESET STacK POINTER 

RESET MAXIMUM STACK POINTER 

GET MODE OF MARK STACK CONTROL WORD 

AND MAKE A BLOCK FOR IT 
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3 PASS 3 
023353 109000 2250 O8 8972 LDx5 BSFC,DU GET VALVE IS STACKED BIT 
023334 Oon000 7450 16 8973 STX5 0,6 AND STORE FLAGS JN BLOCK 
023335 023652 7000 oy 8074 TSX0 PUSH MARK WORKING STaCK IN CONTROL STACK 
023336 090000 7400 00 8075 LLXx TRA * AND ExT 
023337 023355 7400 90 8076 LLE STX0 LLex SAVE REFURN 
023340 017040 2200 90 8077 2X0 MAXS GET MAXIMUM LENGTH OF TEMP NEEDED IN PROCEDURE 
023341 017041 7400 40 878 STX0 MAXST AND SAVE 
023342 017042 2350 00 8079 LDA LL JNK GET DELTa~ LL AND ENVIRONMENT OF PROCEDURE 
023343 017043 7850 og 8060 STA DLL AND SAVE 
023344 023663 700 90 BO8L TSX0 POP RESTORE WORKING STACK TO CONDITION WHEN MARKED 
023345 035235 0110 54 8082 NOP ASSTACK,D! DELETE POINTER 70 WHERE WORK WaS MARKED 
023346 035235 2350 54 8083 LDA ASSTACK,D! GET SP AND MAXS 
023347 O000%0 6200 O14 8084 EAXO 0,AU GET SAVED SP IN XR w O 
023350 017037 7400 90 8085 STX0 SP AND RESTORE STACK POINTER 
023351 000000 6200 05 8086 EAXO 0,AL GET SAVED MAXS IN XR # 0 
023352 047040 7400 90 8087 STX0 MAXS AND RESVORE MAX STACK POINTER 
023353 035235 2350 94 8088 LDA ASSTACK,DI GET PRE®IOYS ENVIRONMENT 
023354 017042 7550 O90 8089 STA bk JNK AND MAKE {L¥ CURRENT ENVIRONMENT 
023355 000000 7400 00 8090 LLEX TRA on AND EX]? 
023356 023400 7400 90 8091 FORMP STXO FORMX SAVE RETURN 
023357 0417045 7210 00 8N92 LXL4 PARAM GET DEFINITION OF FORMAL PARAMETER IN XR w 4 
023360 035229 0610 00 8n93 ADX4 TSDEF MAKE POINTER ABSOLUTE 
END OF BINARY CARD 00000401 
023361 000003 2220 41 8094 LDXx2 3y1 GET ASSIGNED ADDRESS OF FORMAL PARAMETER 
023362 035234 2260 40 8095 L,DX6 ASWORK GET ADDRESS OF END OF WORK IN XR ~ 6 
023363 000004 1660 93 8096 FORMS SBX6 WL» DU STEP BACK TO LAST BLOCK 
023364 000001 1020 46 8097 CMPX2 4,6 1S THIS THE FORMAL PARAMETER BEING ASSIGNED 
023365 0233563 6040 00 8098 NZ FORML LOOP IF NOT 
023366 190000 2250 93 8099 .DXx5 BSFC,DU GET VALVE JS STACKED BIT 
023367 0090000 2450 46 8100 ORSX5 0.6 SET STACKED BIT JN FORMAL PARAMETER DEFINITION 
023370 000002 2270 44 8101 LDX7 261 GET MODE OF PARAMETER IN XR « 7 
023371 000003 2350 %1 8102 LDA 3,4 GET ASSIGNED LOCATION OF FORMAL PARAMETER 
023372 000003 2360 1 8403 |.DQ 3.1 GET ASSYGNED LOCATION OF FORMAL PARAMETER 
023373 777776 6350 O4 8104 EAA =M$MSL,AU ZERO OUT AL AND SUBTRACT MARK STACK LENGTH 
023374 000041 0750 97 8405 ADA ®014,DL ADD X REGISTER 4 MODIFICATION 
023375 0090009 6340 02 8106 EaQ 0,Qu ZERO OUT aL 
023376 000012 0760 07 8107 ADQ #012,DL ADD X REGISTER 2 MODIFICATION 
023377 017531 7000 O0 8108 TSX0 MOVE COMPILE MOVE FROM ACTUAL TO FORMAL PARAMETERS 
023400 000000 7100 00 ~B109 FORMX RA * AND RETURN 
023404 023475 7490 00 8110 EFBV STXO EPDVX SAVE RETURN 
023402 017045 7270 00 Bilt LXL7 PARAM GET MODE OF PROCEDURE IN XR ~ 7 
023403 020377 7n00 00 8412 ¥SX0 MBLK PUSH A BLOCK IN THE WORKING STACK FOR THIS VALUE 
023404 100000 2250 93 8115 LDx5 BSFc,DU GET STACKED BIT 
023405 090090 7450 46 8114 STX5 0,6 AND STORE IN BLOCK 
023406 000001 2200 16 8415 LDXo 1,6 GET ASSIGNED LOCATION FOR VALUE 
END OF BINARY CARD 00000402 
023407 023476 7400 00 8116 STX0 EPDVQ AND STORE IN INSTRUCTION SEQUENCE 
023410 000001 0609 03 8417 ADXO 1, Du GET SECOND ASSIGNED LOCATION FOR VALUE 
023411 023501 7400 00 8418 STXO EPDv2 AND STORE IN INSTRUCTION SEQUENCE 


023412 009000601 0609 OS 8119 ADXO 1, Du GET THIRD ASSIGNED LOCATION FOR VaLUE 
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END 
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B) 


U23413 023503 
023414 OonooL 
023415 023505 
023416 017044 
023417 023477 
023429 023476 
0234214 017474 
023422 023477 
023423 047474 
023424 00n005 
023425 035227 
023426 095663 
023427 027215 
023430 090000 
023431 090001 
023452 090002 
023433 090003 
023434 047041 
END OF BINARY CARD 
023435 0090004 
023436 090022 
023437 027222 
023440 000004 
023441 035227 
023442 022110 
023443 023500 
023444 023502 
023445 047507 
023446 047043 
023447 023453 
023450 635009 
023451 017474 
023452 023473 
023453 047943 
023454 023469 
023455 635017 
023456 017474 
023457 023473 
023469 6235017 
023464 000002 
023462 017474 
Or BINARY CaRD 
023463 000001 
023464 923474 
023465 235004 
023466 090002 
023467 017474 
023470 023463 
023471 635001 
023472 047474 


7400 
0600 
7400 
2200 
7400 
2350 
7000 
2350 
7000 
6350 
2210 
7000 
6350 
7550 
7550 
7550 
7550 
2350 


00000405 


1750 
7710 
0750 
7550 
1610 
7000 
7510 
2350 
7000 
2220 
6010 
2350 
7000 
7400 
7220 
6010 
2350 
7000 
7400 
2350 
0750 
7000 


00000404 


1620 
6000 
2350 
Q750 
7000 
7100 
2350 
7000 


QS 
00 
93 
41 
00 


03 
90 
07 
05 
00 
90 
07 
90 
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8120 
8121 
8122 
8125 
8124 
8125 
8126 
8127 
8128 
8129 
8150 
84131 
84132 
8133 
8134 
8135 
8136 
8137 


8138 
8439 
8140 
8441 
8442 
8143 
8444 
84145 
8146 
8147 
8448 
8149 
8450 
8454 
8452 
8453 
8¢54 
8155 
8456 
84157 
8¢58 
8459 


8160 
8164 
8162 
8463 
8164 
8165 
8166 
8167 


EPV, 


EPVo 


EPV3 


EPV4 


STX0O 
ADXO 
STX0 
LDXO 
STX0 
LDA 
TSX0 
DA 
TSX0 
EAA 
LOX1 
TSX0 
EAA 
STA 
STA 
STA 
STA 
LDA 


SBA 
ARL 
ADA 
STA 
SBXt 
TSX0 
STCA 
LDA 
TSX0 
LDXx2 
TNZ 
LDA 
TSXo0 
TRA 
LXL2 
TNZ 
LDA 
TSXo 
TRA 
LDA 
ADA 
T8X0 


SBXx2 
YZE 
LDA 
ADA 
TSX0 
TRA 
LDA 
TSX0 


PASS 3 


EPDV6 
1,00 
EPDVS5 
MAXST 
EPDV4 
EPDVO 
GaD 
EPDV4L 
GAD 

5 
TETYPE,DU 


EPV5 
LDA«D,DL 


2.0u 
GaD 


1,DuU 

EPV4 
LDAwsAU,DL 
2,Du 

GaD 

EPV3 
EAAsAU, BL 
GAD 
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AND STORE IN INSTRUCTION SEQUENCE 

GET FOURTH ASSIGNED LOCATION FOR VaLUE 

AND STORE IN INSTRUCTION SEQUENCE 

GET AMOUNT OF STATIC TEMP REQUIRED RY PROCEDURE 
AND STORE IN INSTRUCTION SEQUENCE 

GET NEXT INSTRUCTION 

AND ADD TO GENERATED OUTPUT 

GET NEXT INSTRUCTION 

AND ADD TO GENERATED OUTPUT 

PREPARE TO ALLOCATE A 5 WORD TYPE 

GET POINTER TO YYPE TABLE CONTROL WORD IN XR - ¢ 
ALLOCATE SPACE IN THE TYPE TABLE 

GET A POINTER TYPE IN aul 

AND STORE JN TYPE 

AND STORE [N TYPE 

AND STORE JN TYPE 

AND STORE [IN TYPE 

GET LENGTH OF STATIC TEMP REQUIRED IN au 


SUBTRACT LENGTH OF BASE MSCW 

MOVE LENGTH TO al 

ADD SKIP FYPE 

AND STORE JN TYPE 

MAKE TYPE TABLE POINTER RELATIVE 

GET TYPE POINTER IN AU 

AND STORE IN INSTRUCTION SEQUENCE 
GET FALLY WORD TO INSTRUCTION SEQYENCE 
AND ADD SEQUENCE To GENERATED CODE 
GET PROGEDWRE DENOTATIONS#S LL 
TRANSFER IF NOT GLOBAL 

GET AN BAA 0,DL INSTRUCTION 

AND ADD YO GENERATED CODE 

CONTINUE 

GET DELTa LL OF PROCEDURE DENOTATION 
TRANSFER IF NOT THE SURROUNDING RANGE 
GET EAA 0,D INSTRUCTION 

AND ADD TO GENERATED CODE 

CONTINUE 

GET LDA 0,D INSTRUCTION 

MAKE {7 LDA 2.0 

AND ADD YO GENERATED CODE 


SEE IF IN NEXT SURROUNDING RANGE 
TRANSFER IF YES 

GET DA 0,AU ,NSTRUCTION 

MAKE IT LDA 2,AU 

AND ADD ¥O GENERATED CODE 
AND OOP 

GET EAA 0,AU INSTRUCTION 

AND ADD TO GENERATED CODE 


\ 
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3 PASS 3 

023473 023503 2350 00 8468 EPV5 LDA EPDV6 GEY FOLLOWING INSTRUCTION 

023474 017474 7000 00 8169 ¥Sx0 GAD AND ADD TO GENERATED CODE 

023475 000000 71400 90 8470 EPDVX TRA on AND RETURN 

023476 000000 4500 147 8171 EPDVO STZ 0,D 

023477 000000 6350 O00 8172 EPDVi EAA 0. 

023500 000000 0750 97 8173 EPDVS ADA 0,DL 

023501 0090000 7550 17 84174 EPDV2 STA 0,D 

023502 023500 0003 OO 8175 EPDVYT TALLY EPDV3,#-EPDVSe4 

023503 000000 7550 147 8476 EPBV6 STA 0,0 

023504 000000 6350 94 8477 EPDV4 EAA O,1c 

023505 0090000 7550 17 8478 EPBV5 STA 0,D 

023506 023504 OoU3 O06 8179 EPBTT TALLY EPDV4,#eEPDV4e4 

023507 023515 7400 90 8480 EFDE STX0 EPDEX SAVE RETURN 

023510 022017 7000 80 8181 TSX0 TRAD GET LINKED LABEL VALVE FOR INSTRUCTYON 
END OF BINARY CARD 99000405 

023541 000000 6200 03 8182 EAXO 0,AuU GET VALUE IN XR « g 

023512 023504 7400 00 8183 STX0 EPDV4 AND STORE JN INSTRUCTION SEQUENCE 

023513 023506 2350 09 8184 LDA EPpTT GET TALLY WORD FOR SEQUENCE 

023514 017507 7000 00 84185 TSX0 GADL AND ADD 70 GENERATED CODE 

023515 000000 7400 90 8186 EPDEX YRA es AND RETURN 

028516 023547 7400 00 8187 MSCW STXO MSCWX SAVE REYURN 

023517 035234 2260 40 8488 LDX6 ASWORK GET POINTER TO END OF WORKING STACK 

023520 00004 1660 03 8489 $BX6 Whey DU GET POINTER TO LAST BLOCK IN WQRKING STACK 

023524 020454 7000 GO 8190 YSxo FS FORCE PROCEDURE VaLVE TO STACK 

023522 000001 2200 16 8194 LDXx0 1,6 GET ADDRESS ASSIGNED TO PROCEDURE VALUE 

023523 0235541 7400 O00 8192 STX0 MSCWL AND STORE JN INSTRUCTION SEQUENCE 

023524 023555 7490 90 8193 S7X0 MSCW4 AND STORE |[N INSTRUCTION SEQUENCE 

023525 090001 0600 03 8194 ADXo 1,Du GET ADDRESS OF SECOND WORD OF PROCEDURE VALUE 

023526 023552 7400 90 8195 STX0 MSCW2 AND STORE JIN INSTRUCTION SEQUENCE 

023527 023566 7400 00 8496 STX0 MSCW7 AND STORE IN INSTRUCTION SEQUENCE 

023530 023570 7400 90 8497 $TX0 MSCW9 AND STORE [JN INSTRUCTION SEQUENCE 

023531 090004 04600 43 8498 ADXO 1, Du GET ADDRESS OF THIRD WORD OF PROCEDURE VALUE 

023532 023564 7400 90 © 8199 STX0 MSCWS AND STORE JN ENSTRUCTION SEQUENCE 

023533 023565 74090 90 8200 STXO MSCW6 AND STORE IN INSYRUCTION SEQUENCE 

023554 023567 7400 90 8201 STX0 MSCWS8 AND STORE IN INSTRUCTION SEQUENCE 

023535 000035 6270 O00 8202 EAX7 MESMSCW GET NEW MODE OF PROCEDURE VALUE IN xR ~ 7 

023536 000000 4470 16 8203 SX.7 0,6 AND STORE IN PROCEDURE BLOCK 
END QF BINARY CARD 00900406 

023537 017044 2260 00 . 8204 LDX6 LSTMK GET POINTER TO LaST MARK {N STACK 

023540 035214 0660 00 8205 ADX6 TSWORK MAKE 8L.0CK POINTER ABSOLUTE 

023541 000001 2200 46 8206 LDX0 1,6 GET ADDRESS OF LAST MARK JN STACK 

023542 000003 0600 OS 8207 ADXO 4,0 GET ADDRESS OF SAVED S REGISTER 

023543 023550 7400 80 8208 STX0 MSCWO AND STORE IN INSTRUCTION SEQUENCE 

023544 020526 7090 90 8209 TSXo0 STYPE GET TYPE OF STacK AND LINKED POINTER IN au 

023545 023571 2350 00 8210 LDA MSCWT GET FALLY WORD FOR INSTRUCTION SEQUENCE 

023546 017507 7ou0 90 8241 TSX0 GADL AND ADD SEQUENCE TO GENERATED GODE 

023547 000000 7400 90 8212 MSCWX TRA oe AND RETURN 

023550 000000 7460 47 8213 MSCWwO STX $,0,) 

023551 Oo9f000 6210 17 8214 MSCWL EAX1 0,D 


023552 000000 2220 47 8215 MSCW2 |,DX2 0,0 
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END 
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3 
023553 026116 
023554 090000 
023555 do0non0 
023556 027230 
023557 0009000 
0235690 000001 
023564 090000 
023562 000002 
023563 000000 
023564 000003 
END OF BINARY CARD 
023565 000000 
0283566 000000 
023567 0090000 
023579 000000 
023571 023550 
023572 023606 
023573 023663 
023574 017037 
023575 023607 
023576 090002 
023577 023610 
023600 023612 
023601 017507 
023602 017045 
023603 020377 
023604 100000 
023605 090000 
023606 000000 
023607 dg0000 
023610 090000 
023611 025365 
023612 023607 
OF BINARY CARD 
023613 023617 
023614 022006 
023615 023629 
023616 017474 
023617 dOp90000 
023620 000000 
023621 023642 
023622 220017 
023623 017474 
023624 023643 
023625 017474 
023626 035234 
023627 000004 
023630 020204 
023634 023636 
023632 0090010 


17,863 


7oue 
6209 
6350 
0750 
7550 
4500 
2350 
7550 
6350 
7590 


00000407 


7400 
7200 
4400 
4500 
ya22 
7400 
7000 
2200 
7400 
9600 
7400 
2350 
7000 
7270 
7000 
2290 


7450 
7400 
6210 
2220 
7000 


10 


17 
17 
17 
17 
00 
90 
00 
90 
90 
03 
90 
00 
Q0 
00 
80 
05 


46 
00 
17 
47 
00 


0004 90 


00000408 


7400 
7000 
2350 
7000 
7400 
6270 
7400 
2350 
7000 
2350 
7000 
2260 
1660 
7000 
7400 
2360 


90 
50 
00 
00 
00 
12 
00 
Q7 
00 
90 
90 
00 
QS 
00 
00 
07 
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8216 
8217 
8218 
8219 
8220 
8221 
8222 
8223 
8224 
8225 


8226 
8227 
8228 
8229 
8230 
8251 
8252 
8233 
8234 
8235 
8236 
8237 
82358 
8239 
8240 
8241 


8242 
8243 
8244 
8245 
8246 
8247 


8248 
8249 
8250 
8254 
8252 
8253 
8254 
8255 
8256 
9257 
8258 
8259 
8260 
8261 
8262 
8263 


MSCwW4 


MSCW5 


MSCW6 
MSCW7 
MSCW8 
MSCW9 
MSCWT 
ENTER 


ENTX 
ENTO 
ENTY 


ENTT 
EPON 


EPDNX 
EPDNO 
RETN 


TSXO 
EAXO 
EAA 
ADA 
STA 
STZ 
WDA 
STA 
EAA 
STA 


STXO 
LXL0 
$Xi,0 
STZ 
TALLY 
STX0 
TSXO 
LDX0 
STXO 
ADXO 
STX0 
DA 
TSX0 
XL7 
TSX0 
,Dx5 


S*X5 
TRA 
EAX4 
DX2 
TSX0 
TALLY 


STX0 
TSXO 
LDA 
TSX0 
TRA 
EAX 
STX0 
LDA 
T8X0 
LDA 
TSX0 
LDX6 
SBX6 
TSX0 
TRA 
DG 


PASS 3 


REPLGEN 

Ue Al 

0,0 
TSMSCWF,DL 


Qooco QAon cro 


“NN OW ouo TOO 


MSCWO.#eMSCWO od 


0,D 
RSENTER 


ENTh, @*ENTQO CL 


EPDNX 
LBL 
EPDNO 
GAD 

re) 
D0.2 
RETNX 
LOXeD, DL 
GaD 
RETNO 
GAD 
ASWORK 
WL, DU 
MVA 
RET, 
2040.DL 
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SAVE RETURN 

DELETE BOTH STACKS BACK THROUGH MARK 
GET ADDRESS OF mMSCW IN STACK 

AND STORE IN INSTRUCTION SEQUENCE 

GET ADDRESS OF THIRD WORD IN MSCW 

AND STORE §N INSTRUCTION SEQUENCE 

GET TALLY WORD FOR INSTRUCTION SEQUENCE 
AND aDD SEQUENCE TO GENERATED CODE 

GET MODE OF RESULT IN XR w 7 

MAKE A BLOCK FOR THE RESULT OF THE PROCEDURE 
GET FLAGS INDICATING STACKED VALUE 


AND STORE IN NEWLY CREATED 8LOCK 
AND RETURN 


SAVE RETURN 

DEFINE CURRENT aDDRESS aS START OF PROCEDURE CODE 
GET EAX Ds0e2 INSTRUCTION 

AND ADD TO GENERATED Oy*Py? 

AND EX{T 


SAVE REFURN 

GET LDXo o,D COMMAND 

AND ADD TO GENERATED CODE 

GET LOX S,3,0 INSTRUCTION 

AND ADD TO GENERATED OUTPUT 

GET POINTER TO END OF WORKING STACK 

GET POINTER TO LAST BLOCK JN WORKING STACK 
MAKE PROCEDURE BODY VALUE AVAILABLE 
TRANSFER IF VALUE IS IN A REGISTER 

GET DESTINATION ADDRESS AS 0,0 
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END 


END 


O, 95726-72 
3 

023633 009000 
023634 617534 
023635 023640 
023636 600010 
023637 017474 
023640 023644 
OF BINARY CARD 
023641 017474 
023642 c090000 
023643 000003 
023644 025400 
023645 023651 
023646 022006 
023647 017041 
023659 017474 
0236514 000000 
023652 023662 
023653 017044 
023654 035235 
023655 005742 
023656 035234 
023657 035214 
023660 000004 
023661 017044 
023662 0090000 
023663 023673 
023664 021007 
023665 035234 
023666 035214 
OF BINARY CARD 
023667 017044 
023670 023664 
023671 035235 
023672 017044 
023673 090000 
023674 023704 
023675 022241 
023676 000000 
023677 040000 
023700 777777 
023701 049000 
023702 757777 
023703 o90000 
023704 090080 
023705 023720 
023706 021027 
023707 035234 
023710 099004 
023711 Oofn02 
023712 000004 


17,36 


7270 
7900 
7100 
o750 
7000 
2350 


gqgousyy 


7000 
71.00 
2260 
7000 
7400 
7000 


2350 
7000 
7190 
7400 
2200 
7400 
7470 
2200 
1600 
14600 
74v0 
7100 
7400 
7090 
2200 
1600 


0au0Uu4i0 


1009 
6n10 
2200 
7400 
7400 
7400 
7000 
2290 
5050 
6010 
2690 
3650 
7490 
7400 
7400 
7000 
2260 
1660 
2210 
1660 


3 


00 
00 
10 
00 
00 
00 


00 
90 
00 
00 
90 
56 
00 
00 
00 
1) 
00 
00 
90 
00 
00 
00 


90 
OQ 
54 
90 
00 
00 
00 
16 
ek) 
00 
Q5 
05 
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8264 
8265 
8266 
8267 
8268 
8269 


8270 
8271 
8272 
8273 
8274 
8275 


8276 
8277 
8278 
8279 
8260 
8284 
8282 
8283 
8264 
8285 
8286 
8287 
8268 
8289 
8290 
8291 


8292 
- 8293 
8294 
8295 
8296 
8297 
8298 
8299 
8300 
8801 
8302 
83903 
8304 
8305 
8306 
8307 
8308 
8309 
8310 
8311 


RET4 


al 


RE TNX 
RETNO 
RETNA 
DLEN 


DLENX 
PUSH 


PySHX 
POP 
PORY 


PUPX 
TUNTY 


TUNTX 
IDNTE 


IDONT1 


LXL7 
TSX6 
TRA 
ADA 
TSX0 
LDA 


TSX0 
TRA 
L DX 
TSXO 
STXO0 
TSX0 


DA 

TSXxX0 
TRA 

STX0 
LOX0 
STX0 
XED 

OX0 
SBX0 
SRX0 
STX0 
TRA 

STXO0 
TSX0 
DX0 
SBX0 


CMPX) 
INZ 
1, DX0 
STxo 
TRA 
STX0 
TSX0 
LDX5 
CANXS5 
TNZ 
ORX5 
ANX5 
STX5 
TRA 
STX0 
TSxX0 
Dx6 
S8x6 
L OXL 
SRX6 


PASS 3 


0,6 
MOVE 
REY? 
®010,DL 
GAD 
RETNA 


GAD 
oe 
$,3,0 
RERET 
DLENX 
LL 


MAXST 
GAD 

ee 
PUSHX 
 STMK 
ASSTACK,[D 
TSSOVF 
ASWORK 
TSWORK 
Why DU 
 STMK 
He 
FPOPX 
DELV 
ASWORK 
TSWORK 


.STMK 

POP, 
ASSTACK,DI 
LSTMK 

La) 

]DNTX 
JDENT 

Q,6 
BSFD,DU 
$ERROR 
BSFD, DU 
e(eBSFE, DU 
0,6 

+ i 

TDNx 

ASGNE 
ADWORK 

wh anu 

2,6 

Wha 
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GET MODE OF RESULT IN XR » 7 

MOVE RESULT FROmM PROCEDURE TO CALLER 
AND CONTINUE 

ADD 0,0 TO STORE COMMAND 

AND 
GET FSx0 RSRET tNSTRUCTION 
AND 
AND 


ADD TO INSTRUCTION SEQUENCE 
RETURN 


SAVE RETURN 
DEFINE LABEL FOR PARAMETER 


GET GREATEST EXTENT OF STACK 
AND ADD TO GENERATED OUTPUT 
AND EX[T 

SAVE RETURN 

GET POJNTER TO LAST MARK 

AND SAVE IN CONTROL STACK 
CHECK FOR STACK OVERFLOW 

GET POINTER TO END OF WORKING STACK 
MAKE POINTER RELATIVE 

MAKE !7 POINT BELOW MSCW BLOCK 
AND STORE aS NEW LaST MARK 

AND RETURN 


_ SAVE REVURN 


DELETE BLOCK FROM WORKING STACK 
GET POINTER TO FND OF WORKING STACK 
MAKE POINTER RELATIVE 


SEE JF ENOUGH BLOCKS HAVE BEEN DELETED 
TRANSFER IF MORE TO DELETE 

GET OLD VALUE OF LAST MARK 

AND RESFORE IT 

AND EX]T 

SAVE RETURN 

CREATE BLOCK aS FOR JDENTIFIER 

GEY FLAGS FROM BLOCK 

IS OFFSET,LL VALUE 

YES » COMPILER ERROR 

SET OFFSEY,LL JS VALUE BIT 

RESET OFFSET,LL IS REFERENCE TO VALUE BIT 
RESTORE FLAGS IN BLOCK 

AND RETURN 

SAVE RETURN 

ASSIGN VALUE TO DECLARED VARIABLE 

GET POJNTER TO END OF WORK IN XR = 6 

GET POINTER TO LAST BLOCK IN WORKING STacK 
GET ADDRESS WHERE VALUE WAS JUST STORED 
STEP BACK TO NEXT gLOCk 


ADD STQRE VaLUE IN CALLER TO GENERATED CODE 


3 PASS 3 


023713 0Op0001 1910 16 8312 CMPX1 1,6 WAS VALUE FOR THIS HLOCK JUST STORED 
023714 023712 6010 Su 8313 TNZ JONTS TRANSFER tf NOT TO KEEP LOOKING 

END OF BINARY CARD 00000411 
023715 190000 22>0 OS 8314 LDX5 BSFC,DU GET VALUE IS STACKED BIT 
023716 00000 2450 46 8315 ORSX5 U,6 AND SET STACKED BIT IN BLOCK 
023717 021007 7Qo00 OU 8316 TSX0 DELV DELETE VALUE OF ASSIGNATION FROM STACK 
023720 000000 7100 AN 8317 IUNX TRA oe AND RETURN 
023721 6090000 2350 97 8348 ISNT LDA TZE,DL GET TRANSFER IF FALSE COMMAND FOR ISNT 
023722 023724 7400 OU 8319 YRA JSs AND CONTINUE 
023723 6091000 2350 97 8320 Io LDA TNZ,DL GET TRANSFER IF FaLSE COMMAND FOR [5S 
023724 023755 5510 40 83241 135 STBA 1S2,10 STORE COMMAND IN INSTRUCTION SEQUENCE 
023725 023750 7400 Qo 8322 STXO }SXx SAVE RETURN 
023726 035234 2260 OV 8323 LDX6 ASWORK GET POINTER TO END OF WORKING STACK 
023727 0090004 1660 43 83824 SBX6 wh ,»DU GET POINTER TO LaST BLOCK IN WOROING STack 
023750 020066 70UN0 40 8325 TSX0 MNA GET ANDRESS OF VALUE 
023751 0235751 7510 71 8326 STCA 1S0,71 AND STORE JN INSTRUCTION SEQUENCE 
023752 000004 1660 Q3 8327 SBX6 WL, DU GET POJNTER TO SECOND TO TOP BLOCK 
023753 020066 7000 90 8328 TSX0 MNA GET ADDRESS OF vALUE 
023734 023753 7510 71 8329 STCA 1S1,74 AND STORE JN INSTRUCTION SEQUENCE 
0237355 021007 7000 90 8330 TSX0 DELV DELETE FIRST BLOCK 
023756 021007 7000 00 8331 TSX0 DELV DELETE SECOND BLOCK 
023757 000003 6270 00 8332 EAX7 MSBOOL GET MODE OF RESULT OF IDENTITY IN XR © 9 
023740 020377 70y0 90 8333 TSX0 MBiLK AND MAKE A BLOCK FOR IT 
023741 017642 7000 40 8334 7SX0 GQ ALLOCATE O REGISTER 
023742 004000 2250 65 8335 0x5 BSFG,DU | GET VALVE IS IN REGISTER FLAG 

END OF BINARY CARD 00000412 
023743 000000 7450 46 8336 STX5 0,6 AND STORE [IN BLOCK 
023744 756000 2360 07 8337 0Q STQO,DL GET STORE REGISTER COMMAND 
023745 000003 7560 146 8338 STQ 3,6 AND STORE [N BLOCK 
023746 023764 2350 00 8339 LDA [ST GET TALLY WORD FOR INSTRUCTION SEQUENCE 
023747 047507 7000 OO 8340 TSX0 GADL AND ADD INSTRUCTION SEQUENCE TO GENERATED OUTPUT 
023750 0090000 7400 00 8344 15K TRA * AND RETURN 
023754 090000 6200 00 8342 IS0 EAXO 0 
023752 090002 7400 04 8343 STX0 2,1c 
023753 000000 6200 00 8344 154 —&AXO 0 
023754 090000 1000 03 8345 CMPXO0 0,Vu 
023755 090003 0000 04 8346 152 ARG 3,1C 
023756 090001 2360 97 8347 DQ 49DL 
023757 090002 71400 94 8348 TRA 2.1c 
023760 090000 2360 97 8349 0a 0.0L 
023764 025751 0011 00 8350 1s? TALLY 180, #1 Soe4 
023762 024000 7400 00 8354 CONF STXo CONFX SAVE RETURN 
023763 017642 70u0 AO 8352 TSx0 GO ALLOCATE © REGISTER 
023764 035234 2260 00 8353 ,DX6 ASWORK GET POJNTER TO END OF WORKING STACK 
023765 000004 1660 4&3 8354 SBX6 WLsDU GET POINTER TO LAST BLOCK IN WORKING STACK 
023766 004000 2250 938 8355 0X5 BSFQG,DU GET FLAG FOR VALUE IN REGISTER 
023767 000000 7450 16 8356 STX5 056 AND STORE IN BLOCK 
023770 756000 2350 97 8357 LDA STQ,DL GET STORE REGISTER COMMAND 


END OF BINARY CARD 00000413 
023774 000003 7550 46 8358 STA 3,6 AND STORE IN BLOCK 


01557 


END 


END 


3 
023772 017045 
023773 022103 
023774 090000 
023775 024001 
023776 024006 
023777 017507 
024000 000000 
024001 090000 
024002 0090003 
024003 000001 
024004 0090002 
024005 000000 
024006 0240014 
024007 024024 
024040 035234 
024011 000004 
024042 020204 
024013 777777 
024014 024025 
024015 000004 
024016 000001 


OF BINARY CARD 


024017 024027 
024020 024034 
024921 047507 
024022 021007 
024023 021007 
024024 000000 
024025 0090000 
024026 027240 
024027 000000 
024030 000000 
024031 024025 
024032 024056 
024033 035234 
024034 090004 
024035 000000 
024036 010630 
024037 000004 
024040 020066 
024041 024057 
024042 035234 
024043 O00040 
024044 000001 
OF BINARY CARD 
024045 777777 
024046 220017 
024047 017474 
024050 0090001 
0249051 0n0010 


17,868 


7270 99 
7000 00 
6200 01 
7400 00 
2350 00 
7000 90 
7400 00 
1000 93 
6010 94 
2360 97 
7400 04 
2360 Q7 
QO05 00 
7400 90 
2260 00 
1660 03 
7000 G0 
7400 Q0 
7510 74 
1660 @3 
2200 46 
o0ng0u414 
7400 OO 
2350 00 
7000 G0 
7000 60 
7900 90 
7400 40 
6350 00 
0750 07 
7550 47 
7200 O14 
0005 00 
74900 00 
2260 00 
1660 03 
7270 16 
7000 OY 
2270 17 
7900 O@ 
7550 00 
2260 00 
1660 Q3 
2350 16 
00000415 
3750 OS 
0750 Q7 
7000 00 
6350 09 
Q759 O07 
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8359 
8360 
8361 
8362 
8363 
8364 
8365 
8366 
8367 
8368 
8369 
8370 
8371 
8372 
8373 
8374 
8375 
8376 
8377 
8378 
8379 


8380 
B38t 
8382 
83835 
8384 
8385 
8386 
8387 
8388 
8389 
8390 
8394 
8392 
8393 
8394 
8395 
8396 
8397 
8398 
8399 
8400 
8401 


8402 
8403 
8404 
8405 
8406 


CONF X 
CONF 4 


CONF T 
CONE 


CUNEX 
CUNEO 


CONEY 


CUNET 
CASGN 


LXL7 
TSX0 
EAX0 
S$7X0 
LDA 
TSX0 
TRA 
CMPXO 
TNZ 
DQ 
TRA 
2Q 
TALLY 
STXO 
L.DX6 
SBX6 
TSXO 
TRA 
STCA 
SBX6 
LDXxo 


STXO 
LDA 
TSXo 
YSxo 
¥Sxo0 
TRA 
EAA 
ADA 
STA 
LxLo 
TALLY 
STX0 
,DX6 
$8 X6 
LXL7 
¥SX0 
0X7 
TSX0 
STA 
,DX6 
SBX6 
LDA 


ANA 
ADA 
¥SXO 
EAA 
ADA 


PASS 3 


PARAM 
MTL 
Q,Au 
CONFL 
CONF T 
GADL 
en 
0,DL 
3,Jc 
1,DL 
2,1C 
O,DL 


CONF 4, = CONF i +4 


CONRX 
ASWCRK 
WL DU 
MVA 
SERROR 
CONEQ,74 
Whe DU 
1,6 


CONEY 
CONET 
GADL 
DELV 
DELV 
* 

0 


TSPTRT,BL 


0,D 
0,AU 


CONEOQ, #=CONEQ +4 


CASX 
ASWORK 
WL nd 
0,6 
ASXFER 
1,7 
MNA 
CAST 
ASWORK 
2aeaW, , DU 
1,6 


“1,0U 
LOX*#D, CL 
GAD 

1 
zOin,Dt 
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GET DESIRED MODF IN XR © 7 

GET TYPE ADDRESS IN AU 

GET TYPE ADDRESS IN XR # 0 

AND STORE JN {INSTRUCTION SEQUENCE 

GET TALLY WORD FOR INSTRUCTION SEQUENCE 
AND ADD TO GENERATED CODE 

AND RETURN 


SAVE RETURN 

GET POINTER TO END OF WORKING STACK IN XR - 6 
GET POINTER TO LAST BLOCK IN WORKING STacK 
MAKE RHS VALUE AVAILABLE 

ERROR = UNJ TED VALUE CANNOT BE IN a REGISTER 
STORE ADDRESS AND TAG IN INSTRUCTION SEQUENCE 
GET POINTER TO REFERENCE BLOCK 

GET ADDRESS OF REFERENCE WORD 


AND STORE IN ENSTRUCTION SEQUENCE 

GET TALLY WORD FOR INSTRUCTION SEQUENCE 

AND aDD INSTRUCTION SEQUENCE TO GENERATED CODE 
DELETE RHS BLOCK 

DELETE REFERENCE BLOCK 

AND RETURN 


SAVE REYURN 

GET POINTER TO END OF WORKING STACK 
GET POJNTER TO LASK BLOCK 1N WORKING STack 
GET MODE OF DESTINATION 

MAKE MODE POINTER ABSOLUTE 

GET MODE OF SOURCE IN XR = 7 

MAKE NAME AVAILABLE FOR ASSIGNING TO 
SAVE TO ABBRESS 

GET POINTER TO END OF WORKING STACK 
GET POJNTER TO REFERENCE BLOCK 

GET ADDRESS ASSIGNED FOR REFERENCE 


ZERO OUT AL 

CONSTRUCT LDXO REFERENCE,D INSTRUCTION 

AND ADD TO OUTPUT CODE 

GET RELATIVE ADDRESS OF VALUE OF VALUE OF UNION 
ADD XR » 0 MODIFICATION 


04557 


END 


END 


O01 U5R26~72 


3 
024052 024057 
024093 017531 
024054 021007 
024055 421007 
024056 Uon000 
024057 090000 
024060 024077 
024061 017045 
024062 0620377 
024063 190000 
024064 oOg9n000 
024065 090001 
024066 090000 
024067 017037 
024070 024077 
024071 Oo0000 
024072 450017 
OF BINARY CARD 
024073 047474 
024074 090001 
024075 047037 
024076 024071 
024077 000000 
024100 024103 
024101 023516 
024102 023572 
024103 Op90000 
024104 024450 
024105 033234 
024106 0090004 
0241407 090000 
024110 010630 
024414 777777 
024112 024453 
024113 O00000 
024114 024140 
0241415 020204 
024116 0241325 
024117 oO00001 
024120 000001 
OF BINARY CARD 
024121 000017 
024122 000000 
0241423 017547 
024424 024433 
024425 024451 
024126 000001 
024427 000001 
024130 000017 


17,3053 


230 OO 

70u0 OY 

7ouo OQ 

7N00 OQ 

71400 QO 
do000u0 

7400 OV 
72/0 Ov 
7000 90 
2250 OS 
7450 16 
2350 16 
6220 01 
1020 OV 
6000 Ou 
6350 12 
0750 07 
00000416 
7000 60 
0620 a3 
4020 OY 
6010 00 
7100 90 


024060 


7400 90 
7000 00 
7000 OO 
7400 90 
7400 00 
2260 00 
1660 03 
7270 46 
7000 90 
7200 47 
7400 00 
7200 47 
7400 00 
7000 00 
7400 00 
2360 46 
6360 02 
00000417 
0760 07 
7270 16 
7000 00 
7100 90 
7550 00 
2350 16 
6350 01 
0750 97 
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8407 
8408 
8409 
8410 
8411 
8412 
8418 
8414 
8415 
8416 
8417 
8418 
8419 
8420 
8421 
8422 
8423 


8424 
8425 
8426 
8427 
8428 
8429 
8430 
84314 
8432 
8433 
8434 
8435 
8436 
8437 
8438 
8439 
8440 
B441 
8442 
8443 
8444 
8445 
8446 


8447 
8448 
8449 
8450 
8454 
8452 
8453 
8454 


CASX 
CAST 
SKIP 


SKIPS 


SKIPX 
NUL 
DEPR 


DERRX 
UNION 


UNNY 


Lba 
TSXO 
TSX0 
TSXO 
TRA 
ZERO 
STX0 
LXL7 
TSXO 
LDXS 
STX5 
LDA 
EAX2 
CMPX2 
TZE 
EAA 
ADA 


TSXO 
ADX2 
CMPX2 
TNZ 
TRA 
EQU 
STXO 
TSXO 
TSXO 
TRA 
STX0 
LDX6 
SBX6 
LXi.7 
TSX0 
LXLO 
STX0 
Lxk0 
STXO 
TSX0 
TRA 
Lda 
EAQ 


ADQ 
XL 7 
TSX0 
TRA 
STA 
LDA 
EAA 
ADA 


PASS 3 


CAST 
MOVE 
DELV 
DELV 


ay 


SKI PX 
PARAM 
MBLK 
bSFe,DY 
0,6 

1,6 

0, AU 

SP 

SK [PX 
0,2 
STZ4D,DL 


GAD 
1,DuU 
SP 
SKI PL 
oe 
SKIP 
DEPRX 
MSCW 
ENTER 
on 
UNX 
ASWORK 
WLADU 
0.6 
ASXFER 
Le 
UNL 
0,7 
UNN3 
MVA 
UNN« 


GE] 


POINTER TO DESTINATION 


DO ASSIGNMENT 


DELETE PESTINATYTON FROM STACK 


PAGE 


DELETE REFERENCE BLOCK FROM STACK 
AND RETURN 


SAVE RETURN 


GET MODE OF SKIP 


MAKE 4 NEW BLOCK IN WORKING ST,CK 


GET STACKED VALUE BIT 
AND STORE IN SKIP VALUE BLOCK 


GET ASSIGNED STACK ADDRESS FOR VALUE 


SAVE 


SEE IF ANY WORDS To TRANSFER 

TRANSFER {$F NO WORDS TO TRANSFER 

GET ADDRESS OF NEXT WORD OF VALUE IN aU 
GET STZ STACK,D INSTRUCTION IN A 


AND ADD YO GENERATED CODE 

STEP TO NEXT WORD OF VALUE 

SEE JF BEYOND VALUE 

TRANSFER {Ff MORE WORDS TO STORE 


IN XR w 2 


AND RETURN 


NIL [5 & SINGLE ZERO WORD 


SAVE RETURN 
MARK THE STACK FOR PROCEDURE ENTRY 


AND ENTER PROCEDURE 


AND RETURN 
SAVE RETURN 
GET POJNTER TO END OF WORKING STACK 
GET POINTER TO LAST BLOCK IN WORK 


GET MOD@ OF VALUE TO BE UNITED 
MAKE MODE POINTER UNIQUE AND ABSOLUTE 
GET LENGTH OF VALUE 


AND STORE IN INSTRUCTION SEQUENCE 


GET TYPE OF VALUE 
SAVE POINTER TO TYPE TABLE ENTRY 


MAKE VALUE TO BE UNITED AVAILABLE 
TRANSFER IF VALUE IS IN A REGISTER 
GET ADDRESS OF VALWE IN STack IN Quy 


GET NEW LOCATION OF VaLUE IN QU 


ADD D REGISTER MODIFICATION 
GET MODE OF VALUE TO BE MOVED 


192 


MOVE VALUE TO STACK LEAVING ROOM FOR HEADER 
AND CONFINVE 


SAVE STORE COMMAND 

GET ADDRESS IN STack FOR VALUE 
GET ADDRESS TO MOVE ADDRESS TO 
ADD D REGISTER MODIFICATION 


01557 


END 


END 


04 O5r260e72 


3 
024151 024154 
024452 017474 
024453 021007 
024134 047045 
024435 v2N377 
024456 000001 
02414357 0241454 
024140 090000 
024141 922110 
024142 090000 
024143 024152 
024144 024455 
024145 047507 
024146 100000 
OF BINARY CARD 
024147 090000 
024150 090000 
024151 090000 
0241452 090000 
0241453 0090000 
0241454 000000 
024155 024152 
024456 090009 
0241457 024211 
024160 0417045 
024161 010630 
024462 777777 
0241563 090022 
024164 000001 
024165 090000 
024166 047091 
024167 0241471 
024170 000001 
024171 000000 
024472 024212 
024473 035234 
024474 000004 
OF BINARY CARD 
024175 020454 
024176 024212 
024177 024174 
024200 090004 
024201 017037 
024202 035234 
024203 035234 
024204 024202 
024205 047045 
024206 020377 
024207 400000 
024210 090000 


17,863 


0750 
7000 
7000 
7270 
79U0 
2200 
7400 
2210 
7000 
6200 
7400 
2350 
7000 
22290 


00000418 


7450 
71400 


00 
90 
Og 
00 
90 
46 
90 
035 
00 
O14 
00 
00 
50 
QS 


16 
00 


000000 


2350 
0750 
7550 
004 
7400 
7400 
7270 
7000 
2350 
7740 
1750 
2200 
1000 
6040 
1750 
5310 
7550 
2260 
1660 


00000419 


7000 
0540 
6040 
2200 
7490 
0110 
1060 
6010 
7270 
70yN0 
2250 
74590 


07 
935 
47 
90 
10 


00 
00 
00 
16 
00 
54 
00 
00 
00 
00 
05 
16 
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8455 
8456 
8457 
8458 
8459 
8460 
84614 
8462 
8463 
8464 
8465 
8466 
8467 
8468 


8469 
8470 
8471 
8472 
8473 
8474 
8475 
8476 
8477 
8478 
8479 
8480 
8464 
8482 
8483 
8484 
8485 
8486 
8487 
8488 
8489 
8490 


8491 
8492 
8493 
8494 
8495 
8496 
8497 
8498 
8499 
8500 
8501 
8502 


UNND 


UNNS 


UN 
UNNT 
UNO 
UNG 
UN2 
UNT 
DI SP 
EDISP 


DISPO 


DISPL 


DISP2 


ADA 

TSXO 
TSX0 
LXL7 
¥Sx0 
L.DX0 
STXO 
LDX4 
TSXO 
EAXO 
STXO 
LDA 

TSX0 
LDX5 


STX5 
TRA 
ZERO 
LDA 
ADA 
STA 
TALLY 
TRA 
STX0 
XL7 
TSX0 
LDA 
ARL 
SBA 
LDXO 
CMPX0 
TNZ 
SBA 
NEG 
STA 
LDX6 
SBX6 


TSXx0 
AOS 
NZ 
0x0 
STX0 
NOP 
CMPX6 
TNZ 
LXL7 
TSX0 
LOx5 
STX5 


PASS 3 


UNNT 
GAD 
DELV 
PARAM 
MBLK 
1,6 
UN2 
oe, DU 
Th 
0,AU 
UNQ 
UNT 
GADL 
BSFe,Du 


0,6 


+n 


0,01 
0,Du 
0,D 


UNO, #mUNQe4 


0.90 
DISPX 
PARAM 
ASXFER 
“4,7 
18 
1,0L 
0,7 
MSPROC,DU 
DISPO 
1,DL 


DISPC 
AZWORK 


WL ,DU 


FS 
DISPC 
DISPy 
1,6 

SP 
ASWORK, DI 
ASWORK 
DisP2 
PARAM 
MBLK 
BSFC,DU 
U.6 
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ADD STORE COMMaND 

AND ADD 70 GENERATED CODE 

DELETE UNUNITED VALUE BLOCK FROM WORKING STACK 
GET MODE OF UNITED VALUE IN XR w 7 

AND MAKE A BLOCK FOR THE UNITED VALUE 
GET NEW VALUE ADDRESS IN XR e g 

AND STORE JN INSTRUCTION SEQUENCE 

GET TYPE OF VALUE TO BE UNITED IN XR w 4 
GET TYPE ADDRESS IN AU 

GET FYPE ADDRESS IN XR » O 

AND STORE IN INSTRUCTION SEQUENCE 

GET TALLY WORD TO INSTRUCTION SEQUENCE 
AND ADD SEQUENCE TO GENERATED GODE 

GET VALUE 3S STACKED FLAG 


AND STORE IN BLOCK 
AND RETURN 


DISPLAY HEADER 1S TREATED AS A NOP 

SAVE RETURN 

GET MODE OF DISPLAYED VALUE 

MAKE MODE WNJQUE AND ABSOLUTE 

GET NUMBER OF FIELDS « 4 EN AU 

MOVE NUMBER OF FIELDS TO aL 

GET NUMBER OF FYELDE IN A 

GET TYPE OF MODE IN XR = 9 

IS If A PROCEDURE MODE 

TRANSFER IF NOT PROCEDURE 

DECREMENT COUNT SQ NOT TO INCLUDE RESULT 
GET MINUS NUMBER OF FIELDS IN A 

AND STORE COUNT JN MEMORY 

GET POINTER TO THE END OF THE WORKING STACK 
GET POINTER TO NEXT BLOCK 


FORCE VALUE TO THE STACK 

DECREMENT FIELD COUNT 

TRANSFER {F MORE FIELDS TO FORCE TO STack 
GEF LOCATION OF FIRST FIELD 

AND STORE JN STACK POINTER 

DELETE a WORD FROM THE WORKING STack 
CHECK TO SEE IF ENOUGH HAS BEEN DELETED 
TRANSFER 1F MORE TO DELETE 

GEY MODE OF DISPLAYED vALUE 

AND MAKE & BLOCK FOR DISPLAYED VALUE 
GET A STACKED BIT 

AND STORE AS FLAGS FOR RLOCK 


01557 01 U5"26-72 17,863 ALGNL68 PAGE 194 


3 PASS 3 
024211 000000 71u0 Qu 8503 DISPxX TRA +t AND EX|T 
024212 v000ND OdoVoL) 8504 DISPC ZERO 
024213 024221 7100 90 8505 VLWe TRA Vv LOWER BOUND IN TRIMMER 
024214 0242241 7109 OV 8506 VUPB TRA Vv UPPER BOUND IN TRIMMER 
024215 024221 7100 Oo 8507 VNLWB TRA Vv NEW LOWER BOUND JN TRIMMER 
024216 024221 7400 00 8508 VS&CT TRA V SUBSCRIPT 
024217 024230 7400 90 8509 VEPTY STXa Vx SAVE RETURN 
024220 024225 7400 00 8510 TRA V4 GO STORE EMPTY TRIMMER FLAG 
024221 024230 7400 90 8511 V STX9 VX SAVE RETURN 
024222 035234 2260 00 8512 LDX6 AFWORK GET POINTER TO END OF WCRKING STACK 
END OF BINARY CARD Q0U00U420 
024223 000004 1660 05 8513 SBX6 WL an GET POJNTER TO LAST BLOCK IN WORKING STACK 
024224 020451 7n00 O09 8514 TSXO FS FORCE VALUE TO STACK 
024225 017045 2350 oY 8545 vi LDA PARAM GET COMMAND FROM PaSS 2 
024226 035235 7550 56 8516 STA ASSTACK, ID AND STORE JN CONTROL STACK 
024227 095742 7470 00 8547 XED TSSCVF CHECK FOR STACK OVERFLOW 
024230 000000 7409 00 85148 VX TRA on AND RETURN 
024231 024243 7400 00 8819 SUB SYX0 SUBX SAVE REFURN 
024232 024533 2350 00 8520 LDA VMARK GET OLD SLICE MARK 
024233 035235 7550 56 8521 STA ASSTACK, ID AND STORE IN CONTROL STACK 
024234 005742 7470 a0 8522 XED TSSOVE CHECK FOR STACK OVERFLOk 
024255 035235 2200 00 8523 DX0 ASSTACK GET POINTER YO END OF CENTROL STACK 
024236 035215 1600 00 8524 SBX0 TSSTACK MAKE POINTER RELATIVE 
024237 024533 7400 00 8525 STXO VMARK . AND STORE IN SLICE MARK 
024240 035234 2200 60 8826 LDX0 ASWORK GET POINTER TO END OF WORKING STACK 
024241 035214 4600 00 8527 SBX0 TSWORK MAKE POYNTER RELATIVE 
024242 024533 4400 00 8528 SXLO VMARK AND STORE IN SLICE MARK 
024243 000000 7100 90 8529 SUBX TRA on AND EX] 
024244 8530 RBUS EQU * 
024244 024475 74)0 50 8531 BUS $Txo BusxX SAVE RETURN 
024245 024533 7260 00 8532 LXL.6 VMARK GET POINTER TO WORKING STACK WHEN MARKED 
024246 035214 0660 90 8533 ADX6 TSWORK MAKE POINTER ABSOLUTE 
024247 000004 1660 03 8834 SBX6 WL DU GET POINTER TO ARRAY DESCRIPTOR BLOCK 
024250 020204 7000 00 8535 TSX0 MVA MAKE DESCRIPTOR VALUE AVAILABLE 
END OF BINARY CARD 000004214 
0242514 777777 7400 90 8536 TRA $ERROR COMPILER ERROR - CANNOT BE IN ACCUMULATOR 
024252 024476 7810 74 8537 STCA BUS, ,71 STORE JN INSTRUCTION SEQUENCE 
024253 024500 7510 74 8538 STCA BUI,74 STORE JN INSTRUCTION SEQUENCE 
024254 000001 2210 46 8539 WOX4 1416 GET POJNTER JO FLAG IN DESCRIPTOR 
024255 024534 7410 00 8540 STX4 BUSC AND SAVE 
024256 000001 0610 93 8541 ADX4 4,DU GET POINTER TO FIRST QUAD 
024257 024503 7410 00 8542 STX4 BUI, STORE IN INSTRUCTION SEQUENCE 
024260 0245140 7410 00 8543 STX4 BUS{3 STORE IN INSTRUCTION SECQUENCE 
024264 000001 0640 95 8544 ADX4 1,0U GET POINTER TO FIRST QUAD 
024262 024536 7440 00 8545 STX4 NFF INITIALIZE NEW QUAD POINTER 
024263 000001 2210 03 8546 LDX4 1, DU GET RELATIVE OLN QUAD POINTER 
024264 024535 7410 00 8547 STX4 OFF AND INITIALIZE OLD QUAD POINTER 
024265 024533 2350 00 8548 LDA VMARK GET CONTROL AND WORKING STACK MARKS 
024266 024537 7550 00 8549 STA VM4 AND SAVE 


024267 035235 4500 56 8550 STZ ASSTACK, 1D MARK END OF CONTROL STACK WITH A ZERO 


04557 


END 


END 


04 05"260e72 
3 

U24270 005742 
024271 024504 
024272 047507 
024273 024540 
024274 024544 
024275 024542 
U24276 024543 
OF BINARY CARD 
024277 024544 
024300 024537 
024301 035214 
024302 024537 
024303 035245 
024304 O0gn000 
024305 024452 
024306 0416713 
024307 024343 
024310 0243543 
024311 024544 
024342 024340 
024313 016677 
0243144 0243209 
024315 024540 
024316 024542 
024317 024334 
024320 01416702 
024321 024324 
024322 024542 
024323 024334 
024324 046705 
OF BINARY CARD 
024325 024330 
024326 024543 
024327 024334 
024330 016710 
024331 777777 
024332 024544 
024333 024334 
024334 OgnooL 
024355 090000 
024336 000000 
024337 000004 
024340 09not1 
024344 777777 
024342 777777 
024343 090000 
024344 0243n4 
024345 035245 
024346 024537 
(24347 035214 


17,863 


7470 0Q 
2350 00 
7000 OQ 
45090 00 
4500 00 
4500 00 
4500 00 
Q0000422 
4500 00 
7260 00 
0600 90 
2210 90 
0610 09 
2200 £4 
6n00 00 
10Uu0 06 
6010 QQ 
6010 960 
7500 80 
7400 00 
10un 43 
6010 90 
7500 90 
6200 00 
7400 O00 
dooc as 
6010 90 
62090 00 
7400 00 
4ou0 O38 
00000423 
6010 00 
6200 90 
7400 90 
1000 03 
6010 00 
6200 90 
7400 O00 
2350 46 
6350 Of 
7550 40 
Q660 O38 
04619 03 


2360 O38 


2350 ¢1 
21410 41 
6000 00 
1610 00 
7410 OU 
1660 00 


ALGOL68 


8551 
8552 
8553 
8554 
8555 
8556 
8557 


8558 
8559 
8560 
8561 
8562 
8563 
8364 
8565 
8566 
8567 
8568 
8569 
8570 
8571 
8572 
8573 
8574 
8575 
8576 
8577 
8578 
8379 


8580 
8584 
8582 
8883 
8584 
8585 
8586 
8567 
8588 
8589 
8590 
8591 
8592 
8593 
8594 
8595 
8596 
8597 
8598 


BUS1 


BUS? 


BUS3 


BUS4 


BUS5 


BUS6 


BUS7 


BUSS 


XED 
LDA 
TSxX0 
STZ 
STZ 
STZ 
STZ 


sfZ 
LXL6 
ADX6 
DX4 
ADX4 
LDXo 
TZE 
CMPXQ 
TNZ 
TNZ 
stc2 
TRA 
CMPXQ 
TNZ 
STtc2 
EaXo 
TRA 
CMPXQ 
TNZ 
EAXO 
TRA 
CMPXQ 


TNZ 
EAXO 
TRA 
CMPXQ 
TNZ 
EAXO 
TRA 
LDA 
EAA 
STA 
ADX6 
ADX4 
LDQ 
LDA 
CMK 
TZE 
SBX1 
STX41 
SBX6 


PASS 3 


TSSOVF 
BUSTO 
GADL 
BUSF 
BUSE 
BLWB 
BUPR 


BNLWE 
VM4 
TEWORK 
VMy 
TESTACK 
Ved 
BULA 


OSVEPTY,DU 


BUSS 
BUS3 
BUSE 
BUS8 


OSVSBCT,DU 


BUS4 
BUSF 
BL WB 
BUS7 


OSVLWB,BY 


BUSS 
BLWB 
BbUS7 


OSVUPB, BU 


BUS6 
BUPR 
BUS7 


QSVNLWB,DU 


ERROR 
BNLWB 
BUS7 
1,6 
0,AU 
0.0 
Wh» DU 
1,Du 
74,1U 
wtad 
0,1 
BUS? 
TSSTACK 
VM1L 
TEWORK 
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CHECK FOR STACK OVERFLOW 

GET INITIAL SLICE CODE TALLY WORD 
AND ADD INDICATED CODE TO OUTPUT 
RESET SUBSCRIPT FLAG 

RESET EMPTY FLAG 

RESET LOWER BOUND 

RESET UPPER BOUND 


RESET NEW LOWER BOUND 
GET CURRENT PLACE IN WORKING STACK 
MAKE POINTER ABSOLUTE 
GET CURRENT PLACE IN CONTROL STACK 
MAKE POINTER ABSOLUTE 


495 


GET TYPE OF NEXT ENTRY FROM CONTROL STACK 


TRANSFER IF NO MORE JN CONTROL STack 
IS IT AN EMPTY TYPE 

TTRANSFER [F NOT 

TRANSFER IF NOT 

SET EMPTY FLAG 

AND GO TO END CHECK 

IS 1f¥ A SUBSCRIPT 

TRANSFER IF NOT 

SET SUBSCRIPT FLAG 

GET POINTER TO LOWER BOUND STORAGE 
AND GO STORE SUBSCRIPT 

1S If A LOWER BOUND 

TRANSFER !F NOT 

GET POINTER TO LOWER BOUND STORAGE 
AND GO STORE LOWER BOUND 

1S IT AN URPER ROUND 


TRANSFER IF NOT 

GET POINTER TO UPPER BOUND STORAGE 

AND GO STORE UPPER BOUND 

IS IT A NEW LOWER BOUND 

NO = COMPILER ERROR 

GET POINTER TO NEW LOWER BOUND STORAGE 
AND GO STORE NEW LOWER BOUND 

GET ADDRESS OF QUANTITY 

ZERO OUT Al 

AND STORE IN INDICATED STORAGE LOCATION 
STEP TO NEXT BLOCK IN WORKING STACK 
STEP TO NEXT WORD IN CONTROL STACK 

MASK OUT AW 

GET WORB JUST PROCESSED 

IS NEXT WORD IN SAME SUBSCRIPT POS]TION 
YES » TRANSFER TO PICK IT UP 

MAKE CONTROL STACK POINTER RELATIVE 

AND SAVE 

MAKE WORKING STACK POINTER RELATIVE 


01557 U1 J5"26-72 
3 
024350 024537 
0243514 024535 
024352 024506 
END OF BINARY CARD 
024353 024513 
024354 024521 
024355 d000%1 
024356 024512 
024357 024523 
024360 0090001 
024364 024507 
024362 024526 
024363 000001 
024364 024530 
024365 024536 
024366 Uu24517 
024367 024522 
024370 000001 
024371 024515 
024372 024524 
024373 000001 
024374 024527 
024375 000004 
024376 024534 
024377 024542 
024400 024404 
END OF BINARY CARD 
024401 090017 
024402 024505 
024403 024513 
024404 024543 
024405 024410 
024406 000047 
024407 024542 
024419 024544 
024411 024414 
024412 000017 
0244143 024416 
024444 000001 
0244145 0090007 
024416 024514 
024447 024516 
024429 60024544 
024421 024439 
024422 024535 
024423 024536 
024424 024445 
024425 024525 
024426 047507 


END OF BINARY CARD 


17,363 


4460 090 
2350 Ov 
7510 70 
00000424 
7540 74 
7549 70 
0750 OS 
7810 714 
7840 79 
0750 OS 
7540 70 
7510 %9 
0790 03 
7540 29 
2390 QQ 
7510 79 
75140 7Q 
Q750 O03 
7540 7y 
7540 70 
0750 OS 
7540 79 
0750 93 
7540 79 
2350 90 
6000 QQ 
00Qg00425 
0750 07 
7540 79 
zeae 74 
2350 00 
6000 0Q 
0750 97 
7330 74 
2390 00 
6000 00 
0750 97 
74090 90 
2350 O35 
0790 97 
7510 74 
7540 72 
2340 00 
6000 00 
2390 00 
4450 00 
6000 90 
2350 00 
7000 QQ 
00000426 


ALGOL68 


8599 
8600 
8501 


8602 
8403 
84604 
8405 
8606 
8607 
84698 
8609 
8610 
8611 
8612 
8643 
8614 
8615 
8616 
8417 
8618 
84619 
8620 
8621 
8622 
8628 


8624 
8625 
8626 
8627 
8628 
8429 
8430 
8634 
84632 
8633 
8634 
8435 
8636 
8637 
8638 
8639 
8640 
8644 
8442 
8643 
8644 
8645 


BUS9 


BUS9 


Budd 
BUeo 


SXL6 
LDA 
STCA 


STCA 
STCA 
ADA 
STCA 
STCA 
ADA 
STCA 
STCA 
ADA 
STCA 
LDA 
STCA 
STCA 
ADA 
STCA 
STCA 
ADA 
STCA 
ADA 
STCA 
LDA 
TZE 


ADA 
STCA 
STCA 
LDA 
TZE 
ADA 
STCA 
LDA 
TZE 
ADA 
TRA 
LDA 
ADA 
STCA 
STCA 
SZN 
TZE 
LDA 
CMPA 
TZE 
LDA 
TSXo 


PASS 3 


ve. 
OFF 
BUSI1,70 


BUSI5,74 
BUS10,79 
1, DU 
BUS14,74 
BUS¢2,70 
1,DU 
BUS!2,70 
BUS4¢4,70 
1,0uU 
BUS16,70 
NFF 
BUS19,76 
BUS41,70 
1,00 
BUS!7,70 
BUS4¢3,70 
1,0 


D,OL 
BUSTO,76 
BUSI5,7¢ 
8UPB 
BULO 
D»DL 
BUS14,7¢ 
BNLWB 
BU44 
DOL 
BU42 
1,.Du 
DL»Dh 
BUSI6,7¢ 
BUS18,7¢ 
BUSE 
BU13 

OFF 

NFF 

BUL6 
BUSTS 
GADL 


AND SAVE 
GET POINTER TO LOWER BOUND 
STORE JN INSTRUCTION SEQUENCE 


STORE IN INSTRUCTION SEQUENCE 
STORE IN INSTRUCTION SEQUENCE 
GET POINTER TO UPPER BOUND 
STORE IN INSTRUCTION SEQUENCE 
STORE JIN INSTRUCTION SEQUENCE 
GET POINTER TO STRIDE 

STORE IN INSTRUCTION SEQUENCE 
STORE IN INSTRUCTION SEQUENCE 
GET POJNTER TO STATES 

STORE IN INSTRUGTION SEQUENCE 


GET POJNTER TO CALCULATED LOWER BOUND 


STORE JIN INSTRUCTION SEQUENCE 
STORE JN INSTRUCTION SEQUENCE 
GET POINTER TO UPPER BOUND 
STORE IN ENSTRUCTION SEQUENCE 
STORE IN INSTRUCTION SEQUENCE 
GET POINTER TO STRIDE 

STORE JN INSTRUCTION SEQUENCE 
GET POINTER TO STATES 

STORE IN INSTRUCTION SEQUENCE 
GET LCWER BOUND 

TRANSFER IF NO LOWER BOUND 


ADD D REGISTER MODIFICATION 
STORE {N INSTRUETION SEQUENCE 
STORE JN INSTRUCTION SEQUENCE 
GET YPPER BOUND 

TRANSFER IF NO UPPER BOUND 
ADD D REGISTER MODIFICATION 
STORE JN INSTRUCTION SEQUENCE 
GET NEW LOWER BOUND 


TRANSFER JF NO NEW LOWER BOUND 


ADD D REGISTER MODIFICATION 
GO TO STORE ADDRESS 

GET A ONE 

MAKE ADBRESS 4,DL 

STORE JN INSTRUCTION SEQUENCE 
STORE [N INSTRUCTION SEQUENCE 
SEE JF EMPTY POSITION 
TRANSFER IF NOT EMPTY 

GET OLD QUAD ADDRESS 

COMPARE WITM NEW QUAD ADDRESS 
TRANSFER IF SAME » NO MOVING 


PAGF 
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GET TALLY WORD FOR MOVE INSTRUCTION SEQUENCE 


AND ADD YO OUTPUT CODE 


01557 


END 


END 


3 
024427 024443 
024430 024542 
024431 024434 
024432 0245141 
024433 017507 
024434 024549 
024435 024447 
024436 024520 
024437 047597 
024449 024535 
024441 024536 
024442 024445 
024443 024532 
024444 047507 
024445 090004 
024446 024536 
024447 000004 
024450 024535 
024454 024273 
024452 021007 
024453 024533 
024454 035214 


OF BINARY CARD 


024455 035234 
024456 024452 
024457 024533 
024460 0352145 
024461 035235 
024462 035235 
024463 024461 
024464 035235 
024465 024533 
024466 035234 
024467 090004 
024470 047045 
024471 000000 
024472 000001 
024473 047037 
024474 020354 
024475 090000 
024476 O90000 
024477 090002 
024500 od90000 
024501 d00001 
024502 090000 
OF BINARY CARD 
024503 oononod 
024504 024476 
024505 od00000 
024506 000010 


17,868 


7400 
2340 
6000 
2350 
7eyN0 
2340 
6040 
2390 
7000 
2350 
1150 
6000 
2350 
7000 
2200 
04900 
2200 
0490 
7400 
7000 
7240 
0640 


00000427 


1040 
6010 
2240 
0610 
0110 
4010 
6010 
2350 
7550 
2260 
1660 
7270 
4470 
2200 
7400 
7000 
7100 
2200 
6040 
6200 
0600 
2350 


00u00428 


7590 
00U7 
2360 
1760 


00 


17 
00 
47 
10 


ALGOL68 


8646 
8647 
8648 
8649 
8650 
846514 
8652 
84653 
8654 
84655 
8656 
8657 
84658 
8659 
8660 
8664 
8662 
86638 
8664 
8665 
8666 
8667 


8668 
8669 
8470 
84671 
8672 
8473 
84674 
8675 
8676 
8677 
8478 
8679 
8480 
84684 
8482 
8683 
84684 
8685 
8686 
8687 
8688 
8689 


8690 
8694 
8692 
8493 


BULS 


BUL4 


BULS 
BUL6 


BUL7 


BUd8 


BUd9 


BUSX 
BUS] 


Bul 


BUIL 

BUSTO 
BUSTO 
BUSIT4 


TRA 
SZN 
TZE 
LDA 
TSX0 
SZN 
TNZ 
LDA 
TSX0 
LDA 
CMPA 
TZE 
LDA 
TSXO0 
2X0 
ASX0 
LDXo 
ASXO 
TRA 
TSXo 
Wht 
ADX4 


CMPX4 
TNZ 
LDX4 
ADX1 
NOP 
CMPX4 
TNZ 
LDA 
STA 
LDX6 
3BX6 
XL7 
SX\7 
L Oxo 
S$TX0 
TSX0 
TRA 
0x0 
YNZ 
EAX0 
ADXO 
LDA 


STA 
TALLY 
LDQ 
SBQ 


PASS 3 


BUYS 
BLWA 
BHUL4 
BUST 
GADL 
BUSF 
BUL7 
BUST2 
GADL 
OFF 
NFF 
BUL6 
BUST4 
GADL 
4,0u 
NFF 
4,0u 
OFF 
BUS, 
DELV 
VMAR 
TSWORK 


ASWORK 
8U18 

VMARK 
TESTACK 
ASSTACK,DI 
ASSTACK 
BUL9 
ASSTACK{ DI 
VMARK 
ASWORK 


0,D 
BUS], @aBUS[ +4 
0,D 
Us0 
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GO TO MOVE REST OF QuaD 

SEE JF THERE WAS A LOWER BQUND 
TRANSFER !F NO LOWER BOUND 

GET TALLY WORD FOR LOWER BOUND SEQUENCE 
AND ADD TO GENERATED OUTPUT 

CHECK [F SUBSCRIPT OR TRIMMER 
TRANSFER [F SUBSCRIPT 

GET TALLY WORD FOR SLICE SEQUENCE 

AND ADD TO GENERATED OUTPUT 

GET OLD QUAD ADDRESS 

COMPARE WITH NEW QUAD ADDRESS 
TRANSFER IF SAME w NO MOVING 

GET TALLY WORD FOR MOVE SEQUENCE 

AND ADD TO GENERATED OUTPUT 

GET LENGTH OF QUAD IN XR w 0 
INCREMENT NEW QUAD ADDRESS 

GET LENGTH OF QUAD IN XR w= 0 
INCREMENT OLD QUAD ADDRESS 

AND |QOP 

DELETE A BLOCK FROM THE WORKING STack 
GET POINTER TO WORKING STACK WHEN MARKED 
MAKE POINTER ABSOLUTE 


HAVE WE DELETED BACK TO THE MARK 
TRANSFER 1f MORE 70 DELETE 

GET POINTER TO CONTROL STACK WHEN MARKED 
MAKE POINTER ABSOLUTE 

DELETE A WORD FROM THE CONTROL STACK 
HAVE WE DELETED BACK TO THE MARK 
TRANSFER {IF MORE T0 DELETE 

GET SAVED PREVIOUS MARK 

AND RESTORE J 

GET POINTER TO END OF WORKING STACK 

GET POINTER TO LAST BLOCK IN WORKING STack 
GET MODE OF RESULT OF SLICE 

AND SYORE IN BLOCK 

GET OLD STACK POINTER 

AND RETURN DESCRIPTOR MEMORY 

REALLOCATE FOR NEW DESCRIPTOR 

AND RETURN 


01557 


END 


END 


U1 U5-*26-+72 


3 
024507 oOon0nD 
024510 og0Qn0 
024511 024595 
024512 090000 
024513 090080 
024514 O900N0 
024515 090000 
024516 090000 
024517 00N000 
024520 024512 
024524 000000 
024522 000000 
024523 000000 
024524 090000 
024525 024524 
024526 000000 
024527 0090000 
024530 Oo00000 
OF BINARY CARD 
024534 000000 
024532 024526 
024533 0090000 
024534 090000 
024535 090000 
024536 090000 
024537 090000 
024540 090000 
024541 000000 
024542 0090000 
024543 000000 
024544 090000 
024545 024562 
024546 000037 
024547 020377 
024550 100000 
024551 000000 
024552 000007 
024553 020377 
024554 0090007 
024555 020377 
024556 021097 
OF BINARY CARD 
024557 021007 
0245690 024565 
024564 017507 
024562 0090000 
024563 000004 
024564 090004 
024565 024563 
024566 740000 


4029 £y 
0560 1/ 
0005 ov 
2360 17 
1760 147 
0760 Oy 
7560 47 
2360 00 
7560 $7 
0007 90 
2360 49 
7560 47 
2360 40 
7560 47 
Q005 40 
2360 4y 
7560 47 
2360 £0 
0000uUd29 
7860 47 
0005 90 
000000 
000000 
go00 40 
Q000 47 
0009090 
000000 
000000 
000000 
000000 
000000 
7400 QU 
6270 00 
7000 90 
2250 95 
7450 46 
6270 00 
7000 90 
6270 00 
7000 90 
7000 00 
00000430 
7000 90 
2350 00 
7000 90 
7400 G0 
2360 <1 
7560 42 
0003 00 
2350 07 


ALG L68 


6694 
84695 
8696 
8697 
8498 
8499 
8700 
8701 
8702 
8703 
8704 
870905 
8706 
8797 
8798 
8709 
8710 
8741 


8742 
8713 
8714 
8715 
8716 
8747 
8748 
8719 
8720 
8721 
8722 
8723 
8724 
8725 
8726 
8727 
8728 
8729 
8730 
87341 
8732 
8733 


8734 
8735 
8736 
8737 
8738 
8739 
8740 
8741 


BUS|2 
BUS] 3 
BUSTY 
BUSI4 
BUSI5 
BUSI6 
BUS]7 
BUSI8 
BUS|9 
BvUST2 
BUS10 
BUS14 
BUS42 
BUS~3 
BUSTS 
BUS14 
BUS15 
BUS16 


BUS47 
BUST4 
VMARK 
BUSC 
OFF 
NFF 
VM 
HUSF 
BUSE 
BLWB 
ByPB 
BNL WB 
DSuB 


DSUBX 
DSUBO 


DSUBT 
We 


MPY 
ASQ 
TALLY 
DQ 
$8Q 
ADQ 
STQ 
DQ 
STQ 
TALLY 
DQ 
STQ 
DQ 
STQ 
TALLY 
DQ 
$TQ 
LDQ 


STQ 
TALLY 
ZERO 
ZERO 
ARG 
ARG 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
STX0 
EAX? 
TSX0 
LDX5 
STX5 
EAX? 
TSX0 
EAX? 
TSX0 
TSX0 


TSXxa 
LDA 
TSX0 
TRA 
eye] 
sTQ 
TALLY 
LDA 


PASS 3 


0,0 
Q,U 
BUSTO, ##BUSIO+41 
a 


oQ 
- - 
tc 


pens 
cC- 


514, eeBUST 444 


10, #°BUSI0+1 


oootaooonotccaoce 


- ee Cs ee @ 


ouoWMUcC UOC oO 


co 
c= 
no 


14, e°BUSI4e1 


oo 
- & 


DSUBX 
MSPTR 
MBLK 
BSFC,DU 
016 
MESINT 
MBLK 
MSINT 
MBLK 
DELV 


DELV 
DSUBT 
GaDL 


454 

412 

DSUBO, #-DSUBQ +41 
STX,DL 
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SAVE RETURN 

GET MODE OF POINTER IN XR w# 7 
AND MAKE A BLOCK FOR 17 

GET VALUE JS STACKED BIT 

AND STORE JN BLOCK 

GET INTEGER MODE 

AND MAKE & BLOCK FOR TEMPORARY 
GET JNTEGER MODE 

AND MAKE A BLOCK FOR TEMPORARY 
DELETE A BLOCK 


DELETE A BLOCK 

GET TALLY WORD FOR INSTRUCTION SEQUENCE 
AND ADD TO INSTRUCTION SEQUENCE 

AND RETURN 


GET STORE LOWER STATE INSTRUCTION 


198 


01557 


END 


Oy U5"26<72 
3 
024567 024625 
024570 017045 
024574 000024 
024572 o00n003 
024573 024626 
024574 024603 
024575 440009 
024576 024625 
024577 047045 
024600 000024 
024601 000002 
024602 024626 
024603 024623 
024604 035234 
END OF BINARY CARD 
024605 00900140 
024606 020066 
024607 024624 
024610 024626 
024611 000004 
024612 020204 
024613 024620 
024614 024626 
024615 000000 
024616 047534 
024617 024622 
024620 024626 
024621 017474 
024622 021007 
024623 0090000 
024624 000000 
024625 090000 
024626 000000 
024627 220003 
024650 009001 
024634 024633 
024632 220003 
OF BINARY CARD 
024653 024642 
024634 017474 
024635 0417045 
024636 000024 
024637 024624 
024640 024625 
024641 017474 
024642 000000 
024643 024673 
024644 047045 
024645 035224 
024646 000005 


17,805 


7550 
2360 
7360 
1760 
7560 
74,900 
2350 
7590 
2360 
7360 
1760 
7560 
7400 
2260 


00000431 


1660 
7009 
7550 
0550 
0660 
7000 
7400 
2360 
7270 
7000 
7400 
0750 
7ou0 
7000 
7400 


05 
90 
00 
00 
03 
00 
90 
00 
16 
00 
00 
00 
00 
00 
90 


Q0g000 
000000 
090000 


2350 
0750 
7400 
2350 


ae fg 


7400 
7000 
2390 
7390 
0750 
0750 
7000 
7400 
7400 
7240 
0610 
7270 


07 
03 
00 
07 


Ly 

00 
00 
00 
00 
00 
90 
00 
00 
00 
00 
{1 


ALG9L 68 


8742 
8743 
8744 
8745 
8746 
8747 
8748 
8749 
8750 
8754 
8752 
8753 
8754 
8755 


8756 
8757 
8758 
8759 
8760 
8761 
8762 
87635 
8764 
8765 
8766 
8767 
8768 
8769 
8770 
8771 
8772 
8773 
8774 
8775 
8776 
8777 


8778 
8779 
8780 
8781 
8782 
8783 
8784 
8785 
8786 
8787 
8768 
8789 


UPB 


Dot 


PRX 
DBUS 


STA 
LDQ 
aLs 
SBQ 
STQ 
TRA 
LDA 
STA 
LDQ 
QLS 
$BQ 
STG 
STX0 
L.DXx6 


SBX6 
TSX0 
STA 
ASA 
ADX6 
TSXo 
TRA 
DQ 
WXL7 
TSX0 
TRA 
ADA 
TSXo0 
TSX0 
TRA 
ZERO 
ZERO 
ZERO 
LDA 
ADA 
TRA 
LDA 


STXO0 
TSX0 
LDA 
ALS 
ADA 
ADA 
TSX0 
TRA 
STX0O 
XL 
ADX1 
LXL7 


PASS 3 


FFI 
PARAM 
18¢2 
3,0U 
DBT 
DBL 
SXL OL 
PRI 
PARAM 
1842 
2,9U 
DBT 
DBX 
ASWORK 


2eWL DU 
MNA 
FFA 
DBT 
WheDu 
MVA 
DB2 
vet 
Us 
MOVE 
DBS 
DeT 
GAD 
DELV 


+ # 


bDOXeDU, DL 
4,Du 
PFA 
WOXeDU,DL 


FFX 
GAD 
PARAM 
18¢2 
FFA 
FFJ 
GaD 
oe 
DBUSxX 
PARAM 
TSPROG 
Jed 
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AND STORE 

GEY CURRENT POSITION IN QL 

MOVE TO QU AND MULTIPLY BY 4 

GET ADDRESS OF LOWER ROUND IN QU 
AND STORE 

GO CONTINUE 

GET STORE UPPER STATE INSTRUCTION 
AND STORE 

GET CURRENT POSITION IN QL 

MOVE TO QU AND MULTIPLY BY 4 

GET ADDRESS OF UPPER BOUND IN QU 
AND STORE 

SAVE RETURN 

GET POINTER TO END OF WORKING STACK 


GET POINTER TO FORMAL PARAMETER BLOCK 
MAKE POINTER AVAILABLE 

AND STORE POINTER TO DESCRIPTOR 

AND aDD TO BOUND ADDRESS 

GET POINTER TO BOUND BLOCK 

MAKE BOUND AVAILABLE 

TRANSFER IF BOUND JIN REGISTER 

GET ANDRESS WHERE BOUND IS To gE STORED 
GET MODE OF BOUND IN XR w 7 

MOVE BOUND TO DESCRIPTOR 

AND CONTINUE 

ADD ADDRESS OF ROUND IN DESCRIPTOR 

AND ADD STORE JNSTRUCTION TO GENERATED OUTPUT 
DELETE BOUND BLOCK 

AND EX]? 


GET LDX INSTRUCTION 

GET .DX0 41,DU INSTRUCTION 
GO CONTINUE 

GET DX 9,DU INSTRUCTION 


SAVE RETURN 

AND ADD TO GENERATED OUTPU 
GET POSITION IN AL 

MOVE TO AU AND MULTIPLY BY 4 
ADD POINTER TO pESCRIPTOR 

ADD STORE STATE JNSTRUCTION 
ADD STORE STATE INSTRUCTION TO GENERATED OUTPUT 
AND EXIT 

SAVE RETURN 

GET POINTER TO RANGE OF BOX 
MAKE POINTER ABSOLUTE 

GET MODE OF ELEMENT IN XR ® 7 


U1557 U1 5820-72 17,805 A.GOL63 PAGE ang 


3 PASS 3 
024647 019630 7oun OY 8790 TSX0 ASXFER MAKE MODE POINTER ABSOLUTE 
024650 777777 2350 17 B794 LDA “157 GET LENGTH OF ELEMENT VALUE IN AL 
024651 Ugnn22 7350 Og 8792 ALS 18 MOVE LENGTH TO aU 
024652 024674 7510 79 8793 STCA NBS0,70 AND STORE IN INSTRUCTION SEQUENCE 
024653 024677 2350 00 8794 LDA DAST GET TALLY WORD FOR INSTRUCTION SEQUENCE 
024654 047507 70U0 OO 8795 TSX0 GADL AND ADD SEQUENCE 0 GENERATED CODE 
024655 624626 2350 09 8796 DBUSL LDA DBT GET PCINTER TO LaST UPPER BOUND 
024656 024701 7510 71 8797 STCA DBUS1,714 STORE ADDRESS IN INSTRUCTION SEQUENCE 
024657 0090001 1750 03 8798 SBA 1,DuU GET PCJNTER TO LOWER BOUND 
024660 024702 7510 74 8799 STCA DBUS2,74 STORE ABDRESS IN INSTRUCTION SEQUENCE 
END OF BINARY CARD 00000433 
024664 090002 0750 03 8800 ADA 2,DuU GET PCINTER TO STRIDE 
024662 024700 7510 713 BROL STCA DBUSQ,714 STORE ADDRESS IN INSTRUCTION SEQUENCE 
024663 024705 7510 74 BBQ2 STCA DBUS3,74 STORE ADDRESS IN INSTRUCTION SEQUENCE 
024664 024707 2350 09 8803 LDA peusT GET TALLY WORD FOR INSTRUCTION SEQUENCE 
024665 017507 7000 0 8804 TSX0 GAUL AND aD TO GENERATED OUTPUT 
024666 777774 2350 0S 8805 LDA °4,DU GET LENGTM OF QUAD IN AU 
024667 024626 0550 00 8806 ASA DBT AND STEP QUAD POINTER BACK ONE QUAD 
024670 024655 6050 90 8807 TPL DBYSL LOOP {F MORE QUADS 
024674 024717 2350 00 8808 LDA DASTL GET TALLY WORD FOR SECOND INSTRUCTLCN SEQUENCE 
024672 017507 7000 Q0 8809 TSXO GADL AND ALD SEQUENCE TO GENERATED OUTPUT 
024673 000000 7100 90 8819 DBUSX TRA on AND EX{?T 
0u0005 8841 DST1 EQU 5 
000006 8812 DBY2 EQY 6 
024674 000000 6360 Og 8813 DBSO EAQ 0 
024675 000005 4500 47 8844 STZ DBT4,D 
024676 000006 4800 17 8815 S?Z DBT2,0 
024677 024674 0004 Ou 8816 DBST TALLY DBSn,#-PBSo+1 
024700 000000 7860 Oy 8847 DBUSO S$TQ 0 
024704 00900000 2360 00 8848 DBUSS LDQ 0 
024702 0090000 1760 O09 8849 DBUuS2 SBQ 0 
024703 090001 0760 07 8820 ADdQ 49 0L 
024704 090005 2560 47 8824 ORSO DBTa,D 
024705 000000 4020 90 8A22 DBUS3 MPY 0 
024706 000006 2550 147 8823 ORSA DBT2,D 
END OF BINARY CARD 90900484 
024707 024700 00140 00 8824 DYUST TALLY  DBUSQ,#DBUSQ+1 
024740 000004 7560 47 8825 DeUS4 STO 4,D 
024711 000005 2340 47 8826 SZN DBT,D 
024712 000003 6050 04 8827 TPL 3,1¢ 
0247143 000004 4590 47 8828 STZ 4,D 
0247144 000003 7400 94 8829 TRA 3;Jc 
024715 000006 2340 $7 8830 SZN DBT2,D 
024716 777777 6010 00 8831 TNZ SERROR 
024717 024740 0030 00 8832 D8ST4 TALLY DBUS4,#eDBUS4e1 
024720 000000 2350 47 8833 ETYP LDA 0,D0L GET A ZERO 
024721 017474 7000 90 8834 TSX0 GAD AND ADD TO GENERATED OUTPUT 
024722 035246 2270 00 8835 LDX7 TSMODE GET POINTER TO START OF MODE TABLE 
024723 0900014 0670 93 8836 ETYP, ADX7 1,DU STEP OVER LINK WORD 


024724 090000 2200 17 8837 LDxo 0,7 GET TYPE OF MODE IN XR = 0 
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END 


END 


04 05"26-72 
3 

024725 017012 
024726 024741 
024727 01470145 
024730 024741 
024731 090000 
024732 035227 
024733 777777 
024754 024741 
OF BINARY CARD 
024735 035216 
024736 025130 
024737 025234 
0247490 035216 
024744 777777 
024742 000000 
024743 024723 
024744 035227 
024745 o90001 
024746 777777 
024747 024756 
024750 025130 
024751 000001 
024752 035227 
02A753 0147474 
024754 035227 
024755 024757 
024756 777777 
024757 090000 
024760 024745 
024761 0900000 
(024762 047474 
OF BINARY CARD 
024763 046470 
024764 025000 
024765 025167 
024766 010630 
024767 777777 
024770 025223 
024771 035216 
024772 025226 
024773 0417507 
024774 025234 
024775 035220 
024776 090001 
024777 024764 
025000 025227 
025001 025227 
0259002 035232 
025003 dgn0n0 
025004 025015 


17,8363 


10909 O8 
6000 40 
1900 08 
6000 QQ 
7250 47 
0650 Q9 
7200 45 
6000 49 
06000455 
1670 Q0 
7000 99 
7000 90 
0670 oO 
0670 17 
2340 17 
$930 00 
2250 O00 
0690 93 
7200 45 
6090 00 
7000 600 
2350 98 
4650 00 
7000 00 
0650 00 
7400 00 
0650 45 
2340 45 
6010 49 
2350 97 
7000 OQ 
00000436 
7250 00 
6040 90 
7000 00 
7000 00 
7200 47 
4400 00 
4670 00 
2350 40 
7000 90 
7000 40 
0650 00 
7250 45 
7400 90 
4500 00 
7209 00 
0600 40 
2250 10 
6000 90 
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8838 
8839 
8840 
88414 
BA42 
8843 
8844 
8845 


8946 
8847 
8848 
BB49 
8850 
8851 
8852 
8853 
8854 
8855 
8856 
8857 
8858 
8859 
8860 
8861 
8862 
8863 
8864 
8865 
8866 
8867 


8868 
8869 
8870 
8871 
8472 
8873 
8874 
8875 
8876 
8877 
8878 
8879 
8880 
6881 
8882 
88683 
8884 
8885 


ETYP2 


ETYPS 


ETYP4 
ETYP5 


SYMR1 


SYMD1 
SYMD2 


CMPXy 
YZE 
CMPXO 
TZE 
LXL5 
ADX5 
LXi,0 
TZE 


SBX7 
TSX0 
TSX0 
ADX7 
ADX? 
$ZN 
TNZ 
LDX5 
ADX5 
LxLo 
TZE 
TSXO0 
LDA 
SBX5 
TSXo 
ADX5 
TRA 
ADX5 
SZN 
TNZ 
LDA 
TSX0 


X15 
TJ 

TSX0 
TSX0 
XO 
SXL0 
$BX7 
LDA 

TSX0 
TSX0 
ADX5 
XLS 
TRA 

STZ 

XL 0 
ADXO 
LDX5 
TZE 


PASS 3 


ME$XFER,DU 


ETYP2 


MSEMPTY,DU 


ETYP2 
U,7 
TSTYPE 
71,5 
ETYP2 


TSMCDE 
MOVT 
GUM 
TSMODE 
eq? 
0,7 
ETYP, 
TSTYPE 
1,0U 
1,5 
ETYP4 
MOVT 
i,Du 
TSTYPE 


25L1NKQ 
SYMDL 
SYM 
ASXFER 
"4157 
SYMP 
TSMODE 
SYMT 
GADL 
GUM 
TSDBEF 
4.5 
SYMR4L 
SYMNT 
SYMNT 
TSSDEF 
0,0 
SYMD3 
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IS IT A VALID MODE 

TRANSFER YF NOT 

IS IT A VALID MODE 

TRANSFER YF NOT 

GET POINTER TO TYPE FOR MODE IN XR = 5 
MAKE TYPE POINTER aBSOLUTE 

GET POINTER TO USES OF TYPE IN PROGRAM 
TRANSFER {F NOT USED 


MAKE MODE POINTER RELATIVE 
MOVE TYPE YO GENERATED OUFPUT 
MOVE MOME OF TYPE TO GENERATED OUTPUT 
MAKE MOBE POINTER aBSOLUTE 

GET POJNTER TO FOLLOWING MODE 
ARE THERE ANY MORE MODES 
TRANSFER {Ff MORE MODES 

GET POJRTER TO START OF TYPE TABLE 
STEP OVER LINK WORD 

SEE JF TYPE JS USED IN PROGRAM 
TRANSFER {fF NOT USED 

MOVE TYPE TO GENERATED OUTPUT 
GET A VACUUS MODE 

MAKE TYPE POINTER RELATIVE 

AND ADD YO GENERATED OUTPUT 
MAKE TYPE POINTER aRBSOLUTE 

AND CONTINUWE 

STEP TO NEXT TYPE 

ARE THERE ANY MORE TYPES 
TRANSFER !{F MORE TYPES 

GET A ZERO 

AND ADD YO GENERATED OUTPUT 


GET POINTER TO CHAIN OF SYMREFS IN XR - 5 
TRANSFER !f NO MORE SYMREPS 

SET UP WEADER FOR SYMREF IN SYM PROTOTYPE 
MAKE MOBE OF SYMBOL ABSOLUTE 

GET LENGYH OF VALUE IN XR @ g 

AND STORE IN SYM PROTOTYPE 

MAKE MOBE POINTER RELATIVE 

GET TALLY WORD FOR SYM PROTOTYPE 

AND ADD PROTOTYPE YO GENERATED OUTPUT 

ADD MODE fO GENERATED ouTPUT 

MAKE DEFINITION POINTER IN XR « 5 ABSOLUTE 
GET NEX}? SYMREF IN CHAIN 

AND 00” 

INITLAL}ZE SYMDEF POINTER 

GET POINTER TO NEXT SYMDEF 

MAKE POYNTER ABSOLUTE 

GET POINTER TO DEFINITION IN XR « 5 
TRANSFER IF NO MORE SYMDEFS 
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END 


END 
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3 
025005 025167 
025006 00000 
025007 025223 
025010 025226 
OF BINARY CARD 
025011 017507 
025012 025234 
025013 025227 
025014 025001 
025015 017040 
025016 017474 
025017 011322 
025020 025102 
025021 000002 
025022 025100 
025023 007000 
025024 003662 
025025 000222 
025026 000000 
025027 000770 
025030 777777 
025031 007000 
025032 025054 
025033 000003 
025034 025036 
025035 777777 
025036 004007 
OF BINARY CARD 
025037 000222 
025040 090000 
025041 777777 
025042 000000 
025043 025076 
025044 000002 
025045 025076 
025046 025100 
025047 0940924 
025050 000222 
025051 000000 
025052 777777 
025053 025056 
025054 0090000 
025055 025076 
025056 035226 
025057 025076 
025060 003744 
025061 000222 
025062 777777 
025063 035226 
025064 777777 


17,305 


70U0 
22y0 
44u0 
2350 


00000457 


70N0 
7000 
0540 
7400 
2390 
70N0 
2340 
6010 
6220 
2370 
2240 
7000 
2370 
6200 
3000 
6010 
4000 
6000 
1000 
6000 
7400 
70Q0 


00000458 


2370 
6200 
6040 
6200 
7400 
6220 
2230 
2370 
7000 
2370 
6290 
6010 
7400 
6200 
7400 
2350 
2360 
7000 
2370 
6010 
2350 
3750 


00 


34 
a4 
00 
05 
00 
00 
00 
00 
00 
54 
O4 
00 
00 
05 
00 
00 
00 
00 
54 
00 
00 
07 
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BB86 
8887 
8588 
8869 


8890 
BR94 
BB92 
8893 
BR94 
8895 
8896 
8897 
8898 
8899 
8900 
8901 
8902 
8903 
8904 
8995 
8906 
8907 
8908 
8909 
8910 
8911 


8912 
8943 
8914 
8915 
8916 
8947 
8948 
8949 
8920 
a924 
8922 
8923 
8924 
8925 
8926 
8927 
8928 
8929 
8930 
89314 
8932 
8933 


SYMD3 


Lib, 


LiBe 
L483 


TSXO 
2x0 
SXLO 
LDA 


TSX0 
TSXxXo 
aos 
TRA 
LDA 
TSXO 
SZN 
INZ 
EAX2 
Dad 
LDX4 
TSX0 
,DAQ 
EAXO 
CANXQ 
INZ 
CMPXQ 
TZE 
CMPXQ 
ie 
RA 
TSXO 


| DAQ 
EAXO 
TNZ 
EAXO 
STXO 
EAX2 
LDX3 
,DAQ 
TSX 
LDAQ 
EAXO 
TNZ 
TRA 
EAXo 
STX0 
DA 
LDO 
TSX0 
LDAG 
INZ 
DA 
ANA 


PASS 3 


SYM 

0,Du 
3YMP 
SYMT 


GADL 
GUM 
SYMpT 
SYMD2 
MAXS 
GaD 
25L1BF 
LOaDd 

2 


QOBJCT 
#0007006,DU 
SOPEN 
sSSTAT,! 


20007008, 0U 
L182 

3,0u 

Libba 

SERROR 
SOPENS 


;SSTAT, 1 
0, AU 
SERROR 
0, AL 
PRN 

2 

FRN 
OBJcT 
SCAT 
,SSTAT,S 
0,Au 
SERROR 
L183 
OsAL 

PRN 
TSGEN 
PRN 
SWRITE 
cSSPAT,! 
SERROR 
TSGEN 
o4,DL 
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SET UP HEADER FOR SYMDEF IN SYM PROTOTYPE 
GET A S¥MDEF FLAG 

AND STORE IN SYM PROTOTYPE 

GET TALLY WORD FOR SYM PROTOTYPE 


AND ADD PROTOTYPE TO GENERATED OUTPUT 
ADD MODE TO GENERATED OUTPUT 

STEP TO NEXT SYMDEF POINTER 

AND |00OR 

GET SIZE OF LLOo FOR THE PROGRAM 

AND ADD TO GENERATED OUTPUT 

SEE IF JUST COMPILING 

TRANSFER [EF EXECUTING 

GET FILE REFERENCE NUMBER OF USER CATALOG 
GET NAME OF OBJECT PROGRAM 

ASK FOR READ, WRITE, AND APPEND 

TRY TO OPEN ,OBVECT, IN USER CaTALOG 
GET STATUS RETURN WORDS IN AQ 

GET STATUS OF OPERATION IN XR © Q 
SEE JF BaD STaTuS 

ERROR = BAD STATUS 

DID WE GET DES,TRED ACCESS 

TRANSFER {fF YES 

WAS FILE NOY FOUND 

TRANSFER JF FILE NOT FOUND 

STATUS NOT ACCEPTABLE 

GET a SCRATCH FILE 


GET STATUS IN AQ REGISTER 
GET STATUS OF OPERATION IN XR © Q 
ERROR » BAD STATUS 


GET FILE REFERENCE NUMBER OF FILE IN XR wo Q 


AND STORE 

GET FILE REFERENCE NUMBER QF CaTaLoG 
GET FILE REFERENCE NUMBER OF FILE 
GET NAME IN AQ 

CATALOG FILE IN CATALOG WITH GIVEN NAME 
GET STATUS OF OPERATION 

GET STATUS IN XR w O 

ERROR » BAD STATUS 

AND CONTINVE 

GET FILE REFERENCE NUMBER IN XR @ g 
AND STORE 

GET DESCRIPTOR FOR GENERATED CODE 
GET FILE REFERENCE NUMBER OF FILE 
WRITE OBNECT COME IN FILE 

GET STATUS RETURN WORDS IN AQ 

ERROR » BAD STATUS 

GET LENGTH OF ORJECT CODE IN AL 

ZERO OUT AU 
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END 


End 


END 


04 U5"26072 17,863 
3 
OF BINARY CARD 00000459 
025065 025076 2360 00 
025066 004044 7000 00 
025067 000222 2370 34 
025070 777777 6010 OY 
025071 025076 2360 00 
025072 0603702 7000 90 
025073 009222 2370 $1 
025074 777777 6040 O90 
025075 000000 000009 
025076 000000 onn009 
025077 000000011007 
025100 
025100 056117102112 
025101 105103124056 
025402 035226 2350 ov 
025103 030234 7550 00 
025104 0090000 6200 94 
025105 030131 7490 00 
025406 030234 7200 0 
025107 030234 0600 90 
025110 000001 6350 40 
025411 777777 4500 01 
025412 030235 7550 On 
OF BINARY CARD 00000440 
025113 000004 6350 O14 
025414 777777 4500 O14 
0251415 030236 7550 00 
025416 000004 6350 o4 
025417 777777 4500 O04 
025120 030237 7850 99 
025421 000001 6350 01 
025422 777777 4590 O14 
025423 030240 7550 00 
025424 000001 6350 d4 
025425 777777 4590 O1 
025126 030241 7550 G0 
025127 027324 7400 OO 
025430 0251465 7400 00 
025451 777777 2360 45 
025432 000090 2200 O03 
025433 777777 4400 15 
0251354 000000 6240 02 
025135 025166 4500 00 
025136 025166 4440 00 
025137 oO000N0 2350 15 
025140 750556 6200 01 
OF BINARY CARD 00000441 
025141 025144 6010 00 
6251442 000000 6200 05 
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8934 
8935 
8936 
8937 
8938 
8939 
8940 
8944 
8942 
8943 


8944 
8945 


8946 
8947 
8948 
8949 
8950 
8951 
8952 
68953 
8954 


8955 
8956 
8957 
8958 
8959 
8960 
8961 
8962 
8963 
8964 
8965 
8966 
8967 
8968 
8969 
8970 
8974 
8972 
8973 
8974 
8975 
8976 


8977 
8978 


PRN 


OnJCT 


LUAD 


MUVT 


MUVT4 


LDQ 
TSX0 
LDA 
TNZ 
DQ 
TSX0 
LDAG 
TNZ 
ZERO 
ZERO 


EVEN 
WASC] 


LDA 
STA 
EAXO 
STXO 
X10 
ADXO 
EAA 
$72 
STA 


EAA 
$TZ 
STA 
EAA 
STZ 
STA 
EAA 
S7Z 
STA 
EAA 
STZ 
STA 
TRA 
STXO 
pa 
LDXO 
SXLO 
EAX4 
$TZ 
SXL4 
LDA 
EAXO 


TNZ 
EAXO 


PaSS 3 


FRN 
$TRUNC 
iSSTAT,! 
SERROR 
FRN 
$CLOSE 
,SSTAT, 1! 
SERROR 


2,,0BJECT, 


TSGEN 


LSCHAIN 
1, AU 
24, aU 
LSPROG 
1,AU 
#4,aU 
LSTEND 
LESSTART 
MOVTX 
74,5 
0,Du 
"4.5 
0,9U 
MOVTT 
MOVTT 
0,5 


wTSSKIP,AU 


MOVT2 
0,AL 
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GET FILE REFERENCE NUMBER OF FILE 

AND SET FILE LENGTH TO OBVECT CODE LENGTH 
GET STaTUS WORDS OF OPERATION JN AQ 

ERROR w» BAD STATUS 

GET FILE REFERENCE NUMBER OF FILE 

AND CLOSE FILE 

GET STATUS WORDS OF OPERATION IN aQ 

ERROR + BAD STATUS 

DONE WITH COMPILATION 


GET DESCRIPTOR FOR GENERATED CODE 

AND STORE JN LOADER TABLE 

GET ADDRESS OF BASE OF CODE SEGMENT 

AND STORE aS POINTER TO FREE STORAGE 

GET LENGTH OF GENERATED CODE 

ADD LOCATION TO GET POINTER TO END OF CODE 
GET DESCRIPTOR FOR TYPE TABLE 

ZERO OUT LAST WORD OF PRECEDING TABLE 
STORE DESCRIPTOR FOR TYPE TABLE 


GET DESCRIPTOR FOR SYM TABLE 

ZERO Oyf LAST WORD OF PRECEDING TABLE 
STORE DESCRIPTOR FOR SYM TABLE 

GET DESCRIPTOR FOR CHAIN TABLE 

ZERO OUT LAST WORD OF PRECEDING TABLE 
STORE DESCRIPTOR FOR CHAIN TABLE 

GET DESCRIPTOR FOR PROG TABLE 

ZERO OUT LAST WORD OF PRECEDING TABLE 
STORE DESCRIPTOR FOR PROG TABLE 

GET DESCRIPTOR FOR END 

ZERO OUT LAST WORD OF PRECEDING TABLE 
STORE POINTER TO END OF TABLES 

AND GO TO LOADER 

SAVE RETURN 

GET LINK TO USER USES OF TYPE 

GET A ZERO 

AND CLEAR OUT USER LJNK 

GET LENGTH OF TYPE IN XR « 4 
INITIALEZE TYPE TERMINATION WORD 
STORE LENGTH OF TYPE IN TERMINATION WORD 
GET NEXY WORD OF TYPE 

SEE JF TYPE WORD 1S A SKIP 


TRANSFER IF NOT A SKIP 
GET NUMBER OF WORDS SKIPPED IN XR @ Q 


u155? 


END 


END 


01 U5@20+72 


3 
G25143 u25145 
625144 ognont 
v2£1445 0625166 
025146 035227 
026147 017474 
025150 035227 
025151 009091 
025152 000001 
025153 025137 
025154 025166 
026155 035227 
025156 017474 
025457 035227 
025160 vonn44 
025161 090002 
025162 035227 
0251463 017474 
025164 035227 
025165 0009000 
025166 000000 
OF BINARY CARD 
025167 025222 
025170 035220 
025171 000003 
025472 025223 
025173 090002 
025174 000000 
025475 025204 
025176 035220 
025477 0090000 
025200 025176 
025201 490000 
025202 035222 
025203 090000 
025204 025230 
025205 035223 
025206 025230 
025207 0252314 
025210 025232 
025211 025233 
025212 025224 
025213 025225 
025214 025230 
QF BINARY CARD 
025215 025217 
025216 025221 
025217 025232 
025220 025214 
025221 035220 
025222 000080 


17,863 


7409 OO 
2200 a8 
0400 40 
1650 00 
7000 60 
Y650 Q0 
0650 95 
1640 Q5 
60130 00 
3330 00 
1650 00 
7000 90 
0650 00 
7370 00 
0790 O38 
1650 00 
7000 00 
0650 00 
7400 00 
000008 
00000442 
7400 90 
0650 00 
2390 5 
7590 00 
2270 {5 
2210 15 
6040 90 
0649 00 
2240 i1 
6050 00 
6240 £1 
0610 00 
2350 £1 
7550 0Q 
2290 00 
0400 00 
2350 00 
7550 00 
2390 00 
7590 OY 
7550 00 
2360 52 
00000443 
6070 00 
7400 00 


7560 52 
6070 00 
1650 00 
7400 90 


ALG®L 468 


8979 
B98N 
BBL 
8982 
8983 
8984 
8985 
8986 
8987 
8988 
8989 
8990 
8991 
8992 
8993 
8994 
8995 
8996 
8997 
8998 


8999 
9000 
90014 
9002 
9003 
9004 
9005 
9006 
9007 
9008 
9009 
9010 
90114 
9012 
9013 
9014 
9015 
9016 
9047 
9n18 
9019 
9920 


9021 
9022 


90235 
9n24 
9025 
9026 


MUVT2 
MUVTS 


MOVTX 
MUVTT 


SYM 


SYM1 


SYM2 


SYM3 


SYM4 


SYM5 
SYMX 


TRA 

LDXO 
ASXO 
SRX5 
TSXO 
ADX5 
ADX5 
SBX4 
TNZ 

LCA 

SBX5 
TSX0 
ADX5 
LLS 

ADA 

SBX5 
TSXO0 
ADX5 
TRA 

ZERO 


STXO 
ADX5 
DA 
STA 
LDX7 
DX4 
TM] 
ADX1 
LDX4 
TPL 
EAX4 
ADX4 
LDA 
STA 
LOX 
ASXO 
LDA 
STA 
LDA 
STA 
STA 
DQ 


TTF 
TRA 


STQ 
TTF 
SBX5 
TRA 


PASS 3 


MOVTS 
1,DU 
MOVTT 
TETYPE 
GAD 
TETYPE 
1,0U 
4,DuU 
MOVTY 
MOVTT 
TSTYPE 
GaD 
TSTYPE 
36 
2,0U 
TSTYPE 
GAD 
TSTYPE 


*e 


SYMX 
TSDEF 
3,5 
SYMP 
2:5 
0,5 
SYM2 
TSDEF 
Ori 
SYMq 
131072,% 
TSSTAB 
ASSCy4 
TALL 
TSITAB 
TAL 
TAL 2] 
TAL2 
BLNKS 
SYMPeq 
SYMPe2 
TAL1,SC 


SYM4 
SYM5 


TAL2,SC 
SYM3 
TSDEF 


eo 


PAGF 204 


AND CONTINUE 

GET NUMBER OF WORDS ASSOCIATED WITH TYPF 
AND ADD INTO TYPE TERMINATION WORD 

MAKE TYPE POINTER RELATIVE 

ADD TYPE WORD To GENERATED OUTPUT 

MAKE TYPE POINTER ABSOLUTE 

STEP POINTER TO NEXT TYPE WORD 

DECREMENT WORD COUNT OF TYPE 

TRANSFER IF MORE WORDS TO ADD TO GENERATED OUTPUT 
GET TERMINATION WORD IN A REGISTER 

MAKE TYPE TABLE POINTER RELATIVE 

ADD TERMINATION WORD TO TYPE 

MAKE TYPE TABLE POINTER ABSOLUTE 

MOVE US&R POINTER TO AL 

ALLOW FOR TERMINATION WORD AND USE WORD 
MAKE TYPE POINTER RELATIVE 

AND ADD TO GENERATED OUTPUT 

MAKE TYPE POINTER ABSOLUTE 

AND RETURN 


SAVE RETURN 

MAKE DEFINITION POINTER IN XR ©» 5 ARSOLUTE 
GET ADDRESS OF VALWE IN A 

AND STORE JN SYM PROTOTYPE 

GET MODE OF SYMBOL IN XR = 7 

GET POJNYTER TO NEXT DEFINITION OF THIS SyMBOL 
TRANSFER IF THERE ARE NO MORE 

MAKE DEFINITION POINTER IN XR @ 1 ABSOLUTE 
GET POINTER TO DEFINITION FOLLOWING THIS SyMBOL 
TRANSFER {F THERE 1S ONE 

MAKE XR «w ¢ POINTER TO SYMBOL OF DEFINITIONS 
MAKE STAB POINTER ABSOLUTE 

GET SC TALLY WORD FOR SYMBOL IN A REGISTER 
AND STORE 

GET POINTER TO BASE OF ITAB IN XR « g 

AND MAKE FALLY WORD ABSOLUTE 

GET TALLY WORD TO SYM PROTOTYPE 

AND STORE 

GET FOUR ASC]! BLANKS — 

AND INITIALIZE SYMBOL TO BLANKS 

AND INJVIALIZE SYMBOL TO BLANKS 

GET NEXT CHARACTER OF SYMBOL 


TRANSFER IF YHERE ARE MORE CHARACTERS 
TRANSFER {6 NO MORE SYMBOLS 


AND STORE JN SYM PROTOTYPE 

TRANSFER !F MORE ROOM IN SYM PROTOTYPE 
MAKE DEFINITION POINTER IN XR » 5 RELATIVE 
AND RETURN 
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END 


EnD 


04 O5"26+72 


025223 
025224 
025225 
025226 
025227 
025230 
025231 
0252352 
025233 
025254 
0252355 
025256 
025257 
025240 
025241 
025242 


OF BINARY CARD 


17,863 


3 


oonn000n00000 
Vongd0000u000 
Ooronoo0n0nN 
025223 O0u4 00 
00000 o000u0 
000000 Qouvovd 
025224 0010 40 
000000 onn0v00 
04004004004N 
025357 7400 49 
035235 4509 56 
0905742 71470 00 
035226 7210 60 
025360 7410 OY 
025364 7410 00 
025361 1610 OY 
00000444 


025243 035235 4410 54 
025244 035235 7470 56 
025245 005742 7470 00 
025246 010630 7000 90 
025247 777777 2350 47 
025250 777777 6350 O04 
025254 000000 2200 47 
025252 016754 1000 03 
025253 025255 6010 00 
025254 000000 6350 09 
025255 035216 1670 00 
025256 035226 2210 03 
025257 005663 7000 0 
025260 035216 0670 90 
025261 777777 2200 17 
025262 Ug0n000 2350 47 
025263 000000 6220 O4 
025264 016754 1020 03 
025265 025267 6000 00 
025266 009000 6350 014 
025267 490000 2750 a3 
025279 025272 7400 00 
OF BINARY CARD 00000445 
025271 vo00o00 2350 17 
025272 777777 7550 41 
025273 40N000 6230 O4 
025274 016754 1050 03 
025275 025323 6000 00 
025276 000000 62350 95 
025277 u25317 6000 90 
025300 U35222 0650 00 
025301 009000 2350 13 
025362 025362 7550 O09 
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927 


9028 
9N29 
930 
9AS1 
9N32 
9N33 
9N34 
9035 
9936 
9A37 
9038 
9039 
9940 


90414 
9042 
9N43 
9044 
9N45 
9046 
9047 
9048 
9949 
9950 
9051 
9052 
9953 
9154 
9055 
9056 
9057 
9058 
9959 
9060 
9061 
9062 


9n63 
964 
9065 
9066 
9967 
9068 
9969 
9970 
9071 
9972 


SYMP 


SYMT 
SYMDT 
TALL 
TAL21 
TAL2 
BLNKS 
GUM 


GUM4 


GUM14 


GUM2 


GUMZ 
GUM4 


OcT 


TALLY 
ZERO 
ZERO 
TALLYB 
ZERO 
UASC] 
STX0 
STZ 
XED 
LXL4 
STX4 
STX4 
SBX4 


SXu4 
STX7 
XED 
TSXO 
LDA 
EAA 
LDXxo 
CMPXO 
NZ 
EAA 
SBX7 
LDX4 
TSX0 
ADX7 
LDXxo 
LDA 
EAX2 
CMPX2 
TZE 
EAA 
ORA 
TRA 


LDA 
STA 
EAX3 
CMPX3 
TZE 
EAXS 
TZE 
ADXS 
LDA 
STA 


SYMP, @eSYMP +4 


SYMP441,8 


1, 

GUMX 
ASSTACK,1D 
TSSOVF 
TSGEN 

GUMP 

GUMS 

GUMS 


ASSTACK,] 
ASSTACK, 1D 
TSSOVF 
ASXFER 
7iy7 

74, AU 

0,7 
MSPRIM,DY 
GUMG1 

ied 
TEMODE 
TSGEN,DU 
TSALOC 
TSMODE 
o1,7 

U,7 

0,AU 
MSPRIM,DU 
GUM2 

0, AU 


20490006,DU 


GUM4 


0,7 

"dad 
131n72,AU 
MSPRIM,DU 
GUM5 

O,AL 
GUM48 
TSSTAB 
AESC,3 
GUM? 
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SAVE RETURN 

PAD BOTTOM OF CONTROL STACK WITH A ZERO 

CHECK FOR STACK OVERFLOW 

GET ADDRESS OF FIRST WORD IN GENERATED MODE 
INITIALIZE CORRECTION POINTER 

STORE ABDRESS OF FIRST WORD IN GENERATED MODE 
MAKE POYNTER RELATIVE 


STORE NEW MODE POINTER 

STORE OLD MODE POINTER 

CHECK FOR STACK OVERFLOW 

MAKE MODE POINTER aBSOLUTE 

GET LENGTH OF MODE IN aU 

SET UP REQUEST FOR AU WORDS 

GET TYPE OF MODE IN XR - 09 

1S If A PRIMITIVE MODE 

TRANSFER IF NOT PRIMITIVE 

ALLOCATE ONE WORD FOR PRIMITIVE MODE 
MAKE MODE POJNTER RELATIVE 

GET POINTER TO GENERATED CODE TABLE WORD 
AND ALLOCATE SPACE IN THE GENERATED OUTPUT 
MAKE MODE POINTER aSBSOLUTE 

GET LENGTH OF MODE TABLE ENTRY IN XR ©» 0 
GET FIRST WORD OF ENTRY IN A REGISTER 
GET TYPE OF MODE IN XR e& 2 

IS IF aA PRIMITIVE TYPE 

YES eo TRANSFER 

OTHERWISE ZERO OUT AL 

SET SIGN BIT 

AND CONTINUE 


GET NEXT WORD OF MODE TABLE ENTRY 

AND STORE JN GENERATED OUTPUT 

GET TYPE QF MODE IN XR » 3 

IS TT A PRIMITIVE MODE 

TRANSFER IF YES = STORE ONLY ONE WORD 
GET TAG JF ANY IN XR & 3 

TRANSFER IF NO TAG TO FIX UP 

MAKE TAG POINTER ABSOLUTE 

GET YALLY WORD FOR TAG IN A REGISTER 
AND STORE 
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$ PASS 3 
025303 035223 2250 00 Q9A73 LDXS TEITAB GET BASE OF IDENTIFIER TABLE IN XR - 3 
U25304 v25362 0450 09 9974 ASXS GUMT MAKE TALLY WORD ABSOLUTE 
V2E3U5 U25363 235 00 9n75 LDA GUMTL GET OUTPUT TALLY WORD 
025306 025364 7550 00 9nN76 STA GUMT4L AND STORE 
U25307 25362 2350 52 9977 GUM42 LDA GUMT,SC GET NEXT CHARACTER IN TAG 
025310 025313 60/70 00 9n78 TTF GUM43 TRANSFER IF THERE IS A CHARACTER 
025311 025362 04110 54 gn79 NOP GUMT,DJ RESET TALLY FIELD IN TALLY WORD 
025312 000000 2350 07 9980 LDA O,UL GET A ZERO CHARACTER 
025313 0253564 7550 Se 9981 GUM43 STA GUM¥1,SC AND STORE CHARACTER 
025314 025307 6070 90 9nB82 TTF GUM42 TRANSFER IF MORE CHARACTERS NEEDED 
025315 090000 22350 93 9083 GUM44 LDX3 #4, DU GET TWO CHARACTERS OF TAG IN XR © 3 
025316 777777 4450 41 gne4 SXL3 wist AND STORE IN GENERATED MODE 
END OF BINARY CARD 90000446 
025317 0090001 0610 OS 9985 GUM4B ADX4 1,.0U STEP QUYPUT POINTER 
025320 000001 0670 03 9986 ADX7 1,Du STEP MOBE POINTER 
025321 up0gd01 1600 03 987 SBXO 1,0U DECREMENY NUMBER OF WORDS LEFT TO TRANSFER 
025322 025271 6010 00 9088 TNZ GUMS TRANSFER !F MORE WORDS TO TRANSFER 
025323 035226 7200 00 9789 GUMS LXLO TSGEN GET ADDRESS OF LaST WORD IN GENERATED OUTPUT 
025324 025360 1000 00 9090 CMPXQ GUMP COMPARE WITH FIXUP POINTER 
025325 025350 6000 00 ONO TZE GUMB TRANSFER IF FIXUP 1S DONE 
025326 025360 6200 56 9ng92 EAXO GUMP,ID GET ADDRESS OF NEXT WORN TO FIx UP 
025327 035226 0600 90 9093 ADXO TSGEN MAKE POINTER ABSOLUTE 
0253390 000090 2210 40 9n94 LDOX4 0,0 GET OLD MODE POINTER THAT REQUIRES FIXING UP 
025331 025323 6040 Sy 9095 TM] GUM5 TRANSFER IF NO FJXUP IS NEEDED 
025332 035235 2220 OH | 9096 LDXx2 ASSTACK GET POJNTER TO END OF CONTROL STACK 
025333 025362 7420 oN 9097 STX2 GUM? AND STORE 
025334 025362 2340 34 9798 GUM6 SZN GUMT,DI SEE [F THERE IS AN EQUIVALENCE STORFD HERE 
0253535 025343 6000 00 9099 TZE GUM9 TRANSFER {F POINTER MODE NOT STORED YET 
025356 025362 1010 51 9100 CMPX4 GUMT,1 DOES THIS MATCH TRE OLD POINTER TO RE FIXED UP 
025337 025334 6910 40 94014 TNZ GUM6 TRANSFER IF NO 
025349 025362 7210 54 91402 LXu 4 GUMT,1 GET NEW MODE POINTER IN XR @ 4 
025344 000000 7410 49 9103 STXL 0.0 AND STORE TO FIX UP OLD MODE POINTER 
025342 025323 7400 900 9404 TRA GUMS GO TO FIX UP NEXT WORD 
025343 090000 6270 $1 9495 GUM7 EAX7 Ort GET MODE POINTER TO FIX UP IN XR - 7 
025344 035226 7210 00 9106 LXua TSGEN GET POINTER TO MODE ABOUY TO Be GENERATED 
END OF BINARY CARD 00000447 
025345 025361 1610 00 9407 SRX4 GUMS MAKE POINTER RELATIVE 
025346 090000 7410 10 9108 STX4 0.0 AND STORE AS NEW MODE POINTER 
025347 025243 7400 00 949 TRA GUMy AND GO GENERATE THIS MODE 
025359 035235 2270 S§1 94140 GUMB 0X7 ASSTACK, I RESTORE xR «= 7 
025354 035235 2340 54 94414 SZN ASSTACK,DI DELETE A WORD FROM THE CONTROL STack 
025352 025350 6010 00 9412 TNZ GUMB TRANSFER IF MORE WORDS YO DELETE 
025353 035226 7200 00 9413 LXL0 TSGEN GET CURRENT LENGTH OF GENERATED OUTPUT IN XR - 0 
025354 0253614 1600 60 9414 SBX0 GUMS SUBTRACT LENGTH WHEN ROUTINE WaS ENTERED 
025355 000001 6350 40 9415 EAA 1,0 GET LENGTH OF MODE « LENGTH WORD IN AU 
025356 017474 7000 O40 9116 TSXO GAD AND ADD TO GENERATED OUTPUT 
025357 Go0000 7400 90 9417 GUMX TRA en AND RETURN 
025360 090090 000000 9418 GUMP ZERO 
025361 000000 000009 9449 GUMS ZERO 


025362 0090090 900009 9120 GUMT ZERO 
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025363 025315 0002 40 
025364 000000 Qn0000 
025365 025375 74u0 09 
025366 026540 2360 00 
025367 000003 7560 42 
025370 000002 2360 41 
025371 026549 7860 00 
025372 000002 4500 4&1 

END OF BINARY CARD 00000448 
025373 000003 2200 41 
025374 025377 7400 QO 
025375 000000 2200 93 
025376 000003 7400 $1 
025377 000000 7100 90 
025400 000000 6210 46 
025401 000000 6260 47 
025402 000003 2350 47 
025403 026549 7550 00 
025404 000003 2270 46 
025405 000000 7100 $4 
025406 025441 7400 90 
025407 002623 7000 90 
025410 025412 9005 40 
025411 000000 7400 90 
025412 015042000000 
025413 000060 0760 97 
025414 025420 7400 00 
025415 025424 7560 00 
025416 0092625 7000 90 
025417 025424 on02 43 
025420 000000 7400 00 

END OF BINARY CARD 00000449 
025421 000000 000000 
025422 025463 7400 90 
025423 025642 2350 00 
025424 025611 7550 00 
025425 000044 7370 00 
025426 106000 44140 03 
025427 000000 57350 60 
025439 025436 6050 00 
025434 000055 2360 07 
025432 025641 7560 52 
025433 090000 2360 97 
025454 000000 5450 00 
025455 025441 7400 90 
025436 000040 2360 97 
025437 0256411 7560 52 
025440 000000 2360 07 
025441 000400 4750 03 
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9121 
9422 
9123 
9424 
9425 
9126 
9127 
9128 
9129 


9130 
9434 
9132 
9433 
9134 
9135 
9136 
9437 
9438 
9139 
9140 
9141 
9142 
9443 
91444 
9148 
9146 
9447 
9448 
9449 
9450 
9454 


9452 
94153 
9454 
9155 
9156 
9457 
91456 
9459 
9160 
9161 
9162 
94163 
9164 
9465 
9166 
9167 
9168 


GUMTL 
GUMT4 


ENTER 


ENT4 


ENT2 
RET 


CRLF 


CRLF X 
CRLFC 
B08L 
CHAR 


CHARX 


CHART 
INT 


INTL 


INT2 


TALLYB 
ZERO 
HEAD 
STX0 
LDQ 
STQ 
,DQ 


S$TQ 


STZ 


LDxo 
STX0 
LDXO 
STXO 
TRA 
BAX! 
EAX 
LDA 
STA 
DX 
TRA 
STXO 
TSX0 
TALLYB 
TRA 
ocr 
aDQ 
STX0 
$7 
TSXO 
TALLYB 
TRA 


ZERO 
STX0 
LDA 
STA 
LLS 
LDE 
FNQ 
TPL 
4.20 
STQ 
LDQ 
FNEG 
TRA 
LDQ 
STQ 
LDQ 
FAD 


PASS 3 


GUM44,2,0 


CRLFC,S 


015012060000 


e0060,DL 
CHARX 
CHart 
$TTB 
CHART ,2,35 
*% 


INTX 

QUT? 

OUT 

56 
235525,BU 


INT4 
20055,DL 
OUT, SC 
0,DL 


INT? 
20040,DL 
OUT,SE 
ODL 
=0,5,DU 
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SAVE RETURN 

GET CURRENT ENVIRONMENT DESCRIPTOR IN Q 

AND STORE IN NEW ENVIRONMENT 

GET NEW ENVIRONMENT DESCRIPTOR IN Q 

AND STORE aS CURRENT ENVIRONMENT DESCRIPTOR 


ZERO OUT DESCRIPTOR JN MSCW FOR GARBAGE COLLECTOR 


GET ENTRY ADDRESS IN XR @ O 

AND Savé 

GET RETURN ADDRESS [IN XR &- 0 

AND SAVE IN OLD MSCW 

GO TO ENTRY LOCATION 

SAVE REYURN ADDRESS IN XR @ 4 

CUT BACK STACK TO D REGISTER LOCATION 
GET OLD ENVIRONMENT DESCRIPTOR IN a 
AND MAKE IF CURRENT ENVIRONMENT DESCRIPTOR 
RESTORE OLD D REGISTER CONTENTS 

AND RETURN 

SAVE RETURN 

OUTPUT CARRIAGE RETURN + LINE FEED 


AND RETURN 


TURN BOOLEAN VALUE INTO AN INTGGER CHARACTER 
SAVE RETURN 

SAVE CHARAOGTER 

OUTPUT CHARACTER 


AND RETURN 


SAVE RETURN 

GET JINIVfak TALLY WORD IN A REGISTER 
AND INIVIALIZE OUTPUT TALLY WORD 
MOVE ARGUMENT TO A REGISTER 

MAKE IT FLOATING POINT 

AND NORMALIZE IT 

TRANSFER {fF POSITIVE NUMBER 

GET A MENUS SIGN 

AND STORE JN OUTPUT BUFFER 
RESTORE Q REGISTER 

MAKE INTEGER POSITIVE 

AND CONTINUE 

GET A SPACE 

AND STORE JN OUTPUT BUFFER 
RESTORE Q REGISTER 

ROUND INTEGER TO AVOID ROUNDOFF 
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END 


END 
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R 
025442 025464 56/0 OU 
025443 025696 75/0 Ou 
025444 000013 2210 O85 
025445 025567 7900 OU 
025446 000001 1610 43 
OF BINARY CARD Q00U0U450 
025447 025445 6010 OU 
025450 025612 2360 00 
025451 025611 7560 OV 
025452 000040 2350 97 
025453 000060 2360 97 
025454 025611 0110 S2 
025455 025611 1160 §0 
025456 025461 6010 00 
025457 025611 7550 52 
025469 025455 7400 oY 
025461 092623 7n00 QQ 
025462 025613 9016 409 
025463 090000 7400 Ov 
025464 
025464 112564416672 
025465 000000000000 
025466 000000 G00000 
025467 0255614 7400 80 
025479 0256142 2360 00 
025471 025611 7560 09 
025472 090000 2360 97 
025473 025562 4590 OU 
025474 025563 4590 00 
OF BINARY CARD 90000451 
025475 090000 5730 G0 
025476 025513 6000 90 
025477 002400 4250 93 
025500 025504 6080 00 
025501 010500 4610 Q% 
025502 025562 9540 00 
025503 025477 7400 00 
025504 025564 567n 40 
025505 025563 0540 00 
025506 002400 4250 93 
025507 025504 6050 00 
025519 730414 4750 oS 
025511 002400 4250 93 
025512 025504 6950 00 
025513 025606 7870 09 
025514 090000 5730 oY 
025515 025524 6050 00 
025516 0090055 2350 07 
025517 025611 7550 52 
025520 025606 2370 00 
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9169 
9170 
9471 
9172 
9173 


9174 
9475 
9176 
91477 
9478 
9479 
9180 
9184 
94182 
9183 
9184 
9185 
9166 
9487 
9168 


9189 
94190 
9491 
9492 
94193 
9494 
9495 


9496 
9497 
9498 
9499 
9200 
9204 
9202 
9203 
9204 
9205 
9206 
9297 
9208 
9209 
9210 
9214 
9212 
9243 
9214 


9215 


INTS 


INT4 


INTS 
INTX 


TLYN 


REAL 


REAL 


REAL2 


REALS 


DF DV 
STAQ 
LDX1 
TSx0 
SBX1 


TNZ 
LDQ 
STQ 
LDA 
LDa 
NOP 
CMPQ 
INZ 
STA 
TRA 
TSX0 
TALLYB 
TRA 
EVEN 
DEC 


ZERO 
STX0 
LDQ 
$TO 
LD@ 
STZ 
STZ 


FNO 
TZE 
FOMG 
TPL 
FMP 
AOS 
TRA 
DFDV 
AOS 
FCMG 
TPL 
FAD 
FCMG 
TPL 
STaQ 
FNO 
TPL 
LDA 
STA 


DAQ 


20040,DL 
30060,DL 
QUT,SC 
OUT,CY 
INTS 
OUT,S¢ 
JNT4 
$TTB 
QUTB,14 
on 


1D11 


REALX 
OUTY 
OUT 
O,DL 
REL 
RE2 


REALS 
24,9-2DU 
REAL2 
#10,0,DU 
REL 
REALL 
RTEN 

RE2 
™41,0,DV 
REAL2 


=0,0000005,0U 


£1,9,DVU 
REAL2 

DN 

REAL4 
20055,DL 
OUT,SC 


DN 


PAGE 


DIVIDE BY 10041 

AND STORE AS NUMBER TO CONVERT 
PREPARE YO OUTPUT ELEVEN DIGITS 
CONVERT A DIGIT 

DECREMENT NUMBER LEFT TO CONVERT 


TRANSFER IF MORE TO CONVERT 
GET INITIAL TALLY WORD 

AND INITIALIZE OUTPUT TALLY WORD 
GET a SRaCE IN a REGISTER 

GET A ZERO IN Q REGISTER 

SKIP OVER SIGN 

SEE JF LEADING VERO 

TRANSPER {Ff NOT 

CHANGE LEADING ZERO TO a SPACE 
AND | Q0P 

PRINY [NTEGER 


AND RETURN 


SAVE RETURN 

GET JNIVIAL TALLY WORD 

AND [INITIALIZE OUTPUT TALLY WORD 
RESET Q REGISTER 

ZERO OUT NEGATIVE EXPONENT CoUnT 
ZERO OUT POSITIVE EXPONENT COUNT 


CHECK SIGN OF NUMBER 

TRANSFER !'6 ZERO 

CHECK StZE OF NUMBER 

TRANSFER IF GREATER THAN ONE 
MULTIPLY BY TEN 

INCREMENT NEGATIVE EXPONENT COUNT 
AND OOP 

DIVIDE BY TEN 

INCREMENT? POSITIVE EXPONENT COUNT 
CHECK S{$ZE OF NUMBER 

LOOP IF BIGGER THAN ONE 

ADD ROUND CONSTANT 

SEE [F ROUNDING OVERFLOWED NUMBER 
TRANSFER {Ff OVERFLOWED 

SAVE NUMBER TO BE CONVERTED 

CHECK SIGN OF NUMBER 

TRANSFER IF POSITIVE 

GET A MINUS SIGN 

AND STORE IN OUTPUT BUFFER 


GET NUMBER TO CONVERT 
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R PASS 3 
025521 000090 54350 00 9216 PNEG MAKE IT POSITIVE 
025522 025606 7570 Ou 9217 STAQ DN AND STORE NUMBER TO CONVERT 
END OF BINARY CARD Q0UnN0452 
025523 025526 7100 QU 9218 TRA REALS AND CONFINWE 
025524 000040 2350 07 9249 REALS LDA #0040,DL GET A SPace 
025525 025611 7550 52 9220 STA OUT,SC AND STORE JN OUTPUT BUFFER 
025526 0900056 2350 97 9221 REAL5 LDA 20056,DL GET A DECIMAL POINT 
025527 025611 7550 52 9222 STA OUT,SC AND STORE IN OUTPUT BUFFER 
0255350 090006 2210 a3 9223 LDX4 6, Dt GET NUMBER OF DIGITS TO CONVERT IN XR # 4 
025531 025567 7n00 Oy 9224 REAL6 TSXO DIG CONVERT a DIGIT 
025532 000001 1610 O35 9225 SBX4£ 1,00 DECREMENT NUMBER OF DIGITS LEFT TO CONVERT 
025533 025534 6049 40 9226 TNZ REAL6 TRANSFER IF MORE TO CONVERT 
025534 0090049 2360 07 9227 LDQ ®0040,DL GET A SPACE 
025535 025611 7560 32 9228 $TQ OUuUT,SC AND STORE JIN OUTPUT BUFFER 
025536 00900105 2360 07 9229 LDQ =01405,0L GET A LETYER ter 
025537 025611 7560 52 9230 $TQ QUT,SC AND STORE IN OUTPUT BUFFER 
025549 025563 2360 09 9231 La RE2 GET POSITIVE EXPONENT COUNT 
025541 025562 1760 40 9232 $BQ REL SUBTRACT NEGATIVE EXPONENT COUNT 
025542 025545 6040 00 9233 YM] REAL? TRANSFER YF NEGATIVE EXPONENT 
025543 000040 2350 07 9234 LDA 80040,DL GET A SPAGE 
025544 025547 7409 uv 9235 TRA REALS AND CONTINUE 
025545 d90000 5350 Og 9236 REAL7 NEGL MAKE EXPONENT POS{tTIVE 
025546 0090055 2350 97 9237 LDA s0055,LL GET A MINUS SIGN 
025547 0256141 7550 52 9238 REALB STA OUT,SC AND STORE IN OUTPUT BUFFER 
025550 000044 7370 00 9239 LLS 36 GET EXPONENT IN A REGISTER 
END OF BINARY CARD 00000453 

025551 1096000 4119 QS 9240 DE ®35825,By MAKE JT FLOATING POINT 
025552 000400 4750 OS 9244 FAD 20,5,Db ADD ROURD CONSTANT 
025553 046629 5450 93 9242 FDV ©£100,0,D0u DIVIDE By 100 
025554 025606 7870 O0 9243 STAQ DN AND STORE NUMBER TO CONVERT 
025555 025567 7n00 90 9244 TSX0 DIG CONVERT A DIGIT 
025556 025567 7n00 0 9245 TSXO DIG CONVERT a DIGIT 
025557 002623 7000 90 9246 TSX0 $TTB QUTPUT FLOATING POINT NUMBER 
025569 025613 0017 49 9247 TALLYB OUTR,45 
025561 0090000 7100 00 9248 REALX TRA en AND RETURN 
025562 090000 000008 9249 REY ZERO 
025563 000000 On00u8 9250 REQ ZERO 

025564 92514 EVEN 
025564 010500000000 9252 RTEN DEC 1D1 
025565 od00000000N0N 
025566 000000 on0000 9253 ZERO 
025567 025696 2370 0 9254 DIG LDAG DN GET NUMBER TO CONVERT IN EAQ RGGISTER 
025570 040500 4610 93 9255 FMP 210,0,DU GET NEXT DIGIT aS INTEGRAL PaRT 
025574 025606 7570 00 9256 STAOQ DN SAVE NUMBER 
025572 025610 4560 00 9257 STE DE SAVE EXPONENT 
025573 216000 4350 O¢ 9258 UFA =71825,DU GET DIGIT IN OL 
025574 000060 0760 07 9259 ADQ =0060,DL ADD ASCH! ZERO 
025575 025611 7560 Se 9260 STO OUT;SC STORE DIGIT IN OUTPUT BUFFER 
025576 0000690 1760 07 9264 SBQ =0060,DL RESTORE DIGIT IN Q@ REGISTER 


END OF BINARY CARD 00000454 


01557 


END 


END 


04 95°26-72 17,863 
R 
025577 Ug0000 57450 OU 
025600 u256N6 67/0 ng 
025601 U25610 4419 00 
025602 Go00N0 57350 ay 
025603 U25606 7570 OO 
025604 v0N000 7400 10 
025605 000000011007 
025606 
025606 000000000000 
025607 Unn000000000 
025610 U00000 Q00N009 
025611 000000 aououd 
025612 0256143 0000 44 
025613 04004004004y 
025614 040049040040 
025615 040040040040 
025616 040040040040 
025617 040040040040 
025620 04004004004u 
025621 025732 7400 90 
025622 000002 2200 £1 
025623 025646 6010 90 
025624 0090000 6240 $1 
OF BINARY CARD 00000455 
025625 090002 2210 44 
025626 000003 2220 44 
025627 000002 2360 21 
025630 000002 1160 42 
025654 777777 6010 00 
025632 000003 2360 $1 
025633 000003 1160 12 
025634 777777 6010 00 
025635 090004 06140 03 
025656 000004 0620 03 
025657 090001 4650 93 
025640 025627 6010 00 
025644 000002 2210 44 
025642 000001 U610 a3 
025643 000003 2220 44 
025644 090001 0620 93 
025645 025732 7400 00 
025646 025733 7410 00 
025647 025734 7420 00 
025650 025735 7430 OY 
025651 025736 4440 00 
025652 025735 2360 00 
OF BINARY CARD 00000456 
025653 000002 7360 OO 
025654 000001 6360 92 
025655 025737 7560 00 


ALGOL68 


9262 
9263 
9264 
9265 
9266 
9267 


9268 
9269 


9270 
9271 
9272 
9273 


9274 
9275 
9276 
9277 


9278 
9279 


9260 
9281 
9262 
9283 
9284 
9265 
9266 
9267 
9268 
9289 
9290 
9294 
9292 
9293 
9294 
9295 
9296 
9297 
9298 
9299 


9300 
9304 
9302 


DN 
DE 
Oyr 
OUT] 
OUFB 


ACHEK 


ACHY 


ACHKX 
ACH2 


FNO 
ERAQ 
DE 
FNO 
STAQ 
TRA 


EVEN 
OCT 


ZERO 
ZERO 
TALL YB 
YASC] 


$TX0 
LDXO 
TNZ 

EAX4 


DX4 
LDX2 


pa 
CMPOQ 
INZ 
DQ 
CMPO 
YNZ 
ADX4 
ADX2 
SBX3 
TNZ 
LDX4 
ADX4 
LDX2 
ADX2 
TRA 
STX4 
S7X2 
$TX3 
SXL4 
LDQ 


QLs 
EAQ 
STQ 


PASS 3 
DN 
DE 


DN 
0,0 


0,0 


OUTR Oat 
6, 


PAGF 2i0 


GET FLOATING INTEGER PAFT 

GET FRACTION PART IN EAG 

FIX EXPONENT IF DIGIT waS ZERO 
NORMALIZE NUMBER 

AND STORE NUMBER TO CONVERT 
AND RETURN 


SAVE RETURN 

CHECK DESCRIPTOR FLAG WORD 

TRANSFER IF DESTINATION IS FLEXIBLE 

GET POINTER TO MARK STACK WORD IN XR = 4 


GET POJNTER TO DESTINATION DESGRIPTOR IN XR = 4 
GET POINTER TO SOURCE DESCRIPTOR IN XR - 2 


GET LOWER BOUND IN DESTINATION 

COMPARE WITW LOWER BOUND IN SOURCE 
ERROR » BOWNDS aRE DIFFERENT 

GET UPPER BOUND IN DESTINATION 

COMPARE WITH UPPER BOUND IN SOURCE 
ERROR » BOUNDS ARE DIFFERENT 

STEP TO NEXT QUaD IN DESTINATION DESCRIPTOR 
STEP TO NEXT QUAD IN SOURCE DESCRIPTOR 
DECREMENT NUMBER OF DIMENSIONS LEFT 
TRANSFER {If MORF DIMENSIONS TO CHECK 
GET POINTER TO DESTINATION DESCRIPTOR 
MAKE IT POINT To FIRST ELEMENT POINTER 
GET POINTER TO SOURCE DESCRIPTOR 

MAKE [7 POINT To FIRST ELEMENT POINTER 
AND EXI? 

SAVE POINTER TO MARK STACK WORD 

SAVE ELEMENT LENGTH 

SAVE DIMENSION OF ARRAYS 

SAVE TYPE QF ELEMENT OF ARRAYS 

GET DIMENSION OF ARRAYS IN Qu 


MULTIPLY By 4 
AND ADD ONE 
AND SAVE IN MEMORY 
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R PASS 3 
025656 000000 6360 $2 933 EAQ 0,2 GET LENGTH OF ELEMENT IN QU 
025657 025740 7560 00 9304 STQ ACHTL AND STORE JN MEMORY 
025660 000003 2240 41 9305 LDx4 344 GET POINTER TO SOURCE DESCRIPTOR IN XR = 4 
025661 000003 2360 14 9306 ACH3 {DG 344 GET UPPER BOUND IN @ REGISTER 
025663 000001 0760 47 9308 ADQ 1,DL AND CALCULATE (UeLet) 
Mere be ee eet aD 9310 STQ CHT AND STORE AS SIZE OF THIS DIMENSION 
025666 000004 0640 03 9311 ADXA 4,DuU STEP TO NEXT QUAD 
meebo? “O0000L. seen ae 9342 SBX3 1, DU DECREMENT NUMBER OF DIMENSIONS LEFT 
025670 025661 6040 90 9343 TNZ ACH3 TRANSPER IF MORE DIMENSIONS 
aaa fe i te Sa 2918 ADO ACHT ADD YO KENGTH OF NEW ARRAY LENGTH OF DESCRIPTOR 
025672 027211 7560 00 9345 STQ REQ AND STORE SUM AS LENGTH TO REQUEST 
025673 025733 2360 00 9316 LDQ ACHP GET POINTER TO MARK STACK WITH TYPE 
025674 026162 7000 90 9317 TSXO HEAP ALLOCATE SPACE ON THE HEAP 
025677 025737 90750 OU 9320 ADA ACHT ADD LENGTH OF DESCRIPTOR TO POINTER 
025700 000000 7550 $1 9324 STA Ord STORE POINTER TO NEW ARRAY IN NEW DESCRIPTOR 
END OF BINARY CARD 00000457 
025701 025733 22350 ou 9322 | DX3 ACHP GET POINTER TO MARK STACK WORD 
Becca: deena eet Ga anee ayes LDxX4 243 GET POINTER TO DESTINATION DESCRIPTOR IN XR = 3 
nee eee heen, yes STX1 044 STORE POINTER TO NEW DESCRIPTOR IN OLD FLAG WORD 
025704 090003 2220 $3 9325 LDX2 3,3 GET POINTER TO SOURCE DESCRIPTOR IN XR « 2 
pentue, veahas ecoe xy 9327 LDQ = ACH GET DIMENSION OF ARRAYS IN Qu 
025707 0090002 7360 90 9328 as 2 MULTIPLY BY 4 
025711 025737 0640 90 9330 ADX4 ACHT GET POINTER TO END OF DESTINATION DESCRIPTOR IN 4 
Q25722 025757 0620 00 9331 ADX2 = ACHT GET POINTER TO END OF SOURCE DESCRIPTOR IN XR ~ 2 
025713 025734 2360 00 9332 DQ ACHE, GET LENGTH OF ELEMENT IN QU 
025744 025755 2240 00 9333 LDX4 = ACHD GET DIMENSION OF ARRAYS IN XR « 4 
025715 000004 1610 03 9334 ACH4 = SBX4 4,Du DECREMENT DESTINATION POINTER BY ONE QUAD 
Geo7+6 000004 Lend FS 9335 SBX2 4, DU DECREMENT SOURCE POINTER BY ONG QUAD 
025747 000004 4500 $4 9336 STZ 4a4 ZERO OUT DESTINATION STATE WORD 
025720 000003 7560 41 9337 sTq Bet STORE STRIDE IN DBSTINATION QUaD 
Obes vRopOL 7Be0 te ae L094 GET LOWER BOUND OF SOURCE 
pecvee, BO000S ae) ss 755° STG tid AND STORE 17 IN DESTINATION 
25723 ann00e e360 Ae 9340 DG 242 GET UPPER BOUND OF SOURCE 
025724 000002 7560 $1 9344 S70 204 AND STORE JT IN DESTINATION 
025725 000001 1760 $1 9342 SAO tod GET DIFFERENCE BETWEEN LOWER AND UPPER BOUNDS 
025726 000001 0760 97 9343 ADG 4,DL CALCULATE (UsL¢q) 
END OF BINARY CARD 90900u458 
025727 0090003 4n20 414 9344 MPY 3y4 MULTIPLY BY STRIDE 
025730 000001 1640 93 9345 SBx4 1,00 DECREMENT NUMBER OF DIMENSIONS LEFT 
025731 025715 6010 00 9346 TNZ ACH4 TRANSFER IF MORE DIMENSIONS 
025732 0090000 71900 90 9347 ACHX TRA oe AND RETURN WITH XR » 4 AND XR © 2 SET 
U25753 0090000 027255 9348 ACHP ZERO 0, TSMS 
025734 090000 gaovoud 9349 ACHEL ZERO 


025755 000000 000009 9350 ACHD ZERO 


01557 


END 


U1 Uds"20-72 


i 


026736 uo0090 
V25737 vnoodno 
025749 «©00N090 
025741 026007 
025742 v26010 
025743 024011 
025744 026012 
025745 026013 
025746 vupoonoa 
025747 odgnono 
025750 vonnet2 
025754 00003 
025752 00000 
025753 vo0002 
025754 00N001 
END OF BINARY CARD 
025755 026014 
025756 v26044 
025757 026044 
025769 000004 
025764 090004 
025762 0090004 
025763 0090003 
025764 000001 
025765 090001 
025766 090002 
025767 090002 
025770 00N001 
025774 000001 
025772 0090003 
025773 090001 
025774 025744 
025775 027211 
025776 026010 
025777 026133 
026000 026013 
0260014 026019 
026002 000002 
OF BINARY CARD 
026003 d90004 
026004 000003 
026005 0000014 
026006 000000 
026007 000000 
V26040 00n000 
026011 000090 
026012 0090000 
026013 op0080 
026014 000000 
026015 026104 


17,863 


Qounud 


QoudU0 
ynooud 


7400 
7410 
742aN 
7450 
4440 
6360 
6200 
2210 
2220 
6350 
7350 
6350 


00000459 


7550 
0610 
0620 
1610 
1620 
4500 
7560 
2360 
7560 
2360 
7560 
1760 
9760 
4020 
4650 
6910 
7560 
2360 
7000 
0750 
22350 
2240 


00000460 


0630 
2220 


0620 
7590 
7400 


ou 
ont) 
00 
00 
00 
12 


00 
OU 
00 
oi) 
QS 
41 
41 
12 
41 
12 
ii 
41 
07 
£1 
0S 
00 
00 
00 
90 
00 
00 
10 


QS 


0272595 
Qeg000 
on0cu0 
000000 
g00000 


4500 


00 


ALGOL68 


9351 
9352 
9353 
9354 
9355 
9356 
9357 
9358 
9359 
9360 
9361 
9362 
9363 
9364 
9365 


9366 
9367 
9368 
9369 
9370 
9371 
9372 
9373 
9374 
9375 
9376 
9377 
9378 
9379 
9380 
9384 
9382 
9383 
9384 
9385 
9386 
9387 


9388 
9389 


9390 
9391 
9392 
93938 
9394 
9395 
9396 
9397 
9398 


ACHTP 
ACHT 
ACHTA 
ARS 


APS1 


AF SX 
AFSP 
AF SEL 
AFSD 
AFSTP 
ARST 
RLGEN 


ZERO 
ZERO 
ZERO 
STXO 
STX4 
STx2 
STX3 
SXL4 
EAQ 

EAXO 
LDX4 
LPXx2 
EAA 

ALS 

EAA 


STA 
ADX4 
ADX2 
Sexi 
SBX2 
S7Z 
STQ 
LDQ 
$TQ 
Do 
STQ 
SBQ 
ADQ 
MPY 
$BX3 
TN2Z 
STQ 
LDQ 
TSXO 
ADA 
LDx3 
LDX1 


ADX4 
LDX2 


ADX2 
STA 
TRA 
ZERO 
ZERO 
ZERO 
ZERO 
ZEKO 
$7z 


RGNF 


PAGE 212 


SAVE RETURN 

SAVE POINTER TO MARK STACK WORD 

SAVE LENGTH OF ARRAY FLEMENT 

SAVE DIMENSION OF ARRAY 

SAVE TYPE OF ELEMENT 

GET ELEMENT LENGTH IN QU 

GET POINTER TO MARK STACK WORD IN XR = Q 
GET POINTER TO DESTINATION DESCRIPTOR IN XR w 4 
GET PCINTER TO SQURCE DESCRIPTOR IN XR ~ 2 
GET DIMENSJON OF ARRAY IN AU 

MULTIPLY BY 4 

AND ADD ONE 


AND STORE [N MEMORY 

GET POJNTER TO END OF DESTINATION DESCRIPTOR IN 4 
GET POINTER TO END OF SOURCE DESCRIPTOR IN XR ~ 2 
BACK UP ONE QUAD IN DESTINATION DESCRIPTOR 

BACK UP ONE QUAN IN SOURCE DESGRIPTOR 

SET STATE WORD TO FIXED 

INITIALIZE STRIDE 

GET SOURCE LOWER BOUND 

AND STORE JIN DESTINATION LOWER BOUND 

GET SOURCE UPPER BOUND 

AND STORE JN DESTINATION UPPER BOUND 

SUBTRACY? LQWER ROUND 

CALCULATE (UeLoq) 

MULTIPLY BY STRIDE 

DECREMENT NUMBER OF DIMFNSIONS LEFT 

TRANSFER {fF MORE DIMENSIONS LEFT 

STORE LENGTH OF ARRAY AS NUMBER OF WORDS NEEDED 
GET POINTER TO MS WORD WITH TYRE IN Q 

ALLOCATE SPACE FOR ARRAY ON STACK 

ADD TYPE OF ELEMENT 

GET POINTER FO MARK STACK WORD 

GET POINTER TO DESTINATION DESCRIPTOR IN XR = 4 


STEP OVER FLAG WORD 
GET POINTER TO SOURCE DESCRIPTOR IN XR - 2 


STEP OVER FLAG WORD 
STORE POINTER To FIRST ELEMENT IN DESCRIPTOR 
AND RETURN WITH XR # 4 AND XR © 2 SET 


SET FLAG INDICATING LOCAL GENERATOR 
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R PASS 3 
026016 026020 7100 OU 9399 TRA RGN CONTINUE 
026017 026194 7500 OO 9400 RHGEN STC? RGNF SET FLAG INDICATING HEAP GENERATOR 
026020 026102 74U0 Sy 9401 RGN STX0 RGNX SAVE RETURN 
026021 026110 7410 OV 9402 STX1 RGNP SAVE MARK STACK WORD POINTER 
026022 026111 7420 00 9403 STX2 RGNA SAVE POINTER YO FLAG WORD OF ARRAY DESCRIPTOR 
026023 026195 745n OO 9404 STX3 RGND SAVE DIMENSION OF ARRAY 
026024 026106 4440 OU 9495 SXi4 RGNTP SAVE TYPE OF ELEMENT OF ARRAY 
026025 009003 2360 42 9406 LDQ 3,2 GET FIRST WPPER BOUND OF ARRAY 
026026 000002 1760 t2 9407 SBQ 212 SUBTRACT FIRST LOWER BOUND OF ARRAY 
026027 000001 0760 07 9408 ADQ 1,DL CALCULATE (UsLe4) 
026030 090004 4020 42 9409 MPY 4,2 MULTIPLY BY FIRST STRIDE TO GET LENGTH OF ARRAY 
END OF BJNARY CARD 00000461 
026031 027211 7560 09 9410 STQ REQ AND STORE AS LENGTH TO REQUEST 
026032 000000 2350 Q3 9444 LDA Q,Du INITIALIZE A WITM A ZERO 
0260533 090095 2750 {2 9442 RUNL ORA 5,2 OR TO A STATE IN QUAD 
026034 00N004 0620 O58 9443 ADX2 4,DuU STEP TO NEXT QUAD 
026035 000001 16350 93 9444 SBX3 4. Du DECREMENT NUMBER OF DIMENSIONS LEFT 
026036 026033 6010 OD 9445 TNZ RGNq TRANSFER IF MORE DIMENSIONS TO DO 
026037 026103 7550 OO 9416 STA RGNS STORE S¥aTg& TYPE OF ARRAY IN MEMORY 
026040 026112 2360 O69 9447 LDQ RGNTG GET POINTER TO LIST STRUCTURE TO COLLECT 
026041 026104 2340 09 9418 $ZN RGNF SEE IF LOCAL OR HEAP GENERATOR 
026042 026045 6010 00 9419 TNZ RGN? TRANSPER IF HEAP 
026043 026133 7000 O09 9420 T8X0 Oc CALL LOCAL GENERATOR 
026044 026046 7400 AU 9424 TRA RGN3 AND CONTINWE 
026045 026162 7000 90 9422 RGN2Q TSX0 HEAP CALL MEAP GENERATOR 
026046 026106 0750 00 9423 RGNZ ADA RGNYTP ADD ELEMENT TYPE TO ARRAY POINTER 
026047 026111 2220 00 9424 LDx2 RGNA GET POINTER TO DESCRIPTOR IN XR = 2 
026050 000004 7550 142 9425 STA 4,2 AND STORE POINTER TO ARRAY IN DESCRIPTOR 
026051 026403 2340 00 9426 SZN RGNS CHECK STATE TYPE OF ARRAY 
026052 026057 6010 09 9427 YNZ RGN4 TRANSFER IF FLEXIBLE 
026053 026111 2220 O50 9428 LDX2 RGNA GET POJNTER TO CALCULATED DESCRIPTOR 
026054 000000 2200 03 9429 LDXO 0, Du GET A HALF WORD ZERO 
026055 000000 7400 42 9430 $STX0 0,2 AND STORE JN FLAG WORD OF DESCRIPTOR 
026056 026402 7400 00 9434 TRA RGNX AND EX]? 
END OF BINARY CARD 00000462 
026057 026111 2220 00 9432 RGN4 L.DXxX2 RGNA GET POINTER TO CALCULATED DESCRIPTOR 
026069 000000 221 12 9433 LOX4 0,2 GET POINTER TO aLLOCATED DESCRIPTOR 
026061 000000 4500 4&1 9434 STZ Ort INITEALEZE FLAG WORD IN ALLOCATED DESCRIPTOR 
026062 00001 0610 O38 9435 ADX4 1,DuU STEP OVER FLAG WORD 
026063 000001 0620 03 9436 ADX2 1,DU MAKE BOTH INDEX REGISTERS POINTER FO C WORD 
026064 026105 2250 00 9437 LDX3 RGND GET DIMENSION OF ARRAY IN XR «@ 3 
026065 0090000 2360 {2 9438 LDQ 0.2 GET ORIGINAL € WORD 
026066 0090000 7560 £1 9439 STQ Ord AND MOVE TO NEW DESCRIPTOR 
026067 000090 4500 42 9440 STZ 0,2 ZERO OUT ORIGINAL POINTER WORD 
026070 090001 2360 42 9441 RGN5 LDQ 1,2 GET OLD LOWER BOUND 
026071 00001 7560 11 9442 STQ lei AND STORE JN NEW LOWER BOUND 
026072 000002 2360 12 9443 DQ 2,2 GET OLD UPRER BOUND 
026073 000092 7560 11 9444 STQ 2a1 AND STORE JN NEW UPPER BOUND 
626074 000003 2360 12 9445 DO 312 GET OLD STRIDE 


026075 000093 7560 11 9446 STQ Sei AND STORE IN NEW STRIDE 


61557 


END 


END 


U4 05"26+72 
R 

026076 Ugton4 -¢ 
026077 00n0n4 
026100 o0n0%1 
026101 026070 
026102 000000 
026103 ogno0no0 
0261404 vgoono 
OF BINARY CARD 
0261405 0900090 
026106 000000 
026107 O900N0 
0261410 009000 
026111 000000 
026112 426110 
026413 027216 
026414 027216 
026415 777775 
0261416 026422 
026117 027211 
026120 026422 
026124 026133 
026122 0090000 
0261423 027215 
0261424 0272147 
026125 027215 
026426 027215 
026427 777773 
026130 026150 
026451 027211 
0261452 026150 
Of BINARY CARD 
026133 026225 
026134 0090000 
026135 027211 
026136 027204 
026137 0262143 
026140 027241 
026141 026537 
026142 026226 
0261443 090000 
026144 027241 
026145 027204 
026146 777777 
026147 026213 
026150 0090000 
026151 000000 
026152 090000 
026153 026151 
026154 027216 
026155 027216 


17,808 


QgQaunuo 
77/776 
7410 OV 
7429 Ov 
2360 00 
7400 QU 
026123 
000000 
g000U0 
000000 
gn0n00 
777774 
7440 00 
7420 00 
2360 90 
00000464 
7400 QU 
6350 16 
0660 00 
14060 OD 
6020 00 
1660 00 
7560 90 
7000 90 
6350 16 
0660 00 
1060 00 
6050 00 
7400 00 
027240 
000000 
000000 
026154 
g09009 
000000 
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9447 
9448 
9449 
9450 
9454 
9452 
9453 


9454 
9455 
9456 
9457 
9458 
9459 
9460 
9461 
9462 
9463 
9464 
9465 
9466 
9467 
9468 
9469 
9470 
9474 
9472 
9475 
9474 
9475 


9476 
9477 
9478 
9479 
9480 
9484 
9462 
9483 
9464 
9485 
9486 
9487 
9468 
9489 
9490 
9494 
9492 
9493 
9494 


RGNX 
RGNS 
RGNF 


RUND 
RUNTP 
RGNT 
KGNP 
RUNA 
RGNTG 


PLGEN 


P\L.GNP 


LGEN 


LUC 


LGENP 
LOCP 
LOCD 
LOCT 


LNG 
STQ 
SBX3 
TNZ 
TRA 
ZERO 
ZERO 


ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
STX4 
STX2 
LDQ 

TRA 

ZERO 
ZERO 


ZERO © 


ZERO 
ZERO 
ZERO 
STX4 
$TX2 
DQ 


STX0 
EAA 
ADX 
CMPX 
TNC 
SBXx 
STQ 
TSXo0 
EAA 
ADX 
CMPX 
TRC 
TRA 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 


PASS 3 


4,2 
4,1 
1,D0uU 
RGN5 
on 


0, TSMS 


RGNP, #44 
TESWPTR 
TESWPTR 
7274 4°2 
PLGNP 
REQ 
PLGNP 
oc 
Osaal 
TSPTR 
TSOCT 
TSPTR 
TSPTR 
wAwyyn4 
LGENP 
REQ 
LGENP 


ZERX 
0.8 
$,REQ 
SeSMAX 
ZER 
S,REQ 
GP 

G 

0.5 
$,REQ 
SERROR 
ZER 

0, TSPTRT 


LOCP,aef 
TSWPTR 
TEWPTR 


PAGE 214 


GET OLD STATE 

AND STORE IN NEW STATE 

DECREMENT NUMBER OF DIMENSIONS LerFT TO DO 
TRANSFER JF MORE TO DO 

AND RETURN 


STORE POINTER TO MSCW WORD 

STORE NUMBER OF WORDS REQUESTED 
GET POJNTER TO MEMORY TO MARK IN Q 
GO ALLOCATE MEMORY 


STORE POINTER TO MARK STaCK WORD 
STORE NUMBER OF WORDS REQUESTED 
GET POINTER TO MEMORY TO MARK IN Q 


SAVE RETURN 

GET STACK POINTER IN AY 

INCREMENT STACK POINTER BY AMOUNT OF REQUEST 
SEE IF S¥ACK POINTER OVERLAPS HEAP 

NO » POINTER IN AU @ GO ZERO IT OUT 

RESTORE STACK POINTER 

AND STORE 

GARBAGE COLLECT AND ALLOCATE MEMORY 

GET STACK POINTER IN AU 

INCREMENT STACK POINTER BY AMOUNT OF REQUEST 
SEE IF STACK POINTER OVERLAPS WEAP 

YES © GARBAGE COLLECTOR ERROR 

GO ZERQ OUT MEMORY 


01557 U1 0526072 
R 
026456 777775 
026157 026204 
026160 027241 
ENO OF BINARY CARD 
026161 026204 
026162 026225 
026163 027204 
026164 027241 
026165 027204 
026166 000000 
026467 027204 
026170 026213 
026171 027214 
026472 027204 
026473 026537 
026174 026226 
026175 027204 
026176 027241 
026177 027204 
026200 000000 
026201 027204 
026202 777777 
026203 026213 
026204 090000 
026205 0090000 
026206 0900090 
END OF BINARY CARD 
026207 026205 
026210 027216 
026211 027216 
026212 777775 
026213 000000 
026214 027241 
026215 000010 
0262136 777777 
026217 000000 
0262290 000001 
026221 000000 
026222 000000 
026223 000004 
026224 026224 
026225 090000 
026226 0272144 
026227 026536 
026230 000000 
026251 026544 
026232 026545 
0262353 027200 
026234 00900001 


END OF BINARY CARD 


17,863 


777776 
7440 00 
7420 00 
90000465 
2360 00 
7400 00 
2200 00 
1600 90 
7400 90 
6350 40 
4060 90 
6020 00 
0600 oY 
7400 00 
7560 00 
7000 00 
2200 00 
1600 00 
7400 00 
6350 40 
1060 00 
6030 00 
7400 90 


gogogg 
00000466 
026219 
000000 
000000 
777776 
62140 04 
2360 00 
7720 OO 
6000 00 
6200 06 
1760 07 
5202 04 
4500 44 
1760 93 
6050 00 
7400 90 
74900 60 
4590 O09 
6250 00 
2360 00 
4590 00 
2219 00 
3350 07 


00090467 


ALGOL68 


9495 
9496 
9497 


9498 
9499 
9500 
9501 
9502 
9593 
9304 
9505 
9506 
9807 
9508 
9599 
9510 
95414 
9542 
93413 
9544 
9515 
95416 
9547 
9548 
9549 


9520 
9521 
9522 
9523 
9524 
9525 
9326 
9527 
9528 
9529 
9330 
9331 
9532 
9533 
9534 
9535 
9536 
9537 
9538 
9539 
9540 
9844 


MUEN 


HEAP 


HGENP 
HEAPP 
MEAPD 


HEAPT 


ZER 


ZER1 
ZERX 
G 


bd 


ZERO 
STX4 
STX2 


LDQ 
STXo 
DX 
SBx0 
STXO 
EAA 
CMPX 
TNC 
ADXO 
STX0 
ST7Q 
T8X0 
4 DX0 
SBX0 
STXo 
EAA 
CMPX 
TRC 
TRA 
ZERO 
ZERO 
ZERO 


ZERO 
ZERO 
ZERO 
ZERO 
EAX4 
LDQ 
QRL 
TZE 
EAXO 
$80 
RPTX 
$TZ 
SBQ 
TPL 
TRA 
STX0 
STZ 
EAX3 
LDQ 
STZ 
LDX4L 
LCA 


PASS 3 


w2eayn2 
HGENP 
REQ 


HGENP 
ZERX 
SMAX 
REQ 
SMAX 
0,0 
S,SMAX 
ZER 
REQ 
SMAX 
GP 


0, TSPTRY 


HEAPP,#4a1 


TSWPTR 
TSWPTR 
~2°4,"2 
0,AU 
REQ 
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STORE POINTER TO MARK STACK WORD 
STORE NUMBER OF WORDS REQUESTED 


GET POINTER TO MEMORY TO MARK IN Q 

SAVE REFURN 

GET POINTER YO BASE OF HEAP IN XR ~ Q 
DECREMEN?T BASE BY AMOUNT OF REQUEST 

AND STORE DECREMENTED POINTER IN BASE POINTER 
GET POINTER TO NEW MEMORY IN AU 

SEE IF STACK POINTER OVERLAPS HEAP 

NO OVERLAP e GO ZERO OUT MEMORY 

RESTORE BASE OF HEAP POINTER 

AND RESTORE IN MEMORY 

AND STORE 

GARBAGE COLLECT AND ALLOCATE MEMORY 

GET POINYER TO BASE OF WEAP IN XR © Q 
DECREMEQT BASE BY AMOUNT OF REQUEST 

AND STORE DECREMENTED POINTER IN BASE POINTER 
GET POJNTER TO NEW MEMORY IN AU 

SEE |F STACK POYNTER OVERLAPS WEAP 

YES » GARBAGE COLLECTOR ERROR 

GO ZERO OUT MEMORY 


GET POINTER TO START OF MEMORY IN XR - 4 
GET LENGTH OF MEMORY IN QU 

POSITION COUNT FOR REPEAT 

LENGTH {S$ ZERO ~ ERROR SOMEWHERE 

GET INIVLAL COUNT IN XR » O 

MAKE LOOP TERMINATE PROPERLY 

ZERO out 

WORDS JN MEMORY JUST ALLOCATED 

ANY MORE FQ DO 

TRANSFER FOR ANOTHER 256 WORDS TO ZERO 
RETURN TO CALLER 

SAVE RETURN 

INITIALIZE FLAG INDICATING MARKING PASS 
INITIALIZE ARRAY CHAIN POINTER 

GET POINTER TO MEMORY TO MARK 

INJTIALYZE BACK POINTER 

GET POINTER TO START OF BIT TABLE IN XR - 1 
GET ALL ONES IN A REGISTER 
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END 


END 


U1 u5"26-72 


k 


026235 ugnono 
026256 von0M1 
026237 On0000 
026240 00N001 
026241 027207 
026242 026237 
026243 026536 
026244 026275 
026245 026546 
026246 027203 
026247 0090000 
026259 026750 
026254 000012 
026252 900002 
026253 000001 
026254 Od0N0N2 
026255 090000 
026256 026261 
026257 000001 
026269 026254 
026264 777776 
026262 777776 
OF BINARY CARD 
026263 026546 
026264 777777 
026265 026546 
026266 026274 
026267 026546 
026279 027203 
026271 026546 
026272 026274 
026273 026546 
026274 026546 
026275 09000 

026276 02640 

026277 090000 
026300 026407 
026301 027216 
026302 026374 
026303 000000 
026304 026407 
026305 027210 
026306 777777 
026307 000015 
026340 000001 
OF BINARY CARD 
026311 027200 
026342 000015 
026313 000000 
026314 020000 


17,863 


7550 
0610 
45qn 
0610 
1n1in 
6010 
2340 
6non 
7560 
2210 
6220 
235n 
7350 
62N0 
1750 
5202 
1020 
6pen 
4750 
6050 
7220 
1620 


00000468 


0420 
7220 
1020 
6050 
7420 
2220 
4020 
6050 
7420 
2360 
6220 
6000 
2220 
6000 
1020 
6000 
6350 
6000 
1750 
6040 
7750 
6210 


00000469 


Q610 
7710 
6200 
2390 


42 
ne) 
11 
03 
00 
du 
OU 
00 
00 
00 
Q2 
Ou 
00 
se) 
07 
04 
£1 
ou 
) 
00 
t1 
$1 


00 
00 
04 
oI) 


ALGOL68 


9542 

9543 

9544 41.5 
9545 

9546 

9547 

9548 L2 
9349 

9550 

9554 

9552 

9553 

9554 

9555 

9556 

9557 L2.1 
9558 

9559 

9560 

9564 

9562 b2.2 
9563 


9564 
9565 
9566 
9567 
9568 
9569 
9570 
9571 
9572 
9573 2.3 
9574 2.4 
9575 
9576 
95377 
9578 
9579 
9580 
9581 
9382 
9883 
9584 
9585 


9586 
9587 
9568 
9589 


b44.5 
TSWPTR,DU 


#0020000,DU 
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AND STORE AT START OF BIT TABLE 

STEP TO NEXT WORD IN RIT TABLE 

ZERO OUT NEXT WORD IN BIT TABLE 

STEP TO NEXT WORD IN BIT TABLE 

SEE IF AT END OF BIT TABLE 

TRANSFER [IF MORE RIF TABLE 

SEE IF SECOND TEME THROUGH MARKING ROUTINE 
TRANSFER IF FIRST TIME - 

SAVE CURRENT POINTER IN MEMORY 

GET PO{NYER TO RELOCATION TABLE IN XR © 4 
GET OLD VaLUVE OF CURRENT POINTER IN XR @ 2 
GET NUMBER OF WORDS IN RELOCATION TABLE IN AL 
POSITION COUNT FOR REPEAT 

GET INIFYAL COUNT AND YNC IN XR & g 

MAKE LOOP END TEST WORK PROPERLY 

SEARCH FOR 

OLD ADDRESS IN RELOCATION TABLE 

TRANSFER {F PROPER ENTRY FOUND 

SEE JF ANOTMER 256 WORDS 70 SEARCH 
TRANSFER IF YES 

GET NEW ABDRESS IN XR & 2 

SUBTRACT OLD ADDRESS YO GET OFFSET 


UPDATE CURRENT POINTER TO NEW VALUE 

GEY STARTING ADDRESS OF NEXT MOVED RALOCK 
SEE JF RELOCATED POINTER {S IN NEXT BLOCK 
TRANSFER IF NOT @ OK 

SET POINTER TO STaRT OF NEXT BLOCK 

GET POINTER TO START OF HEAP BEFORE MOVE UP 
SEE JF ROINTER WAS INTO TWE HEAP 

TRANSFER IF NOT « OK 

SET POINTER TO JUST ABOVE STACK 

AND RESJFORE POINTER IN GO REGISFER 

SEE I[F ¥YPE POINTER JS ZERO 

TRANSFER IF POINTER HAS NO TYPE POINTER 

GEY PATYERN TYPE IN XR ©» 2 

TRANSFER IF POINTER HAS VACUOUS TEMPLATE 

1S TYPE A WORKING POINTER THAT [S NOT MARKED 
TRANSFER {IF YES TO MARK STRUCTURE JF POINTS TO 
GET POINTER TO NEXT WORD TO MARK IW AU 
TRANSFER #488 JF NIL 

SUBTRACT BASE OF COLLECTABLE MEMORY 
TRANSFER !¥F POINTER IS TOO SMALL 

GET BIT WORD IN aL AND BIF IN aU 

GET WORD ADDRESS IN XR & ¢ 


ADD ADDRESS OF BASE OF BIF TABLE 
GET BIT POSITION {N AU 

GET BIT POSITION IN XR = 06 

GET SINGLE BIT IN A REGISTER 
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R PASS 3 
626315 099000 7710 149 9590 ARL 0,0 SHIFT BIT TO BIT POSITION 
026316 27222 1020 O38 9591 CMPX2 TESKIP,DU IS PATTERN A SKIP TYPE 
026317 0246332 6010 Ov 9592 TNZ 42,5 NO - TRANSFER 
026320 Un00MU 7200 06 9593 LXLG 0,48L GET NUMBER OF WORDS TO MARK [IN XR « 3 
026321 vonono 2550 12 9594 L2,7  QRSA U,4 MARK A WORD 
026322 OpN0N1 1600 08 9595 S8X0 1, DU DECREMENT NUMBER OF WORDS LEFT TO MARK 
026323 026401 6nuOo 80 9596 TZE 8 TRANSFER IF ALL MARKED 
02€324 Un00NL 97600 OS 9597 ADQ 1,00 STEP TO NEXT WORD TO MARK 
026325 vonont 7710 00 9598 ARL 1 SHIFT MARKING BIT TO NEXT WORD 
026326 026321 6010 00 9599 TNZ L2,7 TRANSFER IF STILL IN SAME WORD 
026327 020000 2350 06 9600 LDA 20020006,DU GET BIT FOR FIRST BIT IN WORD 
U26350 009001 0610 OS 9601 ADX1 1,uu AND STEP YO NEXT WORD IN BIT TABLE 
026331 0626321 7400 09 962 TRA 2,7 AND LOOP 
026332 O000N0 3450 114 9603 t2,5 CANA Ord SEE JF BIT IS ALREADY SET 
026334 0090000 2550 41 9605 Ls ORSA Ori SET BIT IN BIT TABLE 
026335 027217 1020 OS 9606 CMPX9 TEOcT, DU SEE IF MARKED WORN REFERS TO ANYTHING 
END OF BINARY CARD 00000470 
026357 027220 1020 OS 9608 CMPX2 TSULEN, DY SEE IF POINTER TO UNION 
026340 026352 6010 09 9609 TNZ L5,3 TRANSFER IF NOT POINTER TO UNITED MODE 
026341 026545 7200 00 9410 LXL0 A GEY TYPE OF BACK POINTER IN XR = 0 
026342 026545 7520 07 9611 STCO A,07 STORE TYPE OF CURRENT POINTER IN RACK POINTER 
026343 000022 7370 OV 9612 LUS 18 SAVE CURRENT POINTER IN AL 
026344 090000 2360 05 9613 LO Uy AL GET TYPE OF CURRENT WORD IN QL 
026345 000022 7360 00 9$14 QLs 18 MOVE TO QU 
026346 000022 7350 00 9615 RS 18 RESTORE CURRENT POINTER WITH NeW TYPE 
026347 000000 4400 92 9616 SXLO 0,Qu STORE BACK POINTER TYPE JIN CURRENT WORD 
026350 000001 0760 953 9617 ADQ 1, DU MAKE CURRENT POINTER POINT TO VALUE OF UNION 
026351 026275 7400 00 9618 TRA 244 AND GO MARK UNITED VALUE 
026352 0272214 in20 03 9619 15,3 CMPX2 YSROW,DU JS PATTERN A ROW PATTERN 
026353 026372 6010 00 9620 TNZ 5,8 NO » TRANSFER 
026354 026536 2340 00 9624 SZN LF IS THIS FIRST TIME THROUGH MARKING ROUTINE 
026355 026374 6010 00 9622 TNZ L6 TRANSFER IF SECOND TIME THROUGH 
026356 000000 7200 06 9623 ei) 0,QL GET NUMBER OF DIMENSIONS {N ROW VALUE IN XR # 0 
026357 090004 6210 52 9624 EAX4 4,QuU GET ADDRESS OF FIRST QUAD IN XR = 9 
026360 000000 2350 41 9625 15.7 LDA Or4 GET STATES IN QUAD 
026361 0090043 7750 oO 9426 ALR 35 GET LOWER STATE IN SIGN POSITION 
026362 000021 7340 90 9627 ARS 17 SET UPPER HALF OF A REGISTER T@ LOWER STATE 
026363 000043 7750 OO 9628 ALR 35 GET BOTM STATES IN TOP TWO BITS OF aA REGISTER 
026364 600000 3750 OS 9629 ANA =06n0008,0U MASK OUT aLL OTHER BITS 
END OF BINARY CARD 00000471 
026365 009000 7550 41 9630 STA det AND RESTORE JN STATE WORD 
026366 O09N0N4 9610 O3 9631 ADX14 4,Du STEP TO NEXT QUAD 
U26367 09N004 1600 QS 9432 SRXO 1,DU DECREMENT NUMRER OF QUADS LEFT TO Dn 
026370 026560 6019 00 9633 TNZ L547 TRANSFER IF MORF TO DO 
626371 026374 /10n Ay yYA34 TRA LA GO PROCESS FIRST FLEMENT OF ARRAY 
U26372 0272415 iret Ss 7535 19.8 CMPX2 TSPTR,DU IS PaTTERN TYPE g POINTER TYPE 
C2€373 777777 661: Gu 9436 TNZ ERROR NO »* BAD PATTERN POINTER 


214557 


END 


END 


b4 I5-200e72 


ts 


b2¢375 ve6545 
v2E376 VONNND 
U26377 026545 
U2E400 U26243 
U2¢404 026547 
U26402 ugnong 
U26408 U26275 
026404 026545 
026405 02659 
026406 Ognoandg 
026407 026545 
U26é410 von0cdo 
026411 027220 
U26412 026424 
OF BINARY CARD 
0264143 OQ0f001 
026414 0000N9 
26415 026545 
026416 0090090 
026417 Onn0n0 
026420 09022 
264214 00N000 
026422 000022 
026423 026401 
026424 026545 
026425 026545 
026426 026545 
026427 026545 
0264359 6000000 
026431 027201 
026432 026401 
026433 090000 
026434 Ugnood 
026435 Og00N1 
026436 026401 
026437 0090000 
026440 777777 
OF BINARY CARD 
026441 090000 
026442 777776 
026443 777775 
026444 000000 
026445 d0nN0N2 
026446 026374 
026447 026546 
026450 090000 
026454 777777 
026452 690090 
026453 vuonono 
026454 026546 


17,95 


7500 
2360 
7559 
7400 
0760 
234n 
6050 
2340 
60gn 
0760 
72y0 
2210 
1910 
6n10 


Qnudy4s72 


1760 
2350 
7540 
6210 
4410 
7370 
6360 
735N 
7400 
2350 
7560 
2360 
7550 
2200 
1009 
6010 
7200 
6210 
1600 
6040 
0540 
2220 


90000473 


0420 
23590 
1750 
1750 
7350 
605N 
7560 
3350 
4o20 
2350 
3550 
0560 


02 


ALGOLSS 


9638 
9AS9 
9440 
GAL 
9642 
9443 
9644 
9645 
9646 
9447 
9648 
9649 
9650 
9651 


9652 
9653 
9654 
9655 
9656 
9657 
9658 
9659 
9660 
9664 
9662 
9463 
9664 
9665 
9666 
94667 
9668 
9669 
9470 
9671 
9672 
9673 


9674 
9675 
9676 
9677 
9678 
9679 
94680 
9681 
94682 
94683 
9684 
9685 


L/ 
Lo 
Lo 
L10 


bat 
11.95 


412 


13 


i, X 


STG 
Lag 
STA 
TRA 
ADU 
SZN 
TPL 
SZN 
TZE 
ADQ 
LXLO 
LOX1L 
CMPXL 
TNZ 


$BQ 
LDA 
STCA 
EAXL 
SXL1 
LLS 
EAQ 
LRS 
TRA 
LDA 
$TQ 
LDQ 
STA 
Oxo 
CMPXQg 
INZ 
LXLo 
EAX, 
SBX0 
TM] 
AOS 
LOX2 


ASX2 
LDA 
SBA 
SBA 
ALS 
TPL 
STQ 
LCA 
MPY 
LDA 
ANSA 
ASQ 


FASS 8 


A 

y, GU 
A,l 
L2 

2 TMSK 
0.4L 
L2e4 
A 


LAL 

Ue GL 

A 

0.0 
TEULEN, DU 
Li2 


1,DU 
0,00 
A,07 
0,4L 
0,QU 
18 
0,0 
18 
L8 
A,} 
A,l 
A 


A 

0.4L 
TSROW, DU 
L8 

0,9L 
4,Qu 
4,00 

L8 


Qel 
"1,1 


0»QU 
weayt 
woe 
Orl 
2 

6 

5 
Ort 
ete 
®069y000,DU 
0,1 
by] 
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STORE CURKENT POINTER AS RACK POINTER 

GET NEW POINTER aS CURRENT POINTER 

OTOKE NEw HEAN OF BACK POINTER CHAIN 

GO CONSIDER NEW STRUCTURE 

STEP BOTH ADDRESS AND TaG OF CURRENT POINTER 
SEE [F AY END OF PATTERN 

TRANSFER ITF NOT AT END OF PATTERN 

SEE IF Back POINTER IS ZERO 

TRANSFER IF MARKING IS COMPLETE 

RESTORE POINTER TO BEGINNING OF STRUCTURE 
GET TYPE POINTER IN BACK POINTER IN XR @ 4 
GET TYPE {IN XR = 1 

1S IT A UNITED TYPE 

TRANSFER {Ff NOT UNITED TYPE 


MAKE CURRENT POINTER POINT TO HEAD OF UNION VALUE 
GET CURRENT VALUE TYPE IN AL 

STORE T¥PE IN BACK POINTER TYPE 

GET TYPE OF CURRENT POINTER IN XR = 4 
AND STORE TYPE IN CURRENT VALUE 

SAVE CURRENT POINTER IN AL 

GET TYPE FROM BACK POINTER IN QU 

GET CURRENT POINTER AND TYPE IN @ REGISTER 
GO TO CONTINUE MARKING STRUCTURE 

GET OLD BACK POINTER IN A REGISTER 
RESTORE OLD FOREWARD POINTER 

MAKE 3aCK POINTER CURRENT POINTER 

SET NEW HEAD OF BACK POINTER CHAIN 

GET PATTERN FOR CURRENT WORD IN XR - 0 
IS IT A ROW TYPE PATTERN 

NO « STEP TO NEXT WORD TO MARK 

GET DIMENSION IN XR » Q OF ARRAY 

GET POINTER TO FIRST QUADRUPLE IN XR ~- 4 
DECREMENT NUMBER OF QUADRUPLES LEFT 
TRANSFER IF NO QUADRUPLES LEFT 

INCREMENT PLACE BY ONE 

GET STRIDE IN XR w 2 


INCREMENT CURRENT POINTER BY STRINE 
GET UPPER BOUND IN A REGISTER 
SUBTRACF LQWER ROUND 

SYBTRACY CURRENy PLACE 

SHIFT OUT STATE BITS 

TRANSFER IF PLACE [IS IN BOUNDS 

SAVE FOREWARD POINTER 

GET =(UeL#t) IN Q REGISTER 

MULTIPLY BY STRIDE 

GET MASK FOR STaTF BITS 

ZERO OUT PLACE EXCEPT FOR STATE BITS 
RESTORE ARRAY POJNTER TO START OF COLUMN 
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R PASS 3 
026455 026546 2360 00 9686 DQ B RESTORE CURRENT POINTER IN Q@ REGISTER 
026456 000004 0610 O4 9687 ADX4 4,00 STEP TO NEXT QUADRUPLE 
U26457 000001 1600 O% 9688 SBX0 1, Du DECREMENT NUMBER OF QUADRUPLES LEFT 
026460 026437 6050 00 9689 TPL LX TRANSFER IF MORE QUADRUPLES 
026461 026536 2340 00 9690 SZN LF SEE IF FIRST TIME MARKING 
026462 026466 6010 OU 94691 INZ LX1 TRANSFER IF SECOND TIME THROUGH 
026463 000004 4450 92 9692 SXL3 4, ul) STORE LINK TO THIS DESCRIPTOR 
026464 000004 6250 92 9693 EAX3 4,Qu AND GET NEW HEAD CHAIN POINTER IN XR © 3 
026465 026491 74100 90 9694 TRA L8 GO CONTINUE MARKING 
026466 000000 7200 96 9695 LX4 LXLO 0.9L GET DIMENSTON OF ARRAY IN XR » 0 
END OF BINARY CARD 00000474 
026467 0090004 6210 02 9696 EAX1 4,QuU GET POINTER TO FIRST QUAD IN XR = 9 
026470 0090004 1610 05 9697 LX2 SBX4 1,Du DECREMENT NUMBER OF QUADS LEFT 
026471 026491 6040 60 9698 TM] 48 TRANSFER IF NO MORE QUANS 
026472 00000 2350 $4 9499 LDA Ort GET STATES OF QUAD IN A REGISTER 
026473 0090042 7310 09 9700 ARS 3692 RESTORE IN PROPER PLACE IN STATE WORD 
026474 026547 3750 O09 9704 ANA STMSK ZERO OUT OTHER BITS WITH 000001000001 MASK 
026475 000000 7550 $4 9702 STA Oy AND RES*QRE IN STATE WORD IN QUAD 
026476 0090004 0610 93 9703 ADX4 4,Du STEP TO NEXT QUAD IN ARRAY 
026477 026470 7100 40 9704 TRA LX2 AND LOOP 
026500 026536 2340 09 9705 Lat SZN LF 5 THIS FIRST TIME THROUGH MARKING ROUTINE 
026501 027212 6010 90 9706 TNZ G4 RANSFER TO CLEANUP JF SECOND TYME TYROUG, 
026502 000000 6230 43 9707 EAX3 003 SEE IF ANY ARRAYS YO MARK 
026503 026550 6000 89 9708 LA2 TZE C,5 TRANSFER IF NO MORE ARRAYS TO MARK 
026504 000002 2360 45 9709 LDQ 2,43 GET UPPER BOUND OF ARRAY 
026505 000001 1760 45 9710 $8Q 1,3 SUBTRACT LOWER ROUND OF ARRAY 
026506 000001 0760 07 9744 ADQ 1,DL GET NUMBER OF VALID SUBSCRIPTS IN ARRAY 
026507 000003 4nz0 43 9712 MPY 343 MULTIPLY BY STRIDE 
026510 026554 6000 90 9743 TZE LA4 TRANSFER IF ARRAY IS VaCUOUS 
026511 0090000 2350 45 9714 LDA 0,3 GET POINTER TO FIRST ELEMENT OF ARRAY IN AU 
026512 000000 6350 01 97145 EAA 0, AU ZERO OUT AL 
026513 027210 1750 Oo 9716 SBA MBASE SVBTRACT BASE OF MARKABLE MEMORY 
026514 777777 6040 90 9747 TMI SERROR POINTER IS OUT OF RANGE 
END OF BINARY CARD 09000675 
026515 0090015 7750 09 9748 ALR 1885 GEY BIT TABLE WORD IN AL 
026516 000000 6240 05 9719 EAX4 O,AL GET WORD ADDRESS IN XR » 4 
026517 027200 0610 ov 9720 ADX4 BITT MAKE ADBRESS ABSOLUTE 
026520 000015 7740 o0 9721 ARL, 18-5 GET BIT POSITION IN AU 
026521 000000 6200 a4 9722 EAXO 0, AU AND PUT IN XR & Q 
026522 020000 2850 43 9725 LDA #0020008,DU GET A BIT 32 BITS FROM RIGHT END OF WORD 
026523 000000 7710 $0 9724 ARL 040 SHIFT BY BIT POSITION 
026524 0090000 2550 £1 9725 LAS ORSA Ort AND OR INTO BIT TABLE 
026525 000001 1760 OS 9726 $BQ 1,Du DECREMENT NUMBER OF WORDS LEFT TO MARK 
026526 026534 6000 80 9727 TZE Lag TRANSFER IF NO MORE WORDS TO MARK 
026530 026524 6040 00 9729 TNZ LAS TRANSFER IF STILL IN SAME WORD 
026551 020000 2350 95 9730 LDA =0020008,DU GET BIT AT START OF NEW WORD 
026532 000001 0610 03 9734 ADX1 1, DU AND STEP TO NEXT WORD IN BIT TABLE 
026533 026524 7100 O90 9732 TRA LAS GO CONTINUE MARKING 


026534 vo9n004 7250 43 9733 LA4 LXL3 4,3 GET POINTER TO NEXT ARRAY TO MARK 
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END 


END 


U1 U5726-72 


rR 


U26535 026503 
026556 000000 
026537 UnnOnG 
026540 Unnono 
026541 026537 
026542 027216 
OF BINARY CARD 
026543 027216 
026544 777775 
026545 6090090 
026546 090000 
026547 vg0on1 
026550 94000 
026554 026753 
026552 026750 
026553 027200 
026554 oOn0001 
026555 V26602 
026556 026761 
026557 026760 
026560 026754 
026561 026573 
026562 vug00te 
026563 027207 
026564 026763 
026565 000001 
026566 09nN000 
026567 Qo0001 
026579 000004 
OF BINARY CaRD 
026571 000004 
026572 476000 
026573 000000 
026574 U26562 
026575 026562 
026576 026756 
026577 026757 
026600 400000 
026601 026610 
026602 000001 
026603 0009000 
026604 000001 
026605 0090004 
026606 0090004 
026607 476000 
026610 0090000 
026611 0266N2 
026612 0266f2 
026613 026760 
026614 026761 


17,8653 


71uU0 


Ou 


Qounud 
Qnudnud 
QounYd 
026542 
Qounud 


00000476 


ongouo 
777776 
goudun 
gngogd 
oouvood 


6340 
4590 
4500 
2210 
1610 
7490 
2210 
4410 
2370 
7400 
0610 
1010 
6000 
1610 
2350 
2360 
7360 


00000477 


7370 
4410 
57350 
6150 
6000 
4560 
7410 
6750 
7400 
0640 
2390 
2360 
7360 
7370 
4410 
2750 
6450 
6000 
4560 
7410 


a7 


00 
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9734 
9735 
97356 
9737 
9738 
9739 


9740 
9744 
9742 
9743 
9744 
9745 
9746 
9747 
9748 
9749 
9750 
9754 
9752 
9753 
9754 
9755 
9756 
9757 
9758 
9759 
9760 
9764 


9762 
9763 
9764 
9765 
9766 
9767 
9768 
9769 
9770 
9774 
9772 
9773 
9774 
9775 
9776 
9777 
9778 
9779 
9780 
9784 


Ci 


C2 


CS 


C4 


cS 


TRA 

ZERO 
ZERO 
ZERO 
ZERO 
ZERO 


ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
DI 
STZ 
STZ 
,DX4 
SBX4 
TRA 
LOX4 
LOE 
BAQ 
TRa 
ADX4 
CMPX4 
YZE 
SBX4 
LNA 
Lda 
QLs 


LLS 
DE 
FNO 
TEV 
TZE 
STE 
STX4 
ERA 
TRA 
ADX4 
LDA 
LDQ 
QLs 
LLS 
LDE 
FNO 
TEU 
TZE 
STE 
STX4 


PASS 3 


LA2 


GP, aod 
TSWPTR 


TEWPTR 
“274422 


1i1 
=04900,DL 


Ad 
1,01) 
Ord 
tai 
4 


4 
2-97B25,DU 


#£0490000,0U 


C5 

4.0U 

Ord 

ded 

4 

4 
ew97B25,DU 


C4 
C4 

CE2 
CP2 


AND LOOP 


MASK OUT OVERFLOW FAULTS 

INTTTALIZE FIRST TIME FLAG 

ZERO LENGTH OF RELOCATION TABLE 

GET POINTER TO START OF BIT TABLE 

ENTER LOOP PROPERLY 

AND GO COMPACT 

RESTORE POINTER TO PLACE IN BIT TABLE 
RESTORE E REGISTER 

RESTORE aQ REGISTER 

AND GO ENTER BIT SCAN LOOP 

STEP TO NEXT WORD PLUS ONE IN BIT TABLE 
IS THIS THE TOP WORD IN THE BIT TABLE 
TRANSFER IF YES » DONE COMPACTING 

MAKE XR « 4 POINT TO NEXT WORD IN BIT TABLE 
GET BIT TABLE WORD IN A REGISTER 

GET FOLLOWING WORD IN Q REGISTER 

MOVE BIVS IN Q@ NEXT TO BITS IN A 


LEFT JUSTIFY BITS IN AQ REGISTER 

GET E— REGISTER SET TO UNDERFLOW IN 32 BITS 
SHIFT aQ Lert To NEXT BIT TRaNSITION 

TRANSFER IF NO TRANSITION IN WORD 

TRANSFER IF NO FRANSITICON IN WORD BECAUSE ZERO 
STORE BIT POINTER FOR ZERO/ONE TRANSITION 
STORE WORW POINTER FOR ZERO/ONE TRANSITION 
FLIP S}GN BrT To ELYMrNATE TRANS]TYON 

AND GO ENTER BIY SCAN LOOP 

STEP TO NEXT WORD IN BIT TABLE 

GET BIT TABLE WORD IN A REGISTER 

GET FOLLOWING WORD IN Q REGISTER 

MOVE BIFS JN O NEXT TO AITS IN A 

LEFT JUSTIFY BITS IN AQ REGISTER 

GET E REGISTER SEY TO UNDERFLOW IN 32 BITS 
SHIFT a® LEFT To NEXT BIT TRANSITION 

TRANSFER tF NO TRANSITION IN WORD 

TRANSFER {fF NO TRANSITION JIN WORD BECAYSE ZERO 
STORE BET POJNTER FOR ONE/ZERO TRANSITION 
STORE WORD POINTER FOR ONE/ZERQ TRANSITION 
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END 


END 


U1 5-26-72 


K 
026615 490000 
U26616 026754 
OF BINARY CARD 
026617 026761 
U26620 Uu27200 
026621 0900005 
026622 777600 
026623 uv26747 
026624 02676G 
026625 090012 
026626 Uondnd 
026627 027210 
026650 026753 
026651 026644 
026632 026747 
026653 026745 
026634 090000 
026655 027294 
026636 026649 
026637 0272N4 
026849 027202 
0266431 027203 
026642 026753 
026643 026556 
026644 026747 


OF BINARY CARD 


026645 026757 
026646 027200 
026647 090005 
026650 77760 
026651 026746 
026652 026756 
026653 000012 
026654 0090000 
026655 027210 
026656 026746 
026657 026746 
026660 09000 
026664 026745 
026662 090000 
U26663 026750 
026664 090000 
026665 090000 
026666 0090090 
026667 00N000 
026670 d000N0 
026671 090001 
U26672 000001 


OF BINARY CARD 
026673 26747 


17,863 


6799 
7579 


Gounv4da/8 


2360 
1760 
7300 
0760 
7560 
2360 
7320 
5350 
0769 
2340 
6010 
0760 
75600 
6240 
1160 
6020 
2360 
7560 
7560 
7600 
7490 
9560 


00000479 


2360 
1760 
7369 
0760 
7560 
2300 
7320 
5350 
0760 
0560 
2220 
7420 
2210 
4410 
u540 
62350 
2350 
2360 
7560 
7550 
0610 
0620 


Qo00N4s80 


1n2o 


VS 
00 


0g 


ue) 


ALGIL68 


9782 
9783 


9784 
9785 
9786 
9787 
9788 
9789 
9790 
9791 
9792 
9793 
9794 
9795 
9796 
9797 
9798 
9799 
9800 
9801 
9802 
9893 
9804 
9895 


9806 
9807 
9A98 
9809 
9A10 
9811 
9842 
9AG3 
9844 
9845 
9A46 
9817 
9A48 
9R19 
9A20 
OR21 
9A22 
9A23 
9824 
9R25 
9R26 
9827 


9828 


C5,.2 


C5,.5 


Cé 


ERA 
S¥FAO 


LOQ 
SRQ 
Qs 
ADQ 
STQ 
LDQ 
QRS 
NEGL 
ADQ 
SZN 
TNZ 
ADQ 
STQ 
EAXK4 
CMPO 
TNC 
L5Q 
wae) 
S7vQ 
SY¥C¢2 
TRA 
ASQ 


0 
$8Q 
QLS 
ADQ 
STQ 
,D@ 
QRS 
NEGL 
ADO 
ASQ 
LDx2 
STX? 
LDX4 
SXL1L 
AOS 
EAXS 
LDA 
LD 
$TQ 
STA 
ADX4 
ADX2 


CMPX2 


PASS 3 
=040900000,0U 
CAG 

CP2 

BIYT 

5 


972 3241,DU 
CC 


CB 


1,DuU 
1,0 


CC 
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FLIP SIGN BIT To ELIMINATE TRANSITION 
SAVE CURRENT AQ RFGISTER 


GET WORD POINTER FOR ONE/ZERO TRANSITION 
SUBTRACT ADDRESS OF BASF OF BIT TABLE 
MULTIPLY BY 32 

ADD CORRECTION FACTOR 

AND STORE IN END OF NEEDED AREA POINTER 
GET BIT POINTER FOR ONE/ZERO TRANSITION 
MOVE TO QU 

AND NEGATE 

ADD BASE OF MARKABLE MEMORY 

IS THIS THE FIRST TRANSITION FOUND 

NO = TRANSFER 

ADD TO GET END OF NEEDED aREa 

YES = STORE AS END OF COMPACTED MEMORY 
AND PUT IN RELOCATION TABLE END POINTER 
SEE IF STaCKy/HEaP BOUNDARY IS IN FIRST BLOCK 
TRANSFER IF NOT 

GET OLD SMAX AS NEW SMAX 

AND STORE GUESS FOR STack,sHEAP DIVISION 
AND STORE aS BASE OF HEAP 

SET FLAG INDICATING NOT FIRST TIME THROUGH 
AND LOOP 

AND ADD TO END OF NEEDED AREA POINTER 


GET WORD POINTER FOR ZERO/ONE TRANSITION 
SUBTRACT ADDRESS OF BASE OF BIT TABLE 
MULTIPLY BY 32 

ADD CORRECTION FACTOR 

AND STORE IN STaRT OF NEEDED AREA POINTER 
GET BIT POJNTER FOR ZERO/ONE TRANSITION 
MOVE TO Qu 

AND NEGATE 

ADD BASE OF MARKABLE MEMORY 

AND ADD ¥0 START OF NEEDED AREA POINTER 

GET POINTER TO aDDRESS OF BLOCK TO BE MOVED 
AND STORE IN TABLE OF OLD AND NEW aDDRESSES 
GET NEW ADDRESS OF BLOCK IN XR & 4 

AND STORE IN TARLE OF OLD AND NEW ADDRESSES 
INCREMENT LENGTH OF TABLE 

SAVE ADDRESS OF BLOCK TO BE MOVED IN XR ~ 3 
GET WORD AT NEW LOCATION IN A 

GET WORD AT OLD LOCATION IN Q 

STORE OLD WORD IN NEW LOCATION 

STORE NEW WORD IN OLD LOCATION 

STEP YO NEXT WORD 

STEP TO NEXT WORD 


SEE IF ALL OF BLOCK HAS BEEN SWAPPED DOWN 
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R PASS 3 
02¢674 026665 6019 Ou 9829 YNZ C6 TRANSFER IF MORF TQ SWAP 
026675 27294 2209 Ou 9ASN LDx0 SMAX GET OLD STACK/HFAP DIVISION 
026676 U26746 LON OY 9R31 CMPXQ CB SE& JF BELQW CURRENT BLOCK THAT WAS MOVED 
026677 U26706 6n20 OO 9A32 TNC C6,4 TRANSFER IF YES 
026700 0272N2 7420 Ov gR33 STX2 SHDIV STORE GUESS FOR OLD STACK/HEAP DIVISION 
026704 027203 7410 Ou 9834 STX4 HP STORE GUESS FOR NEW STACK/HEAP DIVISION 
026702 026747 1600 OV 9R35 SBX0 cc SEE [F STACK HEAP DIVISION WAS JUST MOVED 
026703 U26706 6050 OV 9A36 TRC C6,4 TRANSFER IF NOT 
026704 27202 04U0 OV 98&37 ASX0 SHDIV ADJUST GUESS FOR OLD STACK/WEAP DIVISION 
026705 027203 04909 49 9B3A ASXO HP ADJUST GUESS FOR NEW STACK/HEAP DIVISION 
026706 U26746 2220 90 9839 C6,4 LDX2 CB GET ADDRESS OF START OF BLOCK IN XR « 2 
026707 026745 1620 00 9240 SBX2 CA SUBTRACT MOVE ADDRESS TO GET DISTANCE MOVED 
026710 026762 7420 OY QR44 STX2 CBA AND STORE DISTANCE MOVED 
026711 026747 2360 00 9R®42 DQ cc GET ADDRESS OF TOP OF OLD BLOCK 
0267142 626745 1760 OY 9A43 SBQ CA SUBTRACT MOVE ADDRESS 
0267143 026762 5060 OY 9AG4 DIV CBA DIVIDE By MOVE DISTANCE TO SEE HOW TaBLE MOVED 
026714 0267514 7550 OV 9845 STA CR SAVE REMAINDER 
026715 026762 4020 OV 9846 MPY CBA GET DISTANCE FIRST WORD OF TABLE WaS MOVED 
026716 U26745 9760 OU 9847 ADQ CA GET ABSOLUTE ADDRESS OF NEW START OF TABLE 
026717 026745 7410 00 9848 STX1 CA STORE ADDRESS OF END OF MOVED BLOCK 
026720 000000 6240 41 9849 EAX4 0.1 GET ADDRESS OF NEW BASE OF TABLE IN XR ~ 4 
END OF BINARY CARD 900000481 
026721 0090000 6250 02 9850 EAX5S 0, QU GET ADDRESS OF START OF TABLE IN XR @ 5 
026722 026759 7200 90 9A54 LxLo CN GET LENGTH OF TABLE IN xR e 
026723 026751 1400 oy 9952 SBXo CR SUBTRACT LENGTH OF FRAGMENT AFTER FIRST WORD 
026724 026730 6050 459 9853 TPL (oped TRANSFER IF TABLE IN TWO FRAGMENTS 
026725 026759 2350 00 9R54 LDA CN GET LENGTH OF TABLE JN AL 
026726 Vvo90022 7350 ag 9855 ALS 18 MOVE TO AU 
026727 026733 7400 90 9856 TRA Ca. GO TO MOVE ENTIRE TABLE DOWN 
0267390 026752 7490 00 9857 C7 STX0 oh STORE SECOND FRAGMENT LENGTH IN MEMORY 
026734 0267514 2350 00 9858 LDA CR GET NUMBER OF WORDS TO MOVE IN AW 
026732 926752 9640 00 9859 ADX4 CT GET POJNTER IN XR = 4 WHERE TO MOVE TO 
026733 000010 7710 00 9AR60 C8 ARL 8 POSITION WORD COUNT FOR REPEAT 
026734 026556 69YN0 00 9R64 TZE Ci TRANSFER IF NOTHING TO MOVE 
026755 001400 6200 95 9RG2 EAXO 768, AL GET LENGTH OF INITIAL MOVE IN XR ~ 9 
026736 090001 4750 97 9863 SBA 1,DL MAKE LOOP COUNT PROPERLY 
026737 090000 56y2 04 9R64 CY RPDX of MOVE 
026749 000000 2360 19 9865 00 0.5 FROM FIRST TABLE FRAGMENT 
026744 000000 7560 144 9R66 sta 0.4 TO OTHER FRAGMENY IF ANY 
026742 vug0001 1750 OS 9R67 SBA 1, Du SEE JF KNOTWER 956 WORD BLOCK TO MOVE 
026743 026737 6950 00 9R 6B TPL C9 TRANSFER IF MORE TO MOVE 
026744 026556 7140 O0 9A69 TRA C4 GO TO CONTINUE COMPACTING 
026745 090000 gno0u0 9870 CA ZERO 
026746 090000 OnQg0u0 9874 CB ZERO 
END OF BINARY CARD Q000U482 
026747 d000080 OnQn08 9872 CC ZERO 
026750 000000 On00N0 9873 CN ZERO 
026751 000000 OnDoYd 9874 CR ZERO 
026752 000000 oaoVyoud 9875 CT ZERO 


026753 000000 Q000u0 9R76 CF ZERO 
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END 


END 


01 05%26+72 17,863 
R 
026754 

026754 do0n0NDNDNUND 
026755 odan0N0000UNU 
026756 dO000N0 OnUnVD 
026757 O0N000 gounon 
026760 Ogngnd OnonVuVd 
026761 Conoto onunuda 
026762 000000 OnunVA 
026763 UoONONO 6340 O7 
026764 026745 2350 OU 
026765 027210 1750 O09 
026766 027176 7559 OY 
026767 000005 7710 OY 
026770 777777 9750 07 
026771 000002 6350 01 
026772 027176 9550 00 
026773 0272411 2350 Ov 
026774 0090005 7710 00 
OF BINARY CARD QoU0U4as3 
026775 777777 0750 97 
026776 027211 0750 O09 
026777 000022 7710 OD 
027000 026750 1150 60 
027004 027003 6050 og 
027002 026750 2350 00 
027003 Gonger2 6250 05 
027004 027176 0650 00 
027005 027210 0650 OV 
027006 003777 06d50 08 
027007 776000 3650 QS 
027010 027207 1050 QO 
027011 027021 6000 00 
027012 002000 1650 03 
027013 027207 1090 09 
027014 027021 6000 09 
027015 027207 7450 00 
027016 500096 0010 OV 
027017 000000 6250 45 
027020 777777 6010 00 
027021 027207 2360 O00 
027022 027210 1760 00 
OF BINARY CARD 00000484 
027023 ugns0o 9760 93 
027024 000041 5060 Q7 
027025 777775 6210 92 
027026 027201 7419 OV 
027027 027207 2210 OO 
027030 027201 1610 OY 
027031 027200 7410 O9 
027032 C09003 1610 Q8 


ALGOL68 


9877 
9978 


9879 
9RB0 
9884 
9882 
9283 
9AB4 
9865 
9R86 
9887 
9888 
9989 
9R90 
9R94 
9R92 
9R93 


9994 
9895 
9396 
9897 
9R9B 
9899 
9900 
99014 
9902 
9993 
9904 
9905 
9906 
9997 
9998 
9999 
9910 
9911 
9912 
9913 
9914 
9915 


9916 
9947 
9948 
99149 
9920 
9921 
9922 
9923 


Ae 


As 


EVEN 
OcT 


ZERO 
ZFRO 
ZERO 
ZERO 
ZERO 
LOJ 
LDA 
SRA 
STA 
ARL 
ADA 
EAA 
ASA 
LDA 
ARL 


ADA 
ADA 
ARL, 
CMPA 
FPL 
LDA 
EAX5 
ADX5 
ADX5 
ADX5 
ANX5 
CMPX5 
TZE 
SBX5 
CMPX5 
TZE 
SYX5 
MME 
EAXS 
TNZ 
DQ 
BQ 


ADQ 

DIV 

EAXL 
STX1 
LOX1 
SBX1 
STX1 
SBX4 


1024,DU 
MTOP 

A3 

mTOP 
MSMREQ 
0,5 
SERROR 
MTOP 
MBASE 


9#32432,DU 
53,DL, 
“3,00 

BITL 

MTOP 

BITL 

BITT 

3,DU 
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RESET OVERFLOW MASK 

GET POINTER TO END OF COMPACTED STORAGE 
SUBTRACT BASE OF COLLECTABLE MEMORY 

SAVE LENGTH OF COLLECTABLE MEMORY 

DIVIDE LENGTH By 32 

ROUND Up 

AND ADD 9 FOR HEAD AND TAIL OF BIT TABLE 

AND ADD BIT TABLE LENGTH TO COLLECTABLE LENGTH 
GET NUMBER OF WORDS REQUESTED IN au 

DIVIDE BY 32 FOR aSSOCIATEB BIT TaBLE LENGTH 


ROUND UP 

AOD NUMBER OF WORDS REQUESTED TO B1T TABLE LENGTH 
MOVE TOTAL LENGTH TO AL 

IS THIS LARGER YHAN SPACE FOR RELOCATION TABLE 
TRANSFER IF LARGER 

GET LENGTH NEEDED FOR RELOCATION TaRLE IN AL 
GET MAX#MUM LENGTH IN XR « 5 

ADD LENGTH NEEDED FOR COMPACT MEMORy AND BITS 
ADD BASE aDDRESS 

ADD 14K AND ROUND UP 

ROUND TO 4K BOUNDARY 

1S THIS CURRENT MEMORY SIZE 

YES » TRANSFER = NO REQUEST 

GET SIZE NEEDED IN XR & 5 

IS THIS CURRENT MEMORY SIZE 

YES » TRANSFER ~- NO REQUEST 

STORE NEW MEMORY S]ZE 

AND REQUEST MORE OR LESS MEMORY 

SEE [F WE GOT IT 

NO » FATAL ERROR RAN OUT OF MEMORY 

GET NEW TOP OF MEMORY IN QU 

SUBTRACT BASE OF COLLECTABLE MEMORY 


ADD FIVE BIT TABLE WORDS AND ROUND UP 

GET NEW BIT TABLE LENGTH IN QU 

PUT NEW BIT TABLE LENGTH IN XR » 4 

AND STORE IN BIT TABLE LENGTH 

GET ADDRESS OF TOP OF MEMORY 

SUBTRACT BIT TABLE LENGTH TO GET TOP OF HEAP 
AND STORE AS BJT TABLE RASE 

GET NEW TOP OF HEAP ADDRESS IN XR & 4 
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R PASS 3 
027033 626745 2220 Oy 9924 LOX2 CA GET ANDRESS OF TOP OF COMPACTED MEMORY IN XR ~ 2 
U27034 027203 1N20 OV 9925 A4 CMPX2 HP HAS ALL OF HEAP BEEN SWAPPED UP 
027035 027045 60y0 Ov 9926 TZt AS TRANSFER IF YES 
027056 U00001 1610 08 9927 SHX1 1,Du DECREMENT NEW POINTER 
027037 090001 1620 O85 9928 SBX2 1,Du DECREMENT OLD POINTER 
027040 000090 2350 41 9929 LDA O,1 GET NEW WORD 
027041 O0n0000 2360 te 9930 00 0,2 GET OLD wORN 
027042 OQ00000 7560 11 9931 STQ Oot AND SWAP 
027043 090000 7550 42 9932 STA 0,2 AND SWAP 
027044 027034 7100 Hy 9933 TRA A4 AND GO LooP 
027045 027204 7419 O9 9934 Ad STX4 SMAX STORE LAST ADDRESS MOVED TO aS NEW HEAP 
027046 027204 2360 Oy 9935 DQ SMAX GET OLD HEAP ADDRESS IN Q 
027047 027203 1760 O90 9936 SRQ HP SUBTRACT NEW ADDRESS TO GET DISTANCE SWAPPED 
027050 027176 7560 00 9937 SsTQ AT STORE DISTANCE SWAPPED 
END OF BINARY CARD 00000485 
027051 626745 2360 00 9938 LDQ CA GET TOP OF OLD COMPACT SPACE 
027052 027203 1760 og 9939 $8Q HP SUBTRACT BASE OF PART MOVED 
027053 027176 5060 90 9940 DIV aT GET RELATIVE ADNRESS OF START OF RELOCATION TABLE 
027054 027177 7550 Ov 99414 STA AR AND STORE JIN AR 
027055 027293 0750 OV 9942 ADA HP MAKE STARTING ADDRESS ABSOLUTE 
027056 000000 6210 014 9943 EAXL 0,AU GET STARTING ADDRESS FOR MOVE IN XR = ¢ 
027057 027176 2390 Ov 9944 DA AT GET DISTANCE SWAPPED IN A 
027060 027177 1750 00 9945 SRA AR SUBTRAC? OFFSET FOR START OF RELOCATION TABLE 
027064 0090022 7710 00 9946 ARL 18 MOVE POSSIBLE NUMBER OF WORDS TO MOVE TO AL 
027062 026750 1450 00 9947 CMPA CN SEE JF MORE THAN LENGTH OF RELOCATION TaBLle 
027063 027065 6040 00 9948 TM] A6 TRANSFER {F LESS 
027064 026759 2350 00 9949 DA CN GET NUMBER OF WORDS TO MOVE ON AL 
027065 000022 7350 09 9950 A6 ALS 18 MOVE MOVE LENGTH TO AU 
027066 027176 7550 Qy 99574 STA AT. AND STORE IN TEMP 
027067 026759 7220 OY 9952 LXL2 CN GET LENGTH OF RELOCATION TABLE IN XR =~ 2 
027070 027203 0620 O00 9953 ADX2 HP GET POINTER TO END OF MOVE IN XR - 2 
027071 027176 1620 O90 9954 §$Bx2 AT SUBTRACY MOVE LENGTH To GET DESTINATION ADDRESS 
027072 090010 7710 40 9955 ARL 8 POSITION COUNT FOR REPEAT 
027073 027104 6000 09 9956 TZE AB TRANSFER IF NOTHING TO MOVE 
027074 001400 6200 95 9957 EaXxo 768, AL GET COUNT AND A AND B BITS IN XR ~ @ FOR MOVE 
027075 090001 4750 97 9958 SBA 1,DL MAKE LOOP COUNT PROPERLY 
027076 000000011007 
END OF BINARY CARD 00000446 
027077 Gon000 5é6u2 01 9959 a7 RPDX ot MOVE 
027100 000000 2360 &1 9960 DQ Oot FROM TOP FRAGMENT 
027101 O0n000 7560 $2 9961 STQ 0:2 NEXT TO LOWER FRAGMENT 
027102 000001 1750 98 9962 SBA 1, Du SEE IF ANOTHER BLOCK OF 256 WORDS TO MOVE 
027103 027077 6050 O09 9963 TPL A? TRANSFER IF MORE TO MOVE 
027104 026759 72140 00 9964 as LXLt CN GET NUMBER OF WORDS IN RELOCAT]ON TABLE 
027105 027203 96140 00 9965 ADX4 HP ADD ORIGIN OF TABLE 
027106 027292 2220 00 9966 LDX2 SHDIV GET OLD STACK/HEAP DIVISION aDDRESS 
027197 On000ND0 7420 $1 9967 STX2 Oot AND STORE IN RELOCATION TABLE 
0271190 027203 2220 40 9968 LDX2 HP GET NEW STACK/HEAP DIVISION ADDRESS 
027111 0090000 4420 41 9969 SXL2 0,4 AND STORE IN RELOCATION TABLE 


027112 690000 38350 67 9970 LCA 20600008,DL GET AN END OF TABLE WORD 
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R PASS 3 
027413 000091 7550 141 9971 STA loi AND STORE JN TABLE 
027114 wUonogne 4500 42 9972 STZ 2el GET A BEGINNING OF TABLE WORD 
027115 026750 0540 OY 9973 AOS CN INCREMENT TABLE LENGTH 
027116 26750 9540 Oy 9974 AOS CN INCREMENT TABLE LENGTH 
027117 026759 9540 AY 9975 AOS CN INCREMENT TABLE LENGTH 
027120 026750 2350 09 9976 Si LDA CN GET NUMBER OF WORDS JN RELOCATION TaBLe TO SORT 
U27121 099022 7350 OV 9977 ALS 18 PUT COUNT IN AU 
027122 027205 7550 09 9978 STA SD AND STORE IN SORT DISPLACEMENT 
027423 027293 0750 Ou 9979 ADA HP ADD BASE OF RELOCATION TABLE ADDRESS 
027124 027206 7550 OV 9980 STA SE AND STORE IN END RELOCATION TABLE 
END OF BINARY CARD 00000487 
027125 27205 2350 Ou 9981 Se Da SD GET CURRENT SORT DISPLACEMENT 
027126 On00N1 7710 OV 9982 ARL 1 DIVIDE BY ABOUT 2 
027127 Op9N009 6350 44 9983 EAA Qs AU MAKE !7 aN INTEGER 
027130 027155 6000 OY 9984 TZE S6 TRANSFER IF DONE SORTING 
0271314 027205 7550 Ov 9985 STA sp AND STORE aS NEW SORT DISPLACEMENT 
0271432 027203 2250 oO 99686 LDX3 HP GET BASE OF TABLE IN XR & 3 
027133 027205 0630 OV 9987 ADXS $0 ADD DISPLACEMENT 
027134 000000 6210 13 9988 Ss EAX1 Vr3 GET STARTING ADDRESS FOR SWEEP IN XR © 4 
027155 On000N0 6220 £1 9969 EAX2 Or4 ALSO PUT IN XR - 2 
0271436 027205 1620 09 9990 SB8X2 sp GO BaCK BY DISPLACEMENY 
027157 O00000 2350 11 9991 LDA re GET CURRENT TABLE ELEMENT TO BE RELOCATED 
027140 O0N000 1150 12 9992 S4 CMPA 0,2 COMPARE AGAINST ELEMENT IN SORTED PART OF TABLE 
027141 627150 6030 09 9993 YRC $5 TRANSFER IF PLACE FOR RELOCATED ELEMENT FOUND 
027142 000000 2360 12 9994 00 0:2 GET ELEMENT IN GOMPARED LOCATION 
027443 090000 7560 41 9995 STQ Qed AND MOVE {Tf UP RY DISPLACEMENT 
027144 027205 1610 Og 9996 SBX1 SD DECREMENT XR w ¢ BY DISPLACEMENT 
627145 027205 1620 Oo 9997 SBXx2 $D DECREMENT XR » 2 BY DISPLACEMENT 
027146 027203 102N O0 9998 CMPX2 HP SEE IF OFF BOTTOM OF TABLE 
027147 027140 6050 OQ 9999 TPL $4 TRANSFER IF STILL WITHIN TABLE 
027150 090000 7550 £1 10000 S5 STA Ot STORE RELOCATED ELEMENT IN ITS PROPER PLACE 
027151 009091 0650 O85 long, ADX3 41,bU STEP TO NEXT ELEMENT TO BE RELOCATED 
027152 02726 1050 00 lono2 CMPX3 SE SEE JF ALL DONE WITH THIS SWEEP 
END OF BINARY CARD 0000U488 
027153 027134 6n40 OY 10003 TM] $3 TRANSFER IF MORE TO DO 
027154 027125 7109 OV 10004 TRA $2 TRANSFER YO SET UP NEXT SWEEP 
027155 026759 7210 Og 1ono5 s6 LX CN GET LENGTH OF RELOCATION TABLE IN XR w 4 
027156 027203 2220 Ou 1on06 LDx2 HP GET BASE OF RELOCATION TABLE IN XR © 2 
G27157 027202 2250 00 10007 LDX3 SHDIV GET OLD BASE OF WEAP IN XR © 3 
027160 027294 2350 OO 10908 LDa SMAX GET OLD HEAP BASE IN A 
027161 027203 1750 OO 10009 SRA HP SUBTRACY TO GET DISTANCE HEAP WAS MOVED 
027162 000022 7319 00 10010 ARS 18 MOVE TO AL DISTANCE HEAP WAS MOVED 
027163 O0N0N0 1050 12 1on11 S/ CMPXS 0,2 JS THIS THE FIRST HEAP ENTRY 
027164 027170 6000 G0 10012 TZE $8 TRANSFER IF YES 
G27165 009001 0620 O38 10013 ADX2 1,Du STEP TO NEXT TABLE ENTRY 
027166 000001 1610 OS 10014 SBX1 1, Du DECREMENT NUMBER LEFT 
027167 027163 7100 09 10015 TRA $7 AND LOOP 
027170 090000 9550 12 10916 Se ASA 012 CORRECT RELOCATION TABLE ENTRY FOR MOVED HEAP 
027171 GoN001 0620 93 10n17 ADX2 1,DuU STEP TO NEXT TABLE ENTRY 


027172 090001 1619 O¢ 10018 SRX4L 1,DuU DECREMENT NUMBER LEFT 
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END 


EnD 


U1 520-72 


k 


027173 627170 
u27174 026536 
027175 v26231 
027176 v000N0 
027177 Og00N0 
G27200 vandno 
OF BINARY CARD 
027201 condo 
027202 sn000N0 
027203 vugnano 
027204 oOonYnDO 
027205 099000 
027206 000000 
027207 Oonono 
027210 9090000 
027211 OQgn0nD 
027242 Q272N3 
027213 9026549 
027214 on0000 
027215 090000 
027216 onnnnog 
027217 Oandno 
027220 0009000 
27221 000080 
027222 o0900ND 
027223 027222 
027224 027222 
027225 027215 
027226 027215 
OF BINARY CARD 
027227 777773 
027230 027215 
027251 027215 
027232 027215 
027233 027215 
0272384 777773 
027235 027215 
027256 027215 
027237 777775 
027249 027215 
027241 777776 
027242 030044 
027243 030945 
027244 030045 
027245 099001 
027246 027267 
027247 0900002 
027250 090000 


17,368 


o01n NO 
75un Oy 
74uU0 OY 
gounuao 
agunyvd 
gonunyd 
gnognu4deg 
dounud 
Qoudu0 
younuo 
OoUudYUA 
oououd 
Qoygua 
oounua 
qovngud 
d0udud 
2260 090 
22/70 QU 
7100 OO 


Qou0d09 
gnooud 
o0u0u0 
onunud 
000000 
0000u9 
QoudUL 
QnooutL 
onuoud 
000000 
00000490 
777774 
00G000 
Qouoduda 
00N000 
00yn00d 
777774 
000000 
gno00u8 
771776 
009009 
7777/7 


2350 Oy 
7590 00 
2270 $1 
2220 17 
6050 OU 
2370 17 
6260 17 
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10419 
1one20 
lonet 
1022 
Lor23 
10n24 


10925 
10026 
1027 
10928 
1029 
10030 
10034 
Lonse2 
1on33 
10n34 
1on35 
1036 
10937 
10038 
1039 
10940 
Lona, 
ton42 
Lon43 
i1o9n44 
10045 
1046 
10847 


19048 
10049 
i050 
LoAds 
ions2 
10053 
10n54 
1055 
10056 
1057 
10658 
10059 
10n60 
10164 
10n62 
10063 
10n64 
10965 
10066 


Al 
ARK 
BITT 


BITL 
SHDIV 
HP 
SMAX 
SU 

SE 
MTOP 
MBASE 
REQ 
G1 


GX 


PIR 
WPTR 
ocr 
ULEN 
ROW 
SKIP 
PROC 


MSCWT 


TNZ 
STcC2 
TRA 
ZERO 
ZERO 
ZFRO 


ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
0X 

L DX 

TRA 

HEAD 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 


ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZEKO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
HEAD 
LDA 

STA 

.DX7 
DX2 
TPL 

DAG 
EAX6 


FASS 3 
96 
LF 
wt 
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TRANSFER IF MORF TasLE FNTRIES 
SET SECOND TIME THROUGH MARKING ROUTINE FLAG 
AND TRANSFER TO MARKING ROUTINE 


LOAD NEW VALUE OF STACK POINTER 
LOAD NEw VALUF FOR DISPLAY REGISTER 
AND RETURN FROM GARBAGE COLLECTOR 


GET INITIAL SEARCH RULE TALLY WORD 

AND STORE TO DIRECT SEARCH 

GET POINTER TO FIRST CATALOG BLOCK 

GET FILE REFERENCE NUMBER OF CATALOG 

TRANSFER IF THERE WAS A FILE REFERENCE NUMBER 
GET NAME OF CATALOG 

SAVE POINTER FO CATALOG CONTROL BLOCK 


01557 


END 


END 


04 05-26472 


l, 
027251 690000 
027252 o0n001 
027253 027247 
027254 410000 
OF BINARY CARD 
027255 003662 
027256 0900222 
027257 OdonONnD 
027260 000770 
027264 777777 
027262 410000 
027263 027300 
027264 000000 
027265 000004 
027266 027244 
027267 030126 
027279 001000 
027271 003662 
027272 000222 
027273 090000 
027274 000770 
027275 777777 
027276 001000 
027277 027303 
Q27300 030045 
027301 027244 
027302 777777 
OF BINARY CARD 
027303 Odo00000 
027304 030139 
027305 0090000 
027306 777777 
027307 Op0000 
027310 030234 
027311 030160 
027312 030131 
027313 000044 
027314 030130 
027315 0093721 
027316 000222 
027347 777777 
027320 030150 
027321 003702 
027322 Q00222 
027323 777777 
027324 030240 
027325 030432 
027326 0302409 
027327 oon0n2 
027330 030160 


17,R03 


22/0 
2220 
6040 
2210 


OoynYuss1 


7000 
23/0 
6209 
Ssauo 
6010 
toon 
6010 
6200 
74900 
74900 
2370 
2210 
70Q0 
2370 
6200 
$000 
6010 
1000 
6000 
0140 
6070 
74U0 


Qououase 


6200 
740 
62900 
6010 
6220 
2240 
7000 
0760 
7370 
2360 
7ou0 
2370 
6010 
2360 
7090 
2370 
6040 
7200 
7490 
2210 
2220 
7000 


17 
17 
Ou 
un) 


oy 
31 
01 
vn) 
00 
aK) 
00 
05 
16 
90 
00 
OS 
g0 
34 
O01 
i) 


05 
00 
02 
80 
96 
0S 
00 
00 
00 
00 
00 
51 
00 
00 
60 
91 
00 
00 
00 
035 
OS 
80 
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10167 
1068 
10969 
10970 


1ON74 
10072 
40973 
10074 
10075 
10076 
10977 
10078 
10979 
10080 
10984 
10082 
10083 
10084 
1085 
10086 
10987 
10068 
10089 
10990 
10094 
10092 


10093 
10094 
10095 
10096 
10097 
10098 
10n99 
104100 
1oiot 
10102 
10193 
10104 
10105 
10406 
10107 
10408 
10409 
10110 
Loqdit 
10412 
10415 
10114 


RUS 


RU4 


ROS 


START 


LOX7 
LDx2 
TI 

LDX4 


TSX 
LDAQ 
EAXO 
CANXO 
TNZ 
CMPXO 
TNZ 
EaXO 
STXO 
TRA 
LDAQ 
LDX4 
TSX0 
DAG 
EAXO 
CANXQ 
TNZ 
CMPXQ 
TZE 
NOP 
TTF 
TRA 


EAXO 
STX0 
EAXO 
TNZ 
EAX2 
LDX4 
TSX0 
ADGQ 
LLS 
00 
TSXO 
LDA 
YNZ 
LDa 
TSX0 
LDAG 
TNZ 
LX1.0 
STXO 
LOX4 
LDX2 
TSX 


PASS 3 


0,7 
1,7 
RN2 
&0449000,DU 


SOPEN 
rSSTAT,1 
0,AU 
®0770,D0uU 
SERROR 
2=0440008,DU 
RD4 

Q,AL 

1,6 

RDL 

NAME 
#09001000,DU 
Z$OPEN 
/SSFaT,! 


RDS 
SRT, ID 
RDI 
SERROR 


0, AL 
FRN 

0, QU 
SERROR 
0,9 
USER, DU 
ALQc 
FREE 

36 

FRN 
SREAD 

+ SSTAT,! 
$SERROR 
FRN 
$CLOSE 
:SSTAT,! 
$ERROR 
PROG 
CEL 
PROG,DU 
2,DU 

AL OC 
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GET CATALOG WHERE CATALOG IS CATALOGED 
GET FILE REFERENCE NUMBER OF CATALOG 
TRANSFER IF NO FILE REFERENCE NUMBER 
GET ACCESS NEEDED ON CATALOG 


ATTEMPT TO OPEN CATALOG 
GET STATUS RETURN WORDS 
GET STATUS OF OPERATION 
WAS IT ALL RIGHT 

NO = ERROR SOMEWHERE 

IS IT THE DESIRED STATUS 
NO = TRANSFER 


GET FILE REFERENCE NUMBER OF CATALOG JUST OPENED 


AND STORE IN CATALOG CONTROL RLOCK 
TRANSFER TO TRY AGAIN 

GET DESIRED FILE NaME 

ASK FOR READ PERMISSION 

ATTEMPT ¥0 OPEN DESIRED FILE 

GET STATUS RETURN WORDS OF OPERATION 
GET STATUS IN XR » Q 

WAS OPERATION ALL RIGHT 

NO = SOMETHING WRONG SOMEWHERE 

1S If THE DESIRED STATUS 

YES » TRANSFER 

STEP TO NEXT CATALOG TO TRY 
TRANSFER IF MORE CATALOGS TO TRY 
TRANSFER IF FILE CANNOT BE FOUND 


GET FILE REFERENCE NUMBER OF FILE IN XR w QO 
AND SAVE 

GET UPPER WALF OF LENGTH OF FILE 

TOO BIG ew ERROR 

GET LENGYH OF FILE IN XR © 2 

GET POINTER TO USER TABLE CONTROL WORD 
ALLOCATE NEEDED ADDITIONAL SPAGE IN USER aREA 
ADD READ LOCATION TO READ LENGTH 

GET LOC/LEN IN a REGISTER 

GET FILE REFERENCE NUMBER IN QU 

READ IN NEW FILE 

GET STATUS RETURN WORDS OF OPERATION 
TRANSFER IF NOT CORRECT 

GET FIL& REFERENCE NUMBER OF FILE 

AND CLOSE If 

GET STATYS RETURN WORDS OF OPERATION 

CLOSE DIDNtT WORK « ERROR 

GET ADDRESS OF NEXT ALLOCATED PROG TABLE ENTRY 
AND STORE IN CHAIN TABLE ENTRY PROTOTYPE 
GET POJNTER TO PROG TABLE CONTROL woRD 

GET LENGTH OF ENTRY JN PROG TABLE IN XR ~ 2 
ALLOCATE 2 WORD ENTRY IN PROG TABLE 
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L PASS 3 

ENLU OF BINARY CARD 00000493 
UV27351 USN1L31 2390 OY 10115 LDA FREE GET POINTER TO FASE OF CURRENT PROGRAM SEGMENT 
027332 uyN00G 7550 $4 10116 STA Oat AND STORE IN PRONG TABLE ENTRY 
027353 vUgnoo1 45u0 £1 10117 STZ tod ZERO OUT SECOND WORD OF ENTRY 
027334 039234 7270 Su 10118 LXL7 USER GET LENGTH OF NEW PROGRAM 
027335 030234 Y4/n OU 10419 ADX7 USER ADD TO LOCATION TO INITIALIZE XR - 7 TO END 
027336 777777 2200 17 10120 LDX0 71,7 GET REQUIRED LENGTH OF FNVIRONMENT 
027337 009001 4400 £1 lotet SXLO 12 AND STORE IN PROG TABLE ENTRY 
027340 vpn0001 1670 O53 10422 SRX7 1, 0U STEP XR » 7 OVER LENGTH WORD 
027341 777777 2349 17 10423 EDSYM SZN e147 ARE THERE ANY SYMDEFS OR SYMREFS 
027342 027456 6000 40 10124 TZE ETYP NO = GO TO ENTER TYPES IN TABLE 
027343 090090 6210 147 10425 EAX4 O17 GET POINTER TO END OF DEFINITION IN XR @ 4 
027344 777777 1610 47 10126 SBX1 e407 GET POINTER TO START OF MODE IN DEFINITION 
027345 777775 2350 $1 10127 LDA ~354 GET DEFINITION OF SYMROL IN A 
027346 o90000 6200 O01 10128 EAXO UV, AU GET ADDRESS PARY IN XR & QO 
027347 vu30132 4400 00 101429 SXLo CEL AND STORE IN ENTRY PROTOTYPE 
027350 Go000 62u0 85 104350 EAXO Os AL GET LENGTH OF VALUE OR ZERO IN XR « Q 
027351 030133 44u0 00 10131 SXLO CELe1 AND STORE IN ENTRY PROTOTYPE 
027352 030236 2260 Og 10132 LDX6 SYM GET POINTER TO START OF SYMBOL TABLE 
027353 Gonoto 2340 16 10433 ESYmM1 SZN 0,6 ARE THERE ANY MORE SYMBOL TABLE ENTRIES 
027354 027403 6010 oy 10134 TNZ ESYM2 YES » GO TQ COMPARE WITH CURRENT SYMBOL 
027355 777777 2220 17 10135 L0x2 ~447 GET LENGTH OF MODE IN XR = 2 
027356 0090003 0620 a3 10136 ADX2 3,Du GET LENGTH OF NEW ENTRY IN XR w» 2 

END OF BINARY CARD 00000494 
027357 030236 2210 O¢ 10437 DX4 SYM,DU GET POINTER TO SYM TABLE CONTROL WORD 
027360 039169 7000 40 10438 TSX0 ALOC ALLOCATE SPACE IN SYM TABLE 
027361 dgN0ND 6350 12 10139 EAA 0,2 GET LENGTH OF ENTRY IN AU 
027362 000000 7550 41 10440 STA Ort AND STORE IN FIRST WORD OF ENTRY 
027363 G0n001 6250 41 10141 EAXS 1,1 GET DESTINATION OF MOVE IN XR @ 3 
027364 oon00D0 6240 47 10142 EAX4 0,7 GET POINTER TO END OF NEW ELEMENT IN XR @ 4 
027365 777777 1640 47 10443 SBX4 "497 GET POINTER TO START OF MODE IN XR & 4 
027366 000002 1640 95 10144 SBXx4 2,0u GET SOURCE OF MOVE IN xR ~ 4 
027367 777777 6350 42 10445 EAA “192? GET LENGTH OF MOVE IN AU 
027379 6090010 7710 O0 10446 ARL 8 SHIFT FOR REPEAT 
027371 001400 62y0 95 10147 EAXO 768, AL GET COUNTY AND A AND 8 BITS IN XR - 
027372 0090000011007 
027373 donono 5é6yu2 O14 10148 RPUDX at MOVE 
027374 Un0000 2360 14 10449 , DO 014 FROM PROGRAM DEFINITION 
027375 oonn0o 7560 43 10450 STQ 013 TO NEW TABLE ENTRY 
027376 0309237 7200 Ou 10454 LXxLo CHAIN GET ADDRESS OF NEXT ENTRY IN CHAIN TABLE 
027377 Oongodg 4400 £1 10152 SXLO Os AND STORE aS LINK IN TABLE ENTRY 
027400 090000 2200 a3 10153 iL DX0 0, DU GET A ZERO 
027404 030133 7400 00 10954 STX0 CELe1 AND SYORE LINK IN PROTOTYPE 
027402 027444 7100 Og 10455 TRA ESYMS GO TO ENTER PROTOTYPE IN CHAIN TABLE 
027403 oO90000 6240 47 10456 ESYM2 EAX4 0,7 GET POINTER TO END OF MODE IN XR = 4 
027404 777777 1640 17 10457 SBX4 “157 GET POJNTER TO START OF MODE IN XR - 4 

END OF BINARY CaRD 00000495 
027405 090002 1640 03 10458 SBX4 2,DU GET PO|NTER TO START OF NAME BEFORE MODE 
027406 O00N001 6250 16 10459 EAX3 1,6 GET POINTER TO START OF KEY IN TABLE ENTRY 


027407 000000 2350 16 10160 LDA 0,6 GET LENGTH «+ 4 IN AU 
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\ PASS 3 
027410 777777 6350 O14 10161 EAA e1,aU GET LENGTH OF COMPARE IN AU 
627411 000010 7710 Ov 10162 ARL 8 POSITION CQUNT FOR REPEAT 
027412 091440 62y0 95 10163 EAXO 768432,AL GET COUNT, A AND B BETS, AND TNZ BIT IN XR & Q 
027413 009040 5602 04 10164 RPDX pie TN2 COMPARE 
027414 090000 2360 144 10465 DQ 044 PROGRAM SYMBOL 
027415 000000 1160 13 10166 CMPO 0,3 WITH TABLE ENTRY 
027416 027421 60yN0 00 10167 TZE ESYM3 TRANSFER IF CORRECT TABLE ENTRY FOUND 
027417 000000 0660 46 10168 ADX6 0,6 STEP TO NEXT TABLE ENTRY 
027429 6027353 7100 OU 10469 TRA ESYM1 AND LOOP 
027421 090000 7210 16 10470 ESYMS LXL4 0,6 GET IN XR » 4 POINTER TO DEFINITION CHAIN 
027422 030237 9610 00 10471 ADX4 CHAIN MAKE POINTER ABSOLUTE 
027423 000001 7200 41 10472 XL. 0 451 GET FYPE OF CHAIN ENTRY IN XR = O 
027424 027433 6000 00 10473 TZE ESYmM4 TRANSFER IF LY 18 a SYMDEF 
027425 030237 72y0 O90 10174 LXLo CHAIN GET ADDRESS OF NEXT CHAIN TABLE ENTRY 
027426 030133 7400 00 10475 STX0 CEL et AND STORE JIN LINK IN ENTRY PROTOTYPE 
027427 030237 1610 Ou 10476 Sex, CHAIN MAKE CURRENT TABLE ENTRY POINTER RELATIVE 
027450 030433 1410 00 10477 SSX4 CELeL MAKE LINK REFER TO CURRENT TABLE ENTRY 
027431 090000 4400 16 10478 SX 0,6 STORE POINTER TO NEXT CHAIN ENTRY aS DEF LINK 
027432 027444 7490 40 19479 TRA ESYM5 GO {NSERY PROTOTYPE JN CHAIN TABLE 

END OF BINARY CARD 00000496 
0274353 000001 9610 $1 10180 ESYM4 ADX4 isi STEP TO NEXT ELEMENT OF THE CHAIN 
027434 000001 2200 41 10481 LDX0 1,4 SEE IF af THE END OF THE CHAIN 
027435 0627433 6010 Og 10182 TNZ ESYM4 TRANSFER If MORE ELEMENTS IN CHAIN 
027456 90000 2200 035 10483 LOXO 0,Du GET A ZERO IN XR w O 
027437 030433 74y0 OY 10184 STX0 CELat STORE ZERO IN PROTOTYPE LINK TO END CHAIN 
027440 000001 7410 41 404185 STXi 1,4 STORE LAST ENTRY ADDRESS IN LINK 
027441 030237 7200 O9 10186 LXLO CHAIN GEY ADDRESS OF NEXT ENTRY IN CHAIN TABLE 
027442 030237 9600 90 10187 ADXO CHAIN MAKE !7 aBSOLUTE 
027443 000001 1400 $1 10188 SSX0 Let MAKE CHAIN END REFER TO ENTRY TO BE ADDED 
027444 030237 2210 08 10489 ESYmM5 (LDx4 CHAIN, DU GET PO[NTER TO CHAIN TABLE CONTROL WORD 
027445 000002 2220 93 10190 0x2 2,Du GET ENTRY LENGTH IN XR @ 2 
027446 030169 7000 00 10194 TSX0 ALQCc ALLOCATE 2 WORDS IN CHAIN TABLE 
027447 0301432 2350 00 10492 LDA CEL GET FIRST WORD OF PROTOTYPE 
027459 000000 7550 41 10493 STA Oot AND STORE JN TABLE ENTRY 
027454 030133 2350 00 10194 LDA CELwt GET SECOND WORD OF PROTOTYPE 
027452 000001 7550 £1 10195 STA 1.1 AND STORE JN TABLE ENTRY 
027453 777777 1670 47 10496 SBX7 4,7 MAKE XR w 7 POINT TO MODE 
027454 000003 1470 08 10497 SBX7 3,Du MAKE XR » 7 POINT TO FRONT OF DEFINITION 
027455 027341 7100 90 10498 TRA ESY¥™ AND LOOP 
027456 000001 1670 O35 10199 ETYP SBX7 1, Du STEP XR » 7 BEFORE ZERO FLAG WORD 
027457 777777 2340 17 10200 ETYP1 SZN 4,7 ARE THERE ANY MORE TYPE DEFINITIONS IN PROGRAM 
027460 027566 6000 40 Lo201 TZE ETYP6 TRANSFER {tf NO MORE TYPES 

END OF BINARY CARD 00000497 
0274614 777777 22y0 47 10202 Oxo 7457 GET LENGTH OF MODE IN XR » 0 
027462 000001 1009 46 10203 CMPX0 1,Du SEE JF ANY MODE 
027463 027522 6n00 O00 10204 TZE ETYPS TRANSFER 1F NO MODE © GO ENTER IN TYPE TABLE 
027464 030235 2260 00 10205 .DX6 TYPE GET POINTER TO START OF TYPE TABLE 
027465 agnd0o0 2340 416 10206 ETYP2 SZN 0,6 ARE THERE ANY MORE ENTRIES IN TYPE TABLE 
027466 027522 6000 00 10207 TZE EVYPS TRANSFER IF NOT » GO ENTER IN TYPE TABLE 


627467 090090 6240 17 10208 EAX4 0,7 GET POINTER TO END OF MODE IN PROGRAM 


01557 


END 


UL U5=-26-72 17,308 
L 
0274790 777777 1649 L/ 
U27471 000001 6250 1o 
U27472 JIJgngdd 2350 16 
027473 #777777 6350 01 
027474 000010 7710 ‘YU 
027475 Uni440 6200 ad 
027476 dongnoniiyds 
027477 009040 5602 01 
0275u0 ugdang 2360 14 
U27501 OnN000 1167 18 
0275u2 027506 6000 OY 
027503 ugoo0no 9660 16 
027504 000000 0660 16 
027505 627465 74u0 OY 
027506 0090090 0660 16 
END OF BINARY CARD 0000U498 
027507 wUngoono 7210 16 
027510 090090 0610 41 
027511 Uonoto 2200 £1 
027512 027510 6010 OY 
027513 777777 1670 4/7 
027514 0900900 7410 $1 
027515 777777 7200 17 
027516 030131 96U0 O00 
027517 090000 1400 £1 
0275290 777777 1670 17 
027521 027457 740 00 
027522 777777 2220 47 
027523 090001 9620 O38 
027524 030235 2210 O58 
027525 030160 7nu0 Ov 
027526 000000 6350 12 
027527 oonono 7550 41 
027539 Oonn00 6240 17 
027534 777777 1640 47 
027532 090001 6250 41 
027533 777777 6350 O14 
027534 090010 7710 Og 
OF BINARY CARD gou0u499 
027535 0091400 6200 05 
027536 6909000011007 
027537 000000 56u2 01 
0275490 Uvono00 2360 44 
027541 090000 7560 13 
027542 777777 16/70 47 
027543 777777 2220 17 
027544 030235 2210 93 
027545 03160 7090 OO 
027546 Oon0M0 7420 41 
027547 777777 72u0 47 


ALGIL 46 


10709 
1g?49n 
107i 
10712 
102713 
102714 


10215 
19916 
10717 
10218 
190719 
10720 
1oP21 
10722 


10223 
10224 
10225 
10226 
10?27 
10228 
10229 
10230 
10234 
10232 
409233 
10234 
19235 
40736 
10237 
10238 
10239 
10240 
10244 
10242 
10243 
10244 


10245 


1090246 
10247 
19248 
10249 
10250 
10°51 
10252 
10253 
10254 


ETYPS 


ETYP4 


ETYP5 


SHX4 
EAXS 
LDA 
EAA 
ARL 
EAXO 


RPDX 
DQ 
CMPQ 
Tze 
ADX6 
ADX6 
TRA 
ADX6 


LXL4 
ADX4 
LDXxo 
TNZ 

SBX7 
STX4 
LXL 0 
ADXO 
SSX0 
SBX7 
TRA 

LDX2 
ADX2 
NX 
¥SX0 
EAA 

STA 

EAX4 
SBX4 
EAX3 
EAA 

ARL 


EAX0 


RPDX 
LDQ 

STO 

SBX7 
LDXx2 
,OX4 
TSX0 
STx2 
LXLO 


PASS 3 


“147 
116 
0,6 
“15AU 
8 


768432,AL 
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GET POINTER TO START OF MADE IN PROGRAM 

GET POINTFR TGQ START OF MODE IN TABLE ENTRY 
GET LENGTHe4 OF MODE IN AU 

GET LENGTH OF MODE IN au 

POSITION COUNT FQR REPEAT 

GET COUNT, A AND 8 BITS, AND TNZ RIT IN XR © G 


COMPARE 

PROGRAM TYPE MONE 

WITH TABLE ENTRY MODE 

TRANSFER {fF MATCH 

STEP TQ TYPE IN TABLE ENTRY 

STEP TO NEXT YTARLE ENTRY 

AND L GOP 

GET POINTER TO TYPE IN YABLE ENTRY 


GET POINTER TO CHAINED ADDRESSES IN XR ~ 4 

STEP TO NEXT ADDRESS IN CHAIN 

SEE IF AT END OF CHAIN 

TRANSFER IF MORE IN CHAIN 

STEP TO TYPE PART OF TYPE DEFINITION EN PROGR~AM 
STORE ADDRESS OF END OF CHAIN IN END OF CHAIN 
GET ADDRESS OF NEW CHAIN YO BE DEFINED 

MAKE ADDRESS ABSOLUTE 

AND LINK NEW CHAIN ON END OF OLD CHAIN 

STEP XR « 7 TO NEXT TYPE DEFINITION IN PROGRAM 
AND L00P 

GET LENGTH Of MODE IN XR ss 2 

ADD ONE FOR LENGTH WORD 

GET POINTER TO FYPE TABLE CONTROL WORD {N XR + ¢ 
ALLOCATE SPACE FOR MODE IN TyPE TaBLe 

GET LENGTH OF ENTRY IN AU 

AND STORE aS FIRSY WORD OF TYPE TABLE ENTRY 

GET POINTER TO END OF MODE IN PROGRAM IN XR #& 4 
GET POINTER TO START OF PROGRAM MODE IN XR @ 4 
GET POJNTER TO STARY OF MODE IN NEW TABLE ENTRY 
GET LENGTH OF MODE IN AU 

POSITION CQUN FOR REPEAT 


GET COUNT AND A AND B BITS IN XR = 


MOVE 
FROM PROGRAM MORE 

TO TABLE ENTRY MODE 

GET POINTER TO END OF PROGRAM TYPE IN XR w 7 
GET LENGTH OF TYPE IN XR & 2 

GET POINTER TO TYPE TABLE CONTROL WORD 
ALLOCATE SRACE FOR TYPE IN TYPE TagLe 

STORE LENGTH OF ENTRY IN FIRST WORD OF ENTRY 
GET CHAIN POINTER IN XR @ Q 
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% PASS 3 
U27550 039131 06u0 Ov 10255 ADXU FREE ADD PROGRAM BASE TO MAKE POINTER aBSOLUTE 
U27551 G00000 44u0 41 10256 SX LU O.1 AND STORE JN TARLE ENTRY 
027552 oOongno 6240 1/ 10257 EAX4 0,7 GET POINTER TO ENN OF TYPE IN XR ~ 4 
027553 777777 1640 147 102758 SBX4 71,7 GET POINTER TO START OF TYPE IN XR ~- 4 
027554 090001 6250 $1 10259 EAX3 1,1 GET POINTER TO START OF TYPE IN NEW TABLE ENTRY 
027555 777777 6390 Le 10260 EAA 7122 GET LENGTH OF TYPE IN AU 
027556 909010 7710 Ov 10261 ARL 8 POSITION COUNT FOR REPEAT 
027557 001400 62U0 O5 10262 EAXO 768, AL GET COUNT AND A AND @ BITS IN XR - 0 
027560 Un000001100/ 
027561 090000 56u2 01 10263 RPDX it MOVE 
027562 Onnoto 2360 14 10264 Da 0,4 FROM PROGRAM TYPE 
END OF BINARY CARD 00090500 
027563 0090000 7560 18 10265 STQ 0,3 TO NEW TABLE ENTRY 
027564 777777 16/0 17 10266 SBX7 7457 STEP XR » 7 TO NEXT PROGRAM TYRE 
027565 027457 710 00 10267 TRA ETYP4 AND LooP 
027566 0090001 1670 0% 10268 ETYp6 S8X7 1,Du STEP OVER ZERO FLAG WORD 
027567 030131 7470 oy 10269 STX7 FREE STORE ADDRESS OF FREE LOCATION ABOVE PROGRAM 
027570 030234 1670 Ou 10270 SBX7 USER GET AMOUNT OF USER AREA IN USE 
027571 030234 4470 OV 10771 SX\,7 USER AND STORE aS LENGTH OF USER SEGMENT 
027572 030134 2260 oY 10272 LDX6 SYMP GET CURRENT SEARCH LOCATION IN SYM TABLE 
027573 030236 0660 O00 10273 ADX6 SYM MAKE POENTER ABSOLUTE 
027574 090000 2340 16 10274 Stai  SZN 0,6 ARE THERE ANY MORE TABLE ENTRIES 
027575 027613 6000 90 10975 TZE BIND NO » GO BIND ALL PROGRaMS TOGETHER 
027576 090000 7210 16 10276 LXu4 0,6 GET POINTER TO DEFINITION CHAIN IN XR © 4 
027577 030237 0610 OV 10277 ADX4 CHAIN MAKE POINTER ABSOLUTE 
027600 000001 7200 41 10278 LXi0 1,4 GET TYPE OF ENTRY IN XR w» @ 
027601 027604 60910 60 19279 NZ SEA? TRANSFER IF NO SYMDEF 
027602 0090000 9660 16 10280 ADX6 0,46 STEP TO NEXT TABLE ENTRY #N SYM TaBLE 
027603 027574 7490 00 10284 TRA SEAY AND LOOP 
027604 090001 2350 16 19262 SEAQ LDA 1,6 GET FIRST HALF OF NAME IN A REGISTER 
027605 090002 2360 16 19283 LDQ 2,6 GET SECOND WALF OF NAME [N 0 REGISTER 
027606 039126 7570 OO 10264 STAQ NAME STORE NAME FOR READ ROUTINE 
027607 Goq0000 0660 16 10285 ADX6 0,6 STEP TO NEXT ENTRY IN SYMBOL TABLE 
027610 030236 1660 00 10786 SRX6 SYM MAKE POINTER 70 CURRENT ENTRY RELATIVE 
END OF BINARY CARD 00Q00uUS01 
027611 030134 7460 00 10287 STX6 SYMP AND SAVE FOR NEXT? TIME 
G27612 027242 7400 O00 10288 TRA RD AND GO ¥0 READ ROUTINE 
027613 030134 2210 450 10289 BIND LDX4 FREE GET POINTER TO AREA AFTER PROGRAM 
027614 00900001 0619 903 10290 ADX4 1,DuU STEP POINTER FOR FINAL TRANSFER INSTRUCTION 
027615 030131 7410 O09 102914 STX4 FREE AND STORE NEW FREE POINTER 
027616 030234 2210 03 10292 LOX4 USER, DU GET POINTER TO USER TABLE CONTROL WORD 
027617 000001 2220 95 10293 DX2 1,DuU GET NUMBER OF WORDS TO ADD IN XR - 2 
027620 030160 7000 00 10294 SX0 ALOc ALLOCATE SPACE FOR FINaL TRANSFER INSTRUCTION 
027621 030135 2350 00 10295 DA BINDI GET TRANSFER INSTRUCTION FOR END OF CODE 
027622 090000 7550 41 10296 STA Ord AND STORE RETURN TRANSFER AT END OF CODE 
027623 030235 2240 oy 10297 LDX4 TYPE GET TYPE TABLE BASE IN XR = 4 
027624 090000 2340 14 10298 BINDO SZN 0,4 ARE THERE ANY MORE TYPE ENTRIES 
027625 627662 6000 OQ 19299 TZE BIND2 TRANSFER {F NO MORE TYPES 
U27626 On0000 9640 144 10300 ADX4 0,4 STEP TO TYPE PART OF TABLE ENTRY 
027627 0301314 2210 oo 103014 LDX4 FREE GET POINTER TO NEXT AVAILABLE WORD IN XR @ 1 
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END 


END 
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027630 Uuynronn 7220 14 
027651 777777 6ng0 OY 
027632 On00NU 2250 Le 
027633 u30141 7459 OV 
027634 Oagn000 7419 12 
027635 030141 0620 OY 
027636 0301414 2349 OV 
OF BINARY CARD QOU0USU2 
027637 027632 6hiv OY 
U27640 O00000 2220 14 
027641 donof1 1620 OS 
027642 030131 0420 OV 
027643 030235 1640 OY 
027644 030234 2210 OS 
027645 030160 7000 O00 
027646 030235 0640 OV 
027647 o0n001 6220 14 
027650 000000 2350 14 
027654 777777 6350 O41 
027652 000010 7740 OO 
027653 001400 6200 05 
027654 00000001100/ 
027655 oO0n000 5602 O1 
027656 On00N0 2360 ie 
027657 090000 7560 %1 
027660 O0N0N0 Y64n 144 
027664 027624 71400 O00 
027662 030131 2350 00 
027663 039136 7550 00 
027664 027210 7550 00 
OF BINARY CARD Qog0uS8085 
027665 00900022 7710 600 
027666 030249 2210 90 
027667 Uonnd000 2340 41 
027670 777777 6000 90 
027671 000000 6200 05 
027672 000001 7400 $1 
027673 000000 2220 $1 
027674 000000 7490 {2 
027675 000001 0350 £1 
027676 000002 0610 93 
027677 000000 2340 &1 
027700 027671 6010 00 
027701 000000 6220 05 
027702 0301351 1620 09 
027703 009000 6200 05 
027704 O3N131 7400 00 
027705 039234 2210 O35 
027706 0309160 7nU0 60 
027707 030234 7440 51 


ALGOL68 


10302 
103903 
lozu4 
Lo3%y5 
10306 
10307 
190398 


10309 
10310 
losii 
10312 
10313 
10314 
10315 
10316 
10347 
10348 
10319 
10320 
Los2i 


19322 
10323 
10324 
10325 
10326 
10327 
10328 
10329 


10330 
Lo334 
10332 
10333 
10334 
190335 
10336 
10337 
10338 
10339 
10340 
10341 
10342 
10343 
10344 
10345 
10346 
10347 
10348 


BINDS 


BIND2 


BINDS 


LXL2 
TZE 

LDX3 
STX3 
STX4 
ADX2 
SZN 


TNZ 
L 0x2 
SBX2 
ASX2 
SBX4 
LOX4 
TSX0 
ADXA4 
EAX2 
LDA 
EAA 
ARL 
EAXO 


RPDX 
LDQ 
$7Q 
ADX4 
TRA 
LDA 
STA 
STA 


ARL 
DX4 
SZN 
TZE 
EAX0 
STXo 
LDX2 
STXoO 
ADLA 
ADX4 
SZN 
YNZ 
EAX2 
SBX2 
EAXO 
STXo0 
LDx4 
TSX0 
TRA 


PASS 3 


0,4 
BERROR 
Vie 
TEMP 
0,2 
TEMP 
TEMP 


BINDS 
6,4 
1,0U 
FREE 
TYPE 
USER,DU 
ALOC 
TYPE 
1,4 
0,4 
74, AU 
8 

768, AL 


af 

0,2 

Oe 

0,4 
BINDQ 
FREE 
PROGZ 
RSMBASE 


18 
PROG 
O14 
SERROR 
0, AL 
4.4 
Ori 
Q:2 
1,1 
2,DU 
Ord 
BINDS 
O,AL 
FREE 
Oe AL 
FREE 
USER, DU 
ALOc 
USER,! 
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GET POINTER TO ADDRESS CHAIN FOR THIS TYPE 
COMPILER FRROR » NOQ CHAIN 

GET POJNTER TO NEXT WORD {N CHAIN IN XR © 3 
AND STORE IN TEMPORARY LOCATION 

STORE POINTER To TYPE TEMPLATE IN CURRENT WORD 
MAKE XR w 2 POINT TO NEXT WORD IN CHAIN 

SEE JF THERE ARE MORE WORDS IN CHAIN 


TRANSFER IF MORE WORDS TO CHAIN 

GET LENGTH « 4 OF TEMPLATE 

GET LENGTH OF TEMPLATE IN XR @ 2 

AND ADD YO FREE TO ALLOCATE MEMORY 
MAKE YYPE TABLE POINTER RELATIVE 

GET POINTER TO USER TABLE CONTROL WORD 
ALLOCATE SPACE !N USER AREA 

MAKE TYPE TABLE POINTER ABSOLUTE 

GET ADDRESS OF TEMPLATE IN XR w 2 

GET LENGTH OF TEMPLATE « 41 IN AU 

GET LENGTH OF TEMPLATE IN AU © ZERO IN AL 
POSITION CQUNT FOR REPEAT 

GET COUNT AND A AND B BYTS IN XR - 0 


MOVE 

FROM TEMPLATE IN TABLE 

TO NEWLY ALLOCATED MEMORY 

STEP XR « 4 TO NEXY TABLE ENTRY 

AND LOOP 

GET POINTER TO CURRENT END OF a~LLOCATEB MEMORY 
SAVE LOCATION OF ENVIRONMENT OF MAIN PROGRAM 
STORE POINTER TO BASE OF COLLEGTABLE STORAGE 


PUT POINTER IN AL 

GET POINTER YO START OF PROGRAM TABLE IN XR = 4 
SEE JF THERE IS at LEAST ONE ENTRY 

NO = COMPILER ERROR 

GET FREG MGMORY POINTER IN XR » O 

AND STORE AS ENVIRONMENT OF CURRENT PROGRAM 

GET ADDRESS OF BASE OF CODE _IN XR - 2 

STORE POINTER TO ENVIRONMENT IN FIRST INSTRUCTION 
ADD LENGTH OF ENVIRONMENT TO AL 

STEP TO NEXT TABLE ENTRY EN PROGRAM TABLE 

ARE THERE ANY MORE ENTRIES IN RROGRAM TABLE 
TRANSFER IF THERE ARE MORE ENTRIES 

GET NEW FREE POINTER IN XR @ 2 

SUBTRACT OLD FREE POINTER TO GET LENGTH NEEDED 
GET POJNTER TO FREE AREA [IN XR » 9 

ALLOCATE aLlL MEMORY USED FOR PROGRAM ENVIRONMENTS 
GET POJNTER TO USER AREA CONTROL WORD 

AND ALLOCATE MEMORY IN USER AREA 

EXECUTE ALL PROGRAMS TO DEFINE SYMBOLS 
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L PASS 3 
U27710 U3N236 2250 OD 10349 BINDR {ULDX5 SYM GET BASE OF SYMBOL TABLE FABLE IN XR « 5 
027711 000090 7210 15 10350 BIND4 LXL4 0,5 GET POINTER TO NEF/REF CHAIN IN XR ~ 4 
027712 039237 y610 oD 10351 ADX4 CHAIN MAKE POINTER ABSOLUTE 

END UF BINARY CARD 0N00uU504 
U27713 000001 7200 41 10352 Xxt,0 1,1 GET DEF/REF FLAG IN XR = QO 
U27714 777777 6019 OU 10353 TNZ SERROR ERROR » NO SYMDEF FOR THIS SYMBOL 
027715 0309240 2220 OU 10354 LDX2 PROG GET POINTER TO BASE OF PROGRAM TABLE IN XR - 2 
027716 000000 0620 11 10355 ADX2 Ord ADD PROGRAM NUMBER WHERE SYMBOL IS DEFINED 
027717 000000 7240 $1 10356 LX 4 Ort GET ANDRESS OF SYMDEF IN XR ~ 4 
027720 «66000001 0640 12 10357 ADX4 1,2 ADD BASE OF ENV{RONMENT TO MAKE IT aBSOLUTE 
027721 030137 2350 00 10358 LDA BLNKS GET NAME OF ENTRY POINT JN A REGISTER 
027722 000001 1150 19 10359 CMPA 1,5 IS CURRENY SYMBOL THE ENTRY POINT 
027723 027727 6010 00 10360 TNZ BINDS TRANSFER If NOT 
027724 000002 1150 15 10361 CMPA 2,5 IS CURRENT SYMBOL THE ENTRY POINT 
027725 027727 6010 00 10362 TNZ BINDS TRANSFER JF NOT 
027726 030140 7440 OV 10363 STX4 ENTRY SAVE ABSOLUTE ENTRY ADDRESS 
027727 000001 2200 £1 10364 BINDS (LDxo 1,1 GET POINTER TO NEXT SYMREF IN XR - Q 
027759 027754 6ny0 00 10365 TZE BIND6 TRANSFER IF NO MORE SYMREFS IN THIS CHAIN 
027731 099001 0610 41 10366 ADX4 dot STEP TO NEXT SYMREF 
027732 030249 2220 600 10367 LDx2 PROG GET POINTER TO BASE OF PROGRAM TABLE IN XR © 9 
027753 000000 0620 41 10368 ADX2 Ori ADD SYMREF PROGRAM POINTER TO MAKE IT ABSOLUTE 
027734 d0n000 7250 1 10369 LXLS Gol GET ENVIRONMENT ADDRESS OF SYMBOL 
027735 v0N001 0650 12 10370 ADX3 132 ADD BASE OF ENVYRONMENT TO MAKE IT aSSOLUTE 
027736 000000 6220 14 10374 EAX2 0,4 GET ADDRESS OF VALUE DEFINED BY SYMNEF IN XR - 2 
027737 000001 2350 £1 10372 DA 1,1 GET LENGTH OF VALUE IN AL 
027749 0090000 6350 05 10373 EAA 0, AL MOVE LENGTH TO aU 
END OF BINARY CARD 0009000505 
027741 777777 6000 49 10374 TZE $ERROR ERROR » TOQ MANY SYMDEFS FOR THIS SYMBOL 
027742 000010 7710 O9 10375 ARL 8 POSITION COUNT FOR REPEAT 
027743 001400 6290 05 10376 EaXxo 768, AL GET COUNT AWD A AND B BITS IN XR ~ 9 
027744 000000011007 
027745 O900N0 5602 O14 10377 RPDX of MOVE 
027746 0000N0 2360 22 10378 L Da Us2 FROM VALUE OF SYMDEF 
027747 OonotO 7560 43 10379 STQ 0,3 TO ADDRESS OF SYMREF 
027759 027727 7100 00 10380 TRA BINDS AND |00P 
027751 000000 9650 45 10381 BIND6 ADX5 045 STEP TO NEXT SYMBOL 
027752 0090000 2340 15 10382 $ZN 0,5 SEE [F FHERE ARE ANY MORE SYMBOLS 
027753 027741 6010 OO 10383 TNZ BIND4 TRANSFER {F MORE SyMBOLS 
10384 * THIS 1S a KLUDGE TO SET RUN TIME ENVIRONMENT 

027754 027755 5500 Ou 10365 SBAR ea} 
027755 000000 2350 O5 10386 DA ##,DU 
027756 090011 7350 OO 10387 ALS 9 
027757 002000 6250 O01 10368 EAX5 1024,AU 
027769 590006 0010 Ov 19389 MME MSMREQ 
027764 027762 55yu0 00 10390 SBAR #el 
027762 009000 2350 O38 10394 DA #e,DU 
027763 O0N011 7390 OY 10392 ALS 9 
027764 027207 7550 Og 10393 STA RSMTOP 
027765 027207 2360 Qu 10394 DQ REMTOP 


027766 027210 1760 Oy 10395 $BQ RSMBASE 
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END 


END 


U1 J5"260-72 
L 

END UF BINARY CARD 
027767 ugo3sna 
027779 unno4i 
U27774 777776 
027772 O27201 
027773 vU272N7 
027774 027201 
027775 v272N00 
027776 ononn2 
027777 U27204 
030000 030131 
030001 vu30140 
USo002 090001 
030003 627211 
030004 026225 
030005 u262413 
030006 0301409 
030007 777777 
030010 030131 
030011 0301314 
030012 000001 
030013 027204 
030014 000002 
OF BINARY CaRD 
030015 777777 
030016 000000 
030017 027223 
030020 090000 
030021 od0n0N1 
030022 0090002 
030023 090002 
030024 027210 
030025 030042 
030026 026549 
030027 000002 
O3n059 Gonn0n1 
030051 090092 
USso0352 00001 
030033 090000 
030034 027210 
630035 030042 
030036 777777 
030037 030043 
030040 025365 
030041 095653 
030042 027222 
OF BINARY CARD 
030043 Ognono 
030044 030046 
030045 09000 


17,805 


unuous06 


Q76Nn 
276N 
6219 
7419 
22130 
1619 
74190 
1610 
74190 
2350 
2220 
2220 
7420 
7500 
7400 
2210 
6nu0 
2220 
2260 
0660 
1960 
6020 


0000y597 


7000 
6350 
0750 
7550 
4500 
2350 
7550 
2350 
0750 
7590 
7420 
7290 
44y0 
4500 
6200 
1600 
4400 
6600 
7400 
7000 
71N0 


0S 


00 
44 
07 
12 
12 


00 


QounuUd 


000005908 


777777 


Q004 


90 


ooonus 
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19396 
10397 
19398 
10399 
10400 
1o4o014 
10402 
10403 
10404 
19495 
19496 
109497 
190498 
190409 
10410 
10414 
10412 
10413 
10414 
10415 
10416 
10417 


10418 
10419 
10420 
10424 
10422 
10423 
10424 
10425 
10426 
10427 
10428 
190429 
10430 
104314 
19432 
10433 
10434 
10435 
10436 
10437 
10438 TERM 
10439 TP 


10440 
10441 SRTI 
10442 SRT 


ADY 
Uv 
FAX 
STX1 
LOx1 
SRX1 
STxt 
SBX1 
STXi 
DA 
LDX2 
LOXx2 
STX2 
STtc2 
TRA 
LOXx4 
TZE 
LDX2 
OX 
ANxX 
CMPX 
TNC 


TSX0 
EAA 
ADA 
STA 
STZ 
LDA 
STA 
LDA 
ADA 
STA 
STx2 
LXL0 
SXLo 
$72 
EaX0 
SBX0 
SXLO 
ERXO 
STX0 
TSXxX0 
TRA 
ZERO 


ZERO 


TALLY 
ZERO 


PASS 3 


2#52432,DU 


$3.0 
7? .QU 
R*BYTL 
KEMTOP 
REBTTL 
REBITT 
2,DY 
RESMAX 
FREE 
ENTRY 
1,2 
KSREQ 
R&ZFERX 
KEZER 
ENTRY 
SERROR 
FREE 
S,FREE 
Ssisi 
S,;RESMAX 
2,1C 


SERROR 
Oot 
TSPROC,DL 
0,2 

1,2 

2,1 

2,2 
RSMBASE 
TP AML 
R$GN 
2s4 

1,1 

2e1 

1.1 

0,2 
RSMBASE 


RSENTER 
PSSTOP 
TSSKIP,0 


Oard 
SR,SRE-SR 
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GET MAIN ENTRY POINTER IN XR © 4 

ERROR » NO BLANK SYMDEF 

GET POJNTER TO BASE OF STACK IN XR ~ 2 
INITIAL}ZE STACK POINTER 

ADD AMOUNT OF LOCAL STORAGE NEEDED BY PROGRAM 
DOES THIS OVERLAP THE HEAP 

TRANSFER IF OK 


GARBAGE COLLECT (LINK UP LLOtS) 

GET ADDRESS OF PROCEDURE VALUE IN au 
ADD TYPE IN AL 

AND STORE AY BASE OF NEW STACK 
INITIALIZE S REGISTER SAVE WORD 

GET ENVIRONMENT OF PROCEDURE 

AND STORE IN STACK 

GET BASE oF STORAGE AS ENVIRONMENT 

ADD TYPE OF GLOBAL STORAGE 

AND STORE AS CURRENT ENVIRONMENT 

STORE OLD S REGISTER IN OLD STACK 

GET YYPE OF NEW ENVIRONMENT IN XR © Q 
AND MOVE IN MSCW 

ZERO OUF OLD TYPE FOR GARBAGE COLLECTOR 
GET BASE OF NEW ENVIRONMENT IN XR « O 
GET LENGTH OF CURRENT ENVIRONMENT IN XR - Q 
AND STORE AS LENGTH IN TyPE PATTERN 

GET 41S COMPLEMENT 

AND STORE IN TERMINATOR WORD JIN TYPE PaTTERN 
AND ENTER PROGRAM 

PRINT READY MESSAGE AND SToP 
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030046 
030047 
030050 
O3n051 


030052 
030053 
030054 
030055 
030056 
030057 
030060 
030061 
030062 
030063 
030064 
030065 
030066 
030067 
030070 


. 


O3N052 QoOuUoUA 
03N062 OOUNNO 
030056 Qounua 
039072 Onvood 
N$0Q052 
050052 
030056 OoU0N0 
777777 Qounus 
056101114107 
114711406607y 
777777 OdoudUO 
000Q902 Youtusd 
074125123105 
12207604004) 
030066 Qo0000 
777777 Qou008 
056101114107 
11711406607) 
030402 Q00000 
777777 Onu000 
130123151125 


END OF BINARY CARD 00000509 


END 


030071 
030072 
030073 
030074 
030075 
030076 
030077 
030100 
030101 
030102 
030103 
030104 
030105 


030426 
030127 
030150 
03014514 
030152 
U30153 
030134 
030155 


405101124040 
030076 On0000 
777777 oou000 
056491114107 
117114066070 
030402 000000 
777777 dogovda 
104114111102 
42210112213) 
777777 000000 
000000 gnon00 
074115106104 
076040040040 
050106 
050126 

000000000000 
Oong00000900 
090000 Onu0u0 
000000 On00N0 
Op000d0NNNnN 
Oqn000000U0N 
000000 Onv00e 
027710 7400 490 


OF BINARY CARD 90900510 


0301356 
030157 
030140 
036141 


090000 Qna0u8 
0400400404) 

0900090 Qnu009 
Qo0000 060000 
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10443 
10444 
10445 
10446 
10447 
10448 
10449 
10450 
10451 


190452 
10453 
10454 


10455 
10456 
10457 


19458 
10459 
10460 


10461 
10462 
10463 


10464 
10465 
10466 


10467 
10468 
10469 


10470 
10471 
40472 


40473 
19474 
10475 


10476 
10477 


10478 
10479 
10480 
lo4e1 


oR 


SRE 


XSYSC 


MF D 


NAME 


FRN 
FREE 
CEL 


SYMP 
BIND] 


PROGY 
BLANKS 
ENTRY 
TEMP 


ZERO 
ZERO 
ZERO 
ZERO 
EQuU 
EVEN 
ZERO 
ZERO 
YASC] 


ZERO 
ZERO 
vaSC] 


ZERO 
ZERO 
UASC] 


ZERO 
ZERO 
YASC] 


ZERO 
ZERO 
yasc] 


ZERO 
ZERO 
YASC] 


ZERO 
ZERO 
VASC] 


BSS 
EVEN 
OcT 


ZERO 
ZERO 
OCT 


ZERO 
TRA 


ZERO 
YASC] 
ZERO 
ZFRO 


2, ,ALGOL68 
=4 

2 

2,<USER> 
#24 

wi 

24, ALGOL68 
MFD 


vale 8 
2,XSYSCAT 


a4 

aes 

MFD 

vt 
2,DLIBRARY 
e1 


0 
2a <MFD> 


16 
0,0 
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04557 


END 
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L 
030142 4vonNd0N6710004 
N$0159 
OS$0150 dDoNuNongagay 
030151 cond ON00U0N" 
030152 do00ND0NV0U0N" 
030153 vonononuounod 
030154 O000NDNVDUNN 
030155 uondo00ng0unNN 
030156 vondconunooy 
036197 voodungnooudu 
030160 030150 7535n OV 
030191 030141 7420 00 
030162 090000 7220 41 
030163 030141 0620 00 
030164 O90000 4420 £1 
030195 000000 0620 £1 
030166 090001 1620 £1 
030197 030225 6n40 00 
OF BINARY CARD (0000511 
030170 000145 0620 035 
030171 030173 7420 OV 
030172 030241 2250 oY 
030173 000000 6240 13 
030174 030175 5500 Oy 
030175 0090000 2360 Q3 
030176 000041 7360 00 
030177 000000 6250 62 
030200 O3N2N1 7450 OOD 
030201 090000 1n4n O35 
030202 0O3N207 6020 O00 
030203 090001 6250 14 
030204 5090006 on10 00 
¥30205 000000 6250 195 
030206 777777 6010 09 
030207 000001 1040 11 
030210 03N216 6000 OO 
030211 000000 2360 13 
030212 Un0000 7560 14 


B) 


ALGQLS4& 


10482 
10483 


10484 
10485 
10486 
10487 
19488 
10489 
10490 
10494 
10492 
10493 
10494 
10495 
10496 
10497 
10498 
10499 
10500 
10504 
19502 
10503 


10504 
19595 
19506 
10507 
10898 
40509 
10510 
10314 
10512 
10513 
190514 
10545 
10516 
10547 
10518 
10519 
10520 
10522 
10522 


REG 


yee see eee tes & 


OC 


AINC 


ALOci 


PASS 3 


EIGHT 
OcT 060.0.0207000,0 


THE TABLE ALLOCATION ROUTINE ALLOCATES DYNAMIC SPACE 
FOR THE SEVERAL TABLES REQUIRED DURING COMPILATION, 
THE CALLING SEQUENCE IS A TSXO WITH THE A REGISTER 
CONTAINING THE LENGTH,DU OF THE NEW TABLE ENTRY 
REQUESTED AND XR = 1 CONTAINING a POINTER TO THE 
TABLE CONTROL WORD OF THE APPROPRIATE TABLE, THE 
SUBROUTINE RETURNS IN XR » 1 A POENTER TO THE 

NEWLY CREATED TABLE ENTRY, THE FORMAT OF a TABLE 
CONTROL WORD 1S UPPER HALF IS ABSOLUTE LOCATION 

AND LOWER HaLF Is THE CURRENT LENGTH OF THE TABLE, 
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SREG REG SAVE REGISTERS 

STX2 TEMP SAVE LENGTH REQUESTED 

LXL2 Oo1 GET CURRENT LENGTH OF TABLE 

ADX2 TEMP ADD REQUESTED LENGTH TO GET NEW LENGTH 
S$X2 Oot SAVE NEW LENGTH OF TABLE 

ADX2 Ord ADD CURRENT LOCATION OF TABLE 

SBX2 1,1 SUBTRACY LOCATION OF ADJACIENT TABLE 

TMI ALQc4 TRANSFER IF NO TARLE MOVING HAS TO BE DONE 


ADX2 19100, DU 
STX2 AINC 
LDXx3 TEND 
EAX4 ©, 3 


SAVE ADDIYJONAL LENGTH NEEDED 
GET ADDRESS OF END OF TABLES 


ADD ONE PLUS EXTRA SPACE TO BE ALLOCATED 


SBAR eet STORE CYRRENT LENGTH OF CORE 

LDQ ##,DU AND PUT IT IN Q 

QLS 9 GET LENGTH IN QU 

EAXS ug, au PUT IN XR » 5 FOR HALFWORD OPERATION 
STX5 @ot AND STORE FOR COMPARE 

CMPX4 ea, DU 1S THERE ENOUGH CORE 

TNC ALOE. TRANSFER {IF OK 

EAX5S 1.4 GET LENGTH OF CORE NEEDED IN XR & 5 
MME MSMREQ AND TRY TO GET MORE CORF 

EAX5 0,5 DID WE GET IT 

TNZ SERROR NO e# ERROR 

CMPX4 1.1 IS THERE ANY MORE TO MOVE 

TZE ALQC2 TRANSFER {IF DONE MOVING 

Da 0,3 FETCH FROM OLD TABLE LOCATION 

STQ 0:4 STORE IN NEW TABLE LOCATION 


GET ADDRESS OF NEW END OF TABLE IN X¥R © 4 


01557 


END 


U1 U5=26072 
L 

O3r213 GonoeL 
030214 on0n0n1 
030215 U30207 
OF BINARY CARD 
030216 U30173 
030217 conon1 
030220 0090000 
O30221 O0n001 
Os0222 030241 
030223 030220 
030224 030220 
030225 000000 
635226 090000 
030227 090000 
030250 030141 
030231 030159 
030252 039150 
030253 Odn00N0 
030234 000000 
030255 090000 
030256 090000 
030257 000000 
030240 000000 
03c241 099000 


17,863 


1650 0% 
1640 OS 
7100 OV 
Onuous12 
22450 OU 
6240 £1 
0450 14 
0640 0S 
1040 Os 
6040 OY 
6000 0V 
7220 41 
0620 11 
45u0 12 
1620 00 
4420 00 
0730 oV 
7400 19 
Qououo 
Qnvove 
ongou0 
oou0u0 
onuouo 
pov00a 


059242 


ALGO. 68 


10523 
10524 
10525 


10526 
10527 
19528 
10329 
10530 
10534 
10532 
10533 
10534 
10535 
10536 
19537 
10538 
10539 
10340 
10341 
10542 
10543 
19544 
10345 
10546 
10547 


ALOC2 
ALOC3 


ALOC4 


USER 
TYPE 
SYM 
CHAIN 
PROG 
TEND 


SaXx3 
SRX4 
TRA 


LOX3 
EAX4 
ASX3 
ADX4 
CMPX4 
TM] 
TZE 
LX 2 
ADX2 
STZ 
SBXx2 
SXL2 
LREG 
TRA 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
HEAD 
gss 


100 


RAGE 237 


DECREMENYT SOURCE POINTER . 
DECREMENT DESTINATION POINTER 
AND TRY TO MOVE SOME MORE 


GET DISPLACEMENT IN XR - 3 

GET POINTER TO CONTROL WORD OF FIRST MOVED TABLE 
MODIFY DESCRIPTOR TO POINT TO NFW TABLE LOCATION 
STEP TO NEXT DESCRIPTOR 

ARE WE NONE INCREMENTING DESCRIPTORS 

TRANSFER tf MORE TO DO 

TRANSFER IF MORE TO DO 

GET LENGTH OF TABLE 

ADD CURRENT LOCATION 

ZERO OUT WORD FOLLOWING ENTRY 

SUBTRACT LENGTH OF NEW ELEMENT FOR !TS LOcaTION 
PUT LOCATION OF NEW ELEMENT IN XR = 9 

RESTQRE REGISTERS 

AND RETURN 


PATCH SPACE 


01557 


END 


EnD 


END 


END 


END 


END 


Ut 


OF 


OF 


OF 


OF 


OF 


OF 


U5e2b- 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


72 


CARD 


CARD 


CARD 


CARD 


CARD 


CaRD 


17,363 


NudYyoL 


050406 
Qoyous1s 
0504916 
050446 
050416 
050434 
050434 
050434 
050434 
1$0434 
00000514 
0590465 
050465 
080463 
050463 
030463 
00000516 
150512 
N$9o12 
056912 
059512 
059512 
00000547 
050540 
050546 
059546 
050546 
050546 
059546 
030546 
00y00518 
050602 
05061) 
03590610 
00000519 
0596290 
050620 
05062y 
039629 
9050620 
050620 
150620 
050620 
050620 
059620 
050629 


ALGIL 65 
3 


10548 
10549 
10550 
105514 
10552 


10553 
10554 
10555 
10556 
10557 
19558 
10559 
10560 


10561 
10562 
10563 
10564 
10565 


10566 
10567 
10568 
10569 
10570 


10571 
10572 
19573 
10574 
10575 
40576 
10577 


10578 
19579 
10580 


10564 
10562 
19583 
19584 
10585 
10586 
10567 
105868 
10589 
10590 
10594 


YuTax 


Sete 


PROG 


PRO 


CUND 


THEN 


ELSE 


SER 
UTATIL 


UNIT 
JUNKE 


JUNK 


TTLS 
SE} 
PMC 
REF 
SYNTAX 


SYNTAX 
ETC 
ETC 
SYNTAX 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
ETC 
ETC 
ETC 
erc 


SYNTAX 
SYNTAX 
ETC 
ETC 
ETC 
eTC 
ETC 


SYNTAX 
SYNTAX 
ETC 


SYNTAX 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 


PAGE 
PASS 1 


SYNTAX 
1 

OFF 
OFF 
(PRO, ASPASS2,,25PRU,26D0NE,) 


PASS 4 


(PDEN,1$0DEL,), 
(14SSRNGE,CLOR, 1SCLEAR, IDNT, A $MRNGE,,SER,4$DECI,,#), 
(4SERNGE,CLOR) 

(ASMATCH, SSBAR, LSDECIL, , i SERNGE,BARR,LSSRNGE,BARR,#), 
(13MRNGE,,SER,ELSE), 

(ASMATCH, SSBARF ,1SDECI,,4SERNGE, BARR, y$SRNGE,#), 
(BARR, 1 SMRNGE,,SER, THEN), 

(1$EMPTY,) 


(ASMATCH, SSBAR, 43DEC], , 4SERNGE,BARR,LSSRNGE,BARR,#), 
(1$MRNGE,»SER,ELSE)s 

(ASMATCM, SSBARF ,1SDEC],,1$ERNGE, BARR» 1 SSRNGE,#), 
(BARR, 1 SMRNGE,,SER,THEN), 

(ASOERR;,ASERB) 


(ASMATCH, SSBAR, 1S$DEC], , 1 $ERNGE, BARR, LSSRNGE,BARR, #3, 
(1 SMRNGE,,SER), 

(ASMATCH, SSBARF ,4$DECI, .4$ERNGE, BARR, 1 SSRNGE,*#), 
(BARR, 4SMRNGE,,SER, THEN), 

(4SEMPTY,) 


(UNTTAUYAIL) 
(ASMATCW,SSSEMI,1$0AD0,SEMIC,UNIT,UTAIL), 
(ASMATCH, SSCOLON, 1S0AD0gCLNC,4SDECLC,,UNIT,#), 
(UTAIL) 

(ASMATCH, SSPER,4$0AD0,SEMIC,4SIDENT,,#), 
(ASMATCH,SSCOLON, 15STID,, ASDECL, »,UNITUTATL Ds 
(JTAIL) 


(130STZ,1DNT, DEC) 
(JUNK), 
(¢SEMPTY, ) 


(431 DENY, ,19ST] DBs, QUNKE), 
(ASMATCH,SSEQ,1850SM0,IDNYT, JUNK), 
(ASMATCW, SSASGN, 159SMO, {DNT, JUNKE), 

(PDEN, 1$QDEL.,18Q9SM9, IDNT, JUNKE), 
(BOX,4¢S9DELy.1$0SM0, JDNT, JUNKE), 
CASMATCH,SSSTR,SUN[T, SSO0DEL se LSOSMO,ITDNT, JUNKE), 
Ee eee nate oars SORTA ENT a NG 
(JUNKE), 

CASMATCH, SSPROC,ARGE,4S58SM0, 1 DNT,JUNKE), 
CASMATCHM,SSREF,1S50SMO, I] DNT, JUNK), 
(ASMATCHM,SSLOC,2$0SMQ,I1DNT,JUNK), 
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01557 


END 


END 


END 


END 


END 


END 


EnD 


ENP 


END 


04 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


U5e2b<e72 


1 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


17,863 


050620 
050620 
Qou00s22 
050725 
050725 
030735 
039735 
vovnos2s 
036750 
050759 
050762 
0309762 
00000524 
030775 
059775 
054019 
O3$¢o010 
00n09525 
051022 
051922 
054054 
034034 
00u00526 
034046 
054046 
0510690 
054060 
051072 
00000527 
052101 
059104 
034115 
054115 
009000528 
054130 
054437 
034137 
05$157 
0341357 
1341357 
034137 
034137 
05$157 
000900550 
034204 
034201 
054212 
O5¢212 
031212 
onu005S4 


ALGOL48 
Ss 


10592 
10593 


10594 
10595 
10596 
10597 


10598 
19599 
10600 
10601 


10602 
19893 
10604 
490605 


10606 
194607 
10608 
10609 


10610 
10611 
19612 
10615 
10614 


10615 
10616 
10617 
10618 


10619 
10620 
10421 
10622 
10623 
10624 
1090625 
10626 
10627 


10628 
10629 
10630 
10631 
10632 


YNTAX 


FJ 


JTATL 


tha 
SUNTT 


UUN]T 


FURS 


PROMS 


BYS 


TOS 
WHLES 
DUS 
BOX 
BTAIL 


BELEM 
BEL2 


BEL3 


BEL4 


ETC 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 
SYNTAX 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
SYNTAX 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 
ETC 


PAGE 
PASS 4 


(ASMATCH,SSHEAP,1$0SM0,IDNT,JUNK), 
(ASMATCH,SSOF,1$0SM0, IDNT, JUNK) 


(FORS), 

(JUNKE) 
(ASMATCW,SSCOMMA,450AD0,COMAC,1§0SMO,IDNT,JTLA)» 
(4SEMPTY, ) 


(FURS, JYAIL}, 

(JUNKESJTAIL) 

CASMATCH, SSLPAR,1SPUSH, IDNT,1SMARK, ,FSEO,#), 
(ASMATCH, SSRPAR,ISEOCST, ei SOPOP,IDNT) 


CASMATCH,SSLPAR,LSPUSH, IDNT,LSMARK, ,MSEQ,#), 
CASMATCH, SSRRAR,1SQCUN, pi $QPOP, ONT) 
(ASMATCH,SSFOR, 1S} DENT,,FROMS), 

(FROMS) 


(ASMATCM, SSFROM,JUNK,BYS), 
(BYS) 
(ASMATCH, SSBY, JUNK, TOS)» 
(TOS) 


(ASMATCH,SSTO, JUNK, WHLES), 
(WHLES) 
(ASMATCW,SSWHLE,SER,DOS), 
(pds) 
CASMATCH,S$D00,150SM0, [DONT Fw) 


(ASMATCH,SSSUB, LSSRNGE,BOXR,BELEM,BTAILL@), 
(ASMATCH,SSBUS,1SCBOX, ,ASERNGE,ROXR,LSREST,CBOXT) 
(ASMATCW,SSCOMMA,1S0AD0,COMAC,BFLEM,BTAIL), 
({SEMPTY,) 


(4$9S7Z; ]DNT, JUNKE, BEL 2) 

CASMATCM, SSCOLON, 1S0AD0,CLNC,159STZ,IDNT,JUNKE,#), 
(BEL3) 

(ASMATCH, SSAT,1S0AD0,CLNC,4$9STZ,1DNT, JUNK), 
CASMAYCH, SSFLEX,ASMATCH,SSCOLON, 1$0AD0,CLNC,&), 
(AS0STZILONT, JUNKE, BEL 4), 

CASMATCH, SSEITH,ASMATCH,SSCOLON,1$0AD0,CLNE,«@), 
CaS0STZ{,LONT, JUNKE,BEL4), 

(1$9STZ,1DNT) 


(ASMATCH,SSAT, JUNK) > 
(BEL 4) 
(ASMATCH,SSFLEX), 
(ASMATCH,SSEITH), 
(14$EMPTY,) 
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01557 


END 


END 


EnD 


Env 


EN) 


END 


END 


UL 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


05-2660 


1 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


72 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


17,863 


AS12259 
NSte2o 
NSL229 
N$1225 
NSl22o 
0S1225 
N$L1225 
051225 
051225 
051225 
N$1225 
054225 
0514225 
051225 
051225 
0514225 
00000554 
054552 
051552 
051544 
054544 
0000905355 
051557 
054557 
934570 
05143570 
00U00956 
054402 
054402 
054402 
054402 
051402 
051402 
054402 
00000557 
054450 
0514506 
0000U538 
054462 
054462 
054462 
05$%500 
054500 
000005389 
054512 
054512 
054524 
034524 
onungS4o 
054537 


ALGOL66 


SYNTAX 


104633 Dec 
10434 
10635 
10436 
10637 
1904638 
10639 
10640 
10641 
10642 
10643 
104644 
10645 
10646 
10647 
10648 


19649 PRY 
19650 


10651 PRTY 


19652 


10653 PRT2 


10654 


10655 PRTZ 


10656 


19657 OPDEC 


10658 
10659 
10660 
106614 
19662 
10663 


10664 OPT. 


10665 


10666 OFT1 


10667 
10668 


10469 OPT2 


10670 


10674 MTAIL 


10672 
10673 MT4 
10674 


10675 MT2 


SYNTAX 
eT 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAx 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 


SyNTAx 
ETC 


SYNTAX 
ETC 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 


PAGF 
PASS 1 


(ASMATCH,SSPRIOR,ISIVENT, pL BSTIN, ,ASMATCH,SSEQ,*#), 
(PRT3), 

(ASMATCH,SSOP,QPDEC), 

(ASMATCH, SSMODE,ALSJVENT,,4¢STID, ,ASMATCH,SSEQ,#), 
(MTS), 

(ASMATCH,SSSTR,SDEC), 

(ASMATCH,SSUNION,UDEC), 

CASMATCH,SSPROC,PDEC), 

(ASMATCH, SSREF,RESLT,1$EREF,,IDEC), 
(BOx,RESLT,1$EB0OX,, DEC), 
(ASMATCH,SSLOC,RESLT,IDEC), 

(ASMATCH, SSHEAP,RESLT,IDEC), 
(ASMATCH,SSLIBRY,RESLT,¢SSAVE,FMODE,1S5DECLB,,#), 
(LIBL), 

CA4SEDENT, «1 9STID ID), 

(JTL1) 


(ASMATCH,SSCOMMA, 1S$0AD0;COMAC,PRT4), 
(4 SEMPTY,) 

(1S 1DENT, »1SSTIDy,PRT2), 
(4$9SM0,1DNT, DEC) 


(ASMATCH, SSEQ,PRT3), 

(ID) 

(1SPUSH, IDNT, 1S DENT, ,1SCNVRT,,4S0POP,IDNT,#), 
(1SDECP).PRT) 


(ASMATCH, SSLPAR, 1 SMARK, »MSEQ, ASMATCH,SSRPAR,#), 
(FIELD, e$0EPR, ,43DECO, , 4$DELS 

(1S,DENT, ,ASSTID, ,ASEVOID, ,ASDECO, ,ASMATCH,SSEQ,%), 
(PDEN,4SDECOP,,OPTL), 

CASMATCW, SSEQ, 4SST1D 4, SEVOIDy 04 
(ASMATCM, SSEQ,PDEN,1$DECOP, ,OPTL 
(ASOERR;ASERS) 


$DECO,,#), 
) 


CASMATCH,SSCOMMA,4S0AD0 pCOMAC,OPT?¢), 
(4SEMPTY,) 


(1S 1DENV,,18STID,,OPT2), 
(OPNEC), 
(1$09SM0,JDNT, DEC) 
CASMATCW,SSEQ,JUNK,OPTLI, 
(ID) 


{ASMATCH, SSCOMMA, 4S0AD0,COMAC,MT2), 
(1SEMPTY,) 

(AS1DENY, pASSTID, MTZ), 
(43nSMQ; 1 DNT, DEC) 


CASMATCH,SSEQ,MT3), 


» ASMATCH, SSEQ,FJ,OPTL), 
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END 


END 


END 


END 


END 


END 


END 


END 


END 


END 


04 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


U5*26- 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


72 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


17,563 


0$1537 
09$1559 
on00us41 
OS1>61 
NSLd61 
N$1561 
031561 
054602 
051602 
onu0us42 
051614 
051614 
054627 
0541627 
00000543 
051642 
054642 
034642 
034642 
00009544 
054663 
054663 
054675 
03$675 
00009545 
054710 
054710 
054723 
0354723 
00000546 
051741 
054741 
054741 
051744 
054741 
051741 
00000547 
052002 
052002 
00000548 
052015 
032015 
052015 
052015 
052u15 
0352015 
90000549 
032057 
032u57 
90000550 


ALGOL68 
3 


10676 
10677 


10478 
10679 
10660 
10661 
10682 
10683 


10684 
10685 
10686 
10687 


10688 
10689 
10690 
10694 


10692 
10693 
10694 
19695 


10696 
10697 
10698 
10699 


10700 
107014 
10702 
10703 
10704 
10705 


10706 
10707 


10708 
10709 
10719 
10711 
10712 
10713 


10714 
10715 


YNTAX 


MT3 


SDEC 


STAIL 


ST4 
ST2 


UDEC 


UNT 


UT4 


UT2 


PUDEC 


PUEC1L 


PDEC2 


RESLT 


RES1 


ETC 
SYNTAX 


SYNTAX 
ETC 
ETC 
ETC 
SYNTAX 
ETC 


SYNTAX 


SYNTAX 
ETC 
ETC 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
ETC 


SYNTAX 
ETC 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
ETC 


PAGE 
PASS 4 


(1D) , 
(1$PUSH, TDNT, MOD, 4S30POP,1DNT,1$PECM, MTAIL) 


(SUNTT,IDM)¢ 

C(A4S1TDENT, ,ASSTID, ,ASMATCH,SSEQ,SUNIT,15DECM,,#), 
(STAIL). 

(ASMERR, ASERS) 
CASMATCH,SSCOMMA,1$0AN0-eCOMAC,ST1), 

(LSEMPTY,) 


CLSYDENY,,23STID,,ST2), 
(150SM0,]DNT,DEC) 
(ASMATCH,SSEQ,SUNITs13DECM,sSTAIL)» 
(ED, 


OUN TT DUNE 

(4$1DENT, 4 S5STID, ,ASMATCH,SSEQ,UUNIT, 4 S$DECM, ,#), 
CUNT), 

CASQOERR, ASERG) 


CASMATCH,SSCOMMA,1$0AD0,~COMAC,UT1), 
(4SEMPTY, ) 

(4S1DENY, ,13STID,,UT2), 
(139SM0,;]DNT,DEC) 


CASMATCW,SSEQ,UUNIT,1EDECM,,UNT), 
(1D) 

(LESIDENT, ,13STID,,PDECI), 
C4SMARK,,ARGE,RESLT,1S50EPR,, DEC) 


(ASMATCH, SSEQ,15PUSH, IDNT,PDEC2,150P0P,IDNT,#), 
(14$0T7AG,,PTE), 

(ASMATCH, SSASGN,1 SPUSH, IDNT,PDEC2,,S0P0P,I1BNT,#), 
(ASEREF ,,1S0TAGsyPTA), 

(ASIDENT, ,1SMARK, ,1SQOMMI, ,1S0EPR,,44STID,, IDEC), 
(A4SMARK,,1$9EVOID,,1$QEPR,,IDEC) 


(PDEN), ; 
(JUNKE, 2S$MARK, ,LSEVOID, ,1S0EPR,) 


(ASMATCM, SSPROC,1$MARK, ,ARGE,RESLT,1S0EPR, ), 
(BOX, RESLT,15EBOX,), 
CASMATCM,SSREF,RESLT,AS$EREF,), 
CASMATCH,SSSTR,SUNIT, IDE), 

(ASMATCH, SSUNION,UUNIT, FDE), 

(4S1DENY, -1$STID,,RES1) 


C4S7DENT, ,1S90MMI,,13STID,), 
(14SEVOID, ) 
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01557 


END 


END 


Env 


END 


END 


END 


U4 


OF 


OF 


OF 


OF 


OF 


OF 


U5"26-72 


1 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


17,8063 


OS2071 
0S2071 
0$2102 
032102 
O000U551 
052114 
0582114 
0$2127 
052127 
052127 
00u0u992 
052144 
052144 
0521456 
052156 
000005535 
052174 
0521714 
05217141 
052171 
052471 
00000554 
052217 
052217 
052247 
058217 
032217 
052247 
00000955 
052257 
052257 
082274 
052271 
00000556 
052501 
052501 
052501 
RY KB 
052504 
052501 
052501 
052501 
0523504 
052504 
032501 


END OF BINARY CARD 90900958 


052560 
052560 
0523572 
032372 


ALGOL468 
NS) 


190716 
10747 
10718 
10719 


10720 
10724 
10722 
10723 
19724 


10725 
10726 
10727 
10728 


10729 
10730 
10734 
10732 
10733 


10734 
10735 
10736 
10737 
10738 
10739 


10740 
10741 
10742 
10743 


10744 
19745 
10746 
10747 
10748 
40749 
10750 
10754 
10752 
19753 
10754 


10755 
10756 
10757 
10758 


YNTAX 
TUE 


PTE 


MOD 


ARGE 


MOD1L 


FIELD 


FLD2 
PLD 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
ETC 
ETC 
eYc 
ETC 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETc 


SYNTAX 


PAGE 
PASS 1 


(1$1IDENT,,13STID,), 

(1$9SM0,1DNT) 
(ASMATCH,SSCOMMA,1$0AN0,COMAC,PTEL), 
(1 SEMPTY,) 


(1$1DENT, ,1SSTID,,PTE2), 

(1$0SM0,1DNT,DEC) 

CASMATCH,SSEQ,15PUSH, LDNT,PDEN,1$0POP,IDNT,*#), 
(1S30TAG,., PTE), 

(ID) 


CASMATCH,SSCOMMA,1$0AD0,COMAC,PTAL)» 
(LSEMPTY,) 

CA4SEDENY,,1SSTID,,PTA2), 

(4$0SM0; [DNT, DEC) 


(ASMATCW, SSASGN,4SPUSH, 1DNT,PDEN, 1 S0POP,IDNT,#), 
(ASEREF ) +1SQTAG: sPTAD, 

(ASMATCH, SSCOMMA, 4SOAD0,COMAC,1$MARK, ,ySEVGID,,*), 
(AS0EPR) s1S0TAG)s 

(ID) 


(ASMATCM,SSREF,MOD,ASEREF, }, 
(BOxX»MODL,15EBOX,), 

(ASMATCH,SSSTR,SUNIT), 

CASMATCH,SSUNION, UUNIT), 
CADSIDENY, pt SSTIDp eA SOMME, 0, 

(ASMATCM, S§PROC, 4 SMARK, pARGE, MODy , 4 SQEPR, } 


CASMATCH, SSLPAR,MSEQ, ASMATCH,SSRPAR), 
(4SEMPTY,) 

(MOD), 

(4SEVOID,) 


CASMATCM, SSREF,1S50SM0,FMODE,FIELD,4SEREF,,1SSAVE,#), 
(FMODE)i 

(BOX, 4S8SMOeFMODE,FIELD,1$EB0X,,1$SAVE,FMODE), 
(ASMATCH,SSSTR,SUNJT,LSIDENT, s1SSTID, ASSAVE,#), 
CFMODE), 
(ASMATCH,SSUNION, UUNTT, gSIDENT,,14SSTID, ,1$SAVE,#), 
(FMODE), 

(ASMATCW, SSPROC, 1SMARK,, ARGE,FLD2, 1S0EPR, , 15SAVE, #), 
(FMODE)3 

(1SIDENY, ,1$STID, sFLD4,¢$SAVE,FMODE), 

(ASOERR;ASER7) 


CASIDENT,,139STJD,,FLDS), 
(FIELD) 
CASTDENT, si S0MM1,,15STID,), 
(4S$EVOID,) 


242 


U455? 


END 


END 


EnD 


ENU 


END 


ENU 


END 


END 


END 


04 


OF 


OF 


OF 


UF 


OF 


UF 


OF 


OF 


OF 


5-20-72 


1 


BINARY CARD 


BINARY CARD 


BINARY CARD 


BINARY CARD 


BINARY CARD 


BINARY 


CARD 


BINARY CARD 


BINARY CaRD 


BINARY CARD 


17,803 


QoUunYy5ss9 
052404 
n$2904 
052416 

00000560 
052424 
052424 
0$24356 
052445 
052445 

Qovousé1L 
052469 
052460 
032474 
052474 

00v0Us62 
052510 
052510 
NS2523 
052523 
052523 
092523 
052523 

00u0u564 
052557 
052557 
052574 
052571 

00000565 
052604 
052604 
052620 
032620 

00000566 
0326352 
052632 
032645 
052645 
N$2645 
132645 
932645 
052645 

00000568 
052703 
032703 
9$2719 
052715 

0n00U569 
052750 
052739 


ALGOL68 


10759 
19760 
10761 


10762 
10763 
10764 
10765 
10766 


10767 
10768 
10769 
10770 


10774 
10772 
10773 
10774 
10775 
10776 
10777 


10778 
10779 
10780 
10761 


10762 
10783 
10784 
10765 


10786 
10787 
10788 
10789 
10790 
10791 
10792 
10793 


10794 
10795 
19796 
19797 


10798 
10799 


SYNTAX 


FLD4 
MSEQ 
MSEQ1L 
FSEQ 
FSEQL 
1DM 


1D 


CTAIL 


1DEC 


ETL 
ETL 


ET? 


ATL 


ATL 


AT2 


kIBL 


L184 


LIB 


SYNTAX 
ETC 
SYNTAX 


SYNTAX 
ETC 
SYNTAX 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 


PAGE 
PASS 14 


(AS1DENT,,150MM1,,13STID,), 
((4$REST,FMODE) 
(MOD.MSEQ1) 


(ASMATCH,SSCOMMA,MOD,MSEQ4), 
(4SEMPTY,) 

(FIFLD,1S$0TAG,,FSEQ1) 
CASMATCH,SSCOMMA,FIELD, ¢$0TAG,.FSEQ1), 
(14 SEMPTY, ) 


CASIDENT,,19STID,, DEC), 

(JUNKE ,4$0DEL,,JTAIL) 
({4$SIDENT,,150MM1,,19STID,, JDEC), 
(JUNKE,JTAIL) 


(ASMATCH,SSCOMMA,4S0AD0,;COMAC,DEC,CTAIL), 
(4SEMPTY,) 
(ASMATCH,SSEQ,1SSAVE,FMODE,1S0TAG,, JUNKE,ETL), 
(ASMATCH, SSASGN,1SEREF, p14 SSAVE,FMODE,1S0TAG,,#), 
CJUNKE, ATL) # 

(JUNK ,4SODEL, TAIL), 

(ASEREF,, LSSAVE,FMUDE,1S5QTAG, ATL) 


(ASMATCH, SSCOMMA,1$0AD0,COMAC,ET1), 
(1$0SMQ;,]DNT) ; 

(4S1DENT, e4$STID,ET2), 
(4$0SM0, 1 DNT, DEC) 


(ASMATCM, SSEQ,15REST,FMODE,1S0TAG,,JUNKE,ETL), 
(1D) 

(ASMATCM,SSCOMMA,1S$0AD0~COMAC,AT1L), 
(450SM0,1DNT) 


CAS1IDENT, pT SSTID,pAT2), 

(450SM0; 1DNT,DEC) 

(ASMATCM,SSASGN, ASREST,FMODE,4S0TAGs » JUNKESATL) & 
CASMATCHM,SSCOMMA,1S0AD0pCOMAC,1&REST,FMODE,#), 
(ASNOTAGe ATL), 

CASIDENT, ,150MM1,.,1435STIB,, (DEC), 

(JUNK, JPTAILD, 

(4SRESTyPMODE,1S0TAG,) 


(ASMATCM,SSCOMMA, 1S0AD0,COMAC,LIB4), 
(1$0SM0,{DNT) 
(4S1DENT,,19STID» +L 1B2), 
(4$09SM0,IDNT,DEC) 


(ASMATCH,SSCOMMA,1$0AD0,COMAC,1$REST,FMODE,@), 
(1SDECLB,,LIB1i)» 
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1 


U$2730 
0$2730 
0$2/50 

END OF BINARY CARD 0G000U5/0 
N$27957 
N$2/57 
052775 
052/75 

END CF BINARY CARD 00000571 


ALGOL6 


1orud 
108u4 
10802 


10803 
10R04 
10805 
10806 


8 


SYNTAX 


PUEN 


PbOD 


ETC 
ETC 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 


PAGE 
PASS 1 


(JUNK, JTAILD» 
(1SREST,FMODE,1SDECLB, ) 


(ASMATCH, SSLPAR, LSSRNGE,CLOR,1SPUSH,MK,1$MRNGE,,4&), 
(SER, COND, ASMATCH,SSRPAR,MODL, PROD, 1$EPDEN, } 
CASMATCH, SSCOLON, JUNKE,4¢0STZ,PDPOS), 
(159SM0,PDPOS) 


01557 


04 


0526 


1 


72 


17,863 


oudunL 
053007 
053007 
033907 
053907 


END OF BINARY CARD 00Uu00872 


END 


Env 


END 


END 


END 


END 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


0$3y353 
0339033 
054933 
053033 
053053 
053N33 
0539353 
033033 
034053 
n33Q953 
0354033 
0339353 
0S3NS3 
033933 
00000574 
0534352 
0353152 
00000575 
053144 
053154 
053354 
00000576 
033166 
0353474 
053474 
00000977 
0355210 
053210 
033210 
053210 
OSS3210 
00000578 
033246 
053246 
033246 
033246 
00000579 
053272 
053272 
033272 
053272 
000003860 


ALGOL68 


19807 
10808 
10809 
10810 
1081 
10812 
19843 


10814 
10815 
10816 
10817 
10818 
10819 
10820 
10821 
10822 
19823 
10824 
10825 
10826 
10827 


10828 
10829 


10830 
10832 
10832 


104355 
10834 
10835 


10836 
10837 
10838 
10839 
10840 


10844 
19842 
19843 
10844 


10845 
10846 
10847 
10848 


SYNTAX 


SETE 
PRO 


CLO 


THEN 


ELSE 


TTLS 
HEAD 
SET 
SYNTAX 
ETC 
ETC 
ETC 


SYNTAX 
ETC 


SYNTAX 
ETC 


SYNTAX 
SYNTAX 
ETC 


SYNTAX 
SYNTAX 
ETC 


SYNTAX 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
ETC 
ETC 
ETC 


SYNTAX 


PAGF 
PASS 2 


SYNTAX 
2 

1 
(2SSTAR¥,,CLO,25VOID,,2$REST,FMODE,25SVAL,4#), 
(2$STRNG,,DECX)» 
(23SRNGE,,2$0STZ,RNGE,SER, 25V0ID,, 25EVOID, s%), 
(2SDELVy,2SERNGE, ) 


PASS 2 


(2S5LPAR,PDEN, 2$SRNGE,,2SINLL,,2SPUSH, TSCODE,#), 
(2S5MARK, ,FORMP, ASMATCH, SSRRAR,PMOD, 25PUSEA,#), 
(DECLR, 2S0EPR, ,2SPUSH, DECLR, ASMATCH,SSCOLON,@), 
(QUAT, 2SEPDEN, ,2S0RLL,,2SGRNGE,,2SEPDNE,), 
(2SLPAR,FPeMCOMeZCOLeZSEM, 2$SRNGE, , 25INLL ae ®) 
(2SPUSH, TSCODE,QS,ASMATCH,SSRPAR,2SP7ARN, ya), 
(2SORLL i, 2SERNGE,), 

(2SL PAR) FPeZCOMeMCOLsZSEM, 2SSRNGE, , 25INLL,,PMOD,*), 
(ASMATCH, SSCOLON, QUAT, ASMATCH,SSRPAR,OSSVAL yo), 
(2SSTRNG,,2$0RLL,,2SERNGE,), 

(2SLPAR, FP, 2SSRNGE, ,2SINLL, ,SER, ASMATCH, SSRPAR, @), 
(2SORLL» , 2S$ERNGE,), 
(2SLPAR,,2S$SRNGE,, 25 NLL,, IF, ASMATCH,SSRPAR,#), 
(2$0RLL,,2SERNGE, ) 


(ASMATCHM,SSCT,2SCSCT,), 
CASMATCH, SSCTABs2SCSCTB,) 


(2S5PUSH, TSCODE, TRAIN, TREL, 2SBALNy) 
(ASMATCM, SSRER,2S0AD0,CNT,SER). 
(aSQ00K,) 


CUNTT,UVAIL) 
(ASMATCH, SSSEM[ ¢23VO[D, e2SDELV,,280DELV,, TRAIN)» 
(ASO00K,) 


(2SCPAR,,2$PUSH, TSCODE, 2$PUSNH, TSCODE, 2SCONF,,4), 
(TSEQ,RLTR, TERT» 2SENTL , B84, 2SCONE, ,28CLEAR, CNT, @)y 
(2SBAL ZR» se 2SSVAL ss 2EF IRM,  2SDELV, s2EQDELV, s THENS #), 
(ELSE,2SBAL2,), 

(25PUSH, TSCODE, SER, 2S0DIF,, THEN, ELSE, 28BAL2,) 


(250BAR,MCOMeZCOL+ZSEM, 2¢XRNGE, , 25PUSH, TSCODE,#), 
(QSEQ, 2SBALZR, do 

(23qBAR,,2SXRNGE,,SER), 
(2SBARF,,2SXRNGE,, IF ,2S8SKIP,) 


(2S0BAR, ,254RNGE, SER, 2SENTL,B2), 

(2SQ ARF 7 a 2SXRNGE ye 2SPUSH,B2X0 IF» 250POPsB2Ky 4%)» 
(2SENTL{B2)¢ 

(Q2SESKIR,,2S5ENTL,B2) 
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END 


END 


END 


END 


END 


END 


END 


END 


U1 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


L5"26-72 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


CARD 


17,865 


053516 
0534525 
053525 
0535357 
00000581 
053545 
0535345 
053557 
00000582 
053567 
053567 
053401 
0S$3401 
053412 
053412 
000009865 
033423 
053423 
03535454 
033454 
053434 
053434 
0584354 
033454 
0000985 
055477 
053505 
053505 
00000§86 
053520 
033529 
033533 
0353533 
033553 
033533 
0353533 
0335335 
00000988 
053575 
053575 
033575 
033575 
053575 
053575 
00000389 
033651 
0556354 
053651 
053634 
00000590 


ALGOL68 


19849 
10850 
10851 
10852 


10853 
19854 
10855 


10856 
10857 
10958 
10859 
10860 
10861 


10862 
10863 
10864 
10865 
10866 
10867 
10868 
19869 


10870 
10874 
10872 


10873 
10874 
10875 
10876 
10877 
10878 
10879 
19880 


10884 
19882 
10883 
10884 
19885 
10886 


10887 
19868 
10889 
10890 


SYNTAX 


Q3aE 
QseQT 


Qs 
QsT 
TSEQ 
TSEQT 
UNTT 


3560 


QUAT 


QTAIL 


TERT 
STATL 


MFOR 
SEC 


PRIM 


ITATL 


SYNTAX 
SYNTAX 
ETC 

SYNTAX 


SYNTAX 
ETC 
SYNTAX 


SYNTAX 
ETC 
SYNTAX 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 
ETC 
erc 
ETC 
ETC 


SYNTAX 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
E;C 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
ETC 
ETC 
ETc 


PAGF 
PASS 2 


(QUAT,2SENTL,82,QSEQT) 
(ASMATCH,SSCOMMA,2$0AN0,CNT,QSEQ), 
CASN00K,) 

(QUAT,QST) 


(ASMATCH,SSCOMMA, 230AD0,CNT,QS), 
CASQQ0Ks ) 
(TERT, 25ENTL,BL,25ENTC,,TSEQT) 


(ASMATCM,SSCOMMA,2$0AD0,CNT,TSEQ), 
CASNQOK; ) 

(DEC), 

(LSEQ,QUAT) 

(2SL ABEL ssl SEQ). 

(ASH00K; ) 


(ASMATCH,SSFOR).s 

CTERT, QYVAILY 

(ASMATCM, SSASGN, 2SSASGN,,QUAT,25DASGN,), 
(ASMATCH,SSCT,25Q0SCT,, TERT, 250DCT, 5, 
(CASMATCH, SSCTAB,23SSCTABy, TERT, 2EDCTAB,), 
(ASMATCH,SSETS,250S]5,, TERT, 2SIDNTY, )» 
(ASMATCH,SSISNT,2SSISNT,, TERT, 2$10NTY,), 
CASH 00K) ) 


tyopea aes 
(2S0PER; ,2S0FOP,,TERT,SVAIL), 
(2$F0PS)) 


(SEC), 

(2S0PER,,2S4MOP,,MFOR,28QM0P, ) 

(2STAGOF, ,SEC,2SSELCT,), 

(AMQD, 28SHEAp,, 2SEREF,,2$WGEN.), 

(ASMATCH, SSHEAP,AMOD, OSSHEAP, ,2SEREF,, 2SWGEN,2, 
CASMATCM,SS$LOC,AMOD,2$SLOC,,2SEREF, ,25WGEN, ); 
(PRIM), 

(CLO, ACYP) 


CASMATCH,SSSKIP, 2SESKIPD), 
CASMATCH,SSNIL, 2SENIL, ), 
(ASMATCH, SSTRUE, 2SETRUE,), 
(ASMATCH, SSFALSE,2SEFALS,), 
(2SNENO¥, p2SWDEN, pITAILY, 
(2S1DENV, ,2SWIDEN,, I TAIL) 


(ASMATCM, SSSUB, 2$SVAL, , 25WEAK,, 2$0SUB,,25SRNGE,,#), 
(2SINLL,, INDEX, XTAJL, ASMATCH,SSBUS, 250BUS,,#), 
(250RL 2. 2SERNGE,), 

(ACTP) 
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END 


END 


END 


END 


END 


END 


END 


END 
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OF 


OF 


OF 


OF 


OF 


OF 


OF 


UF 
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2 


BINARY 
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BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


BINARY 


CARD 


CARD 
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CARD 


CARD 


CARD 


CARD 


CARD 


17,803 


043654 
053654 
0133654 
053054 
053654 
oou0K591 
0353701 
053704 
053714 
053714 
053714 
033/14 
00900592 
033734 
033734 
033734 
On0005¥3 
033752 
053752 
053752 
033767 
033767 
o0u00594 
034004 
0354004 
034011 
n34020 
000005995 
034027 
054036 
054045 
034045 
054045 
034045 
054045 
034045 
034045 
00000397 
034405 
054105 
0341420 
034120 
034420 
onuou5s98 
054136 
054136 
054146 
054146 
onu0059y9 
N354163 


ALGOL68 


SYNTAX 


10891 
10892 
10893 
10894 
10895 


10896 
10897 
10898 
10899 
10900 
10901 


10902 
10903 
10904 


19905 
10906 
10907 
10908 
10909 


10910 
10941 
10942 
10913 


10914 
109138 
10946 
109147 
10918 
10919 
10920 
10924 
10922 


10923 
10924 
10925 
410926 
10927 


10928 
10929 
10930 
10934 


10932 


ACTP 


XTAIL 


INDEX 


IX¢ 


1x2 


x3 


1X4 


1x5 
BOUND 


VMOD 


AMOD 
MOD 


PROCT 


PROCM 


PMOD 


BOX 


BOXER 


SYNTAX 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 
ETC 
ETC 


SYNTAX 
ETC 
ETC 


SYNTAX 
ETC 
ETC 
SYNTAX 
ETC 


SYNTAX 
ETC 

SYNTAX 
SYNTAX 


SYNTAX 
SYNTAX 
SYNTAX 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 
ETC 


SYNTAX 
ETC 
SYNTAX 


ETC 
SYNTAX 


PAGF 
PASS 2 


(25LPAR, FP*ZCOL+ZSEM, 2$SVAL ss 25F IRM,» 2SSRNGE,,®) 
(2SPUSH, TMODE, 25 NLL,,2$PUSH, TSCONE,QS,4), 
CASMATCH, SSRPAR,2SPARN, p2SQORLL» »-2ECALL » yp #), 
(2SERNGE,,ACTP), 

(ASQ00K,) 


CASMATCH,SSCOMMA, 2E0AD0,CNT,INDEX,XTAIL), 
(ASOO0OK,) 

(BOUND, 1X1)i 

CASMATCH,SSCOLON,IX2), 

(1X5), 

(2SEPTY,) 


(ASMATCH, SSCOLON, 250LWB,, 1X3), 
(1X5), 
(2$S8CT,,2S0AD0,SBCNT) 


(BOUND, 2$0UPB,,1X4), 
(EX5), 

(2SEPTY,) 

(BOUND, ®s0UPB,, 1X4), 
(1X4) 


(1X5), 

(ASQO00K,) 
(ASMATCH,SSAT, BOUND, 2SNLWae) 
(TERT, 2SSINT,,28DELV,) 


(MOD, 23SVIRT,,2SCLEAR,DFLG) 

(MOD, 2SSACTy,2SCLEAR,DFLG) 

(80x, MOD,2SEB0X,), 

(ASMATCH, SSREF ,2SPUSH, DFLG, VMOD, 2SEREF,,2$0P0P,%), 
(DFLG), 

(ASMATCH,SSSTR,SUNIT), 

(ASMATCM,SSUNION,UUNIT)y 

(ASMATCH, SSPROC,2S5PUSH, DFLG,PROCT,250PO0P,DFLG), 
(25MIND,,2$5DC.R,) 


(PROCM), 

(PMOD, 28MARK, , 2$PUSEA,DBECLR,250EPR,) 
(2SLPAR,,2SPUSH,DFLG, 2SCLEAR,DFLG,25MARK, ,MSEQ,#), 
(ASMATCM, SSRPAR,PMOD, 25PUSEA,DECLR, 250EPR,,*), 
(230P0P,DFLG) 


(VMOD), 

(2SEVOIB,) 

(ASMATCH,SS$SUB, 25SRNGE,,25DSUB,, BOXER, BTAYL»#), 
(25CB0X,,ASMATCN,S$BUS, 2$DBUS, ,P$ERNGE,) 


(BOUND, 250, WB, »FOPTsASMATCH,SSCOL_LONsBOUND,*®), 
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END 


END 
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END 
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END 


END 
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BINARY 
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BINARY 


BINARY 


CARD 


CARD 
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CARD 


CARD 
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1$4168 
054163 
054163 
0000yN6Qg0 
054206 
054206 
0542147 
054217 
doyousgl 
0$4232 
0542352 
034244 
0$4244 
ongousge2 
034260 
054267 
034267 
054300 
Oounusys 
054519 
034340 
034521 
034321 
0545214 
00000404 
054336 
0543356 
03543547 
034554 
054554 
00000605 
054367 
054409 
054409 
0009000606 
054441 
0594411 
034424 
054424 
034424 
054424 
034424 
034424 
034424 
034424 
034424 
034424 
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034506 
034506 


ALGAL4 


10933 
10934 
10935 


10936 
10937 
10938 
10939 


10940 
10941 
10942 
10943 


10944 
10945 
10946 
10947 


10948 
10949 
10950 
10951 
19952 


19953 
10954 
10955 
10956 
10957 


10958 
19959 
10960 


109614 
10962 
10963 
10964 
10965 
10966 
10967 
10968 
10969 
10970 


8 


SYinvTAX 


FOPT 


BIAIL 


SUNIT 
UUNIT 
MSEQ 
MUDT 
FSEQ 
FSGQ4 


FIELD 


FLOL 
PARAM 
PTAIL 


FORMP 
FTL 


FT¢ 


DEC 


19973 


10972 


10973 
10974 


Pot 


ETC 
ETC 
ETC 


SYNTAX 


SYNTAX 
ETC 


SyNTAX 
SYNTAX 
ETC 

SYNTAX 


SYNTAX 
ETC 
SYNTAX 
ETC 
ETC 


SYNTAX 
ETC 
SYNTAX 
SYNTAX 
ETC 


SYNTAX 
SYNTAX 
ETC 


SYNTAX 
ETC 
SYNTAX 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 
ETC 


SYNTAX 
ETC 


PAGF 
PASS 2 


(2$0UPB,,FOPT,25SACT,), 
(ASMATCH, SSCOLON, 24S5SVIRT, 3, 
(2$SVIR¥,) 


(ASMATCH, SSFLEXs 250FLEX)), 

(250F 1X,) 

(ASMATCW, SSCOMMA, 230AD0,CNT,B0XER,BITAIL), 
(ASO00K,) 


(2ELPAR,,2SEVOID,,25MARK,, FSEQ,ASMATCH,SSRPAR,@), 
(2$0CST,) 

(2$LPAR,,2SPUSH,DFLG, 2SCLEAR,DFLG,2S5MARK, ,MSEQ,@), 
(ASMATCH,SSRPAR,2S0CUN, »p2SQP0P,DFLG) 


(VMOD,2$PUSEA, DECLR»MODT) 

(ASMATCH, SSCOMMA,MSEQ), 

(AS000K,) 

(FIELD, 25PUSHW, DECLR, 2SPUSHW, TG, FSEQ1) 


CASMATCH,SSCOMMA,FSEQ), 
(ASO00Ks) 
C2gMINDasFLDL), 

(MON, 2S6TAGe), 
(2S0TAG,) 
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037643 017441 
037644 047442 
037645 000003 
037646 00900001 
037647 0900002 
037650 090000 


END OF BINARY CARD 


037651 090002 
037652 017444 
037653 0090002 
037654 017444 
037655 017442 
END OF BINARY CARD 
037656 090003 
037657 047441 
037660 007004 
037661 090002 
037662 017444 
037663 017442 
037664 09N003 
037665 0d90001 


17,863 


00000668 


7650 04 $762111569 
6760 00 11570 
6761 07 14571 


7600 04 3762311572 
2360 00 11573 
6760 OY 11574 
6761 07 14575 

057625 11576 
7650 04 3763014577 


1160 00 11578 
7640 04 3765311579 


7600 04 3765211580 
2360 00 11581 
1160 00 11582 


6019 04 37656114583 
2360 97 11584 
00u0uU489 


7400 04 3763711585 
2361 07 11586 
057637 11587 


7650 04 3764211588 
5450 00 11589 
7640 04 3764514590 
7600 04 3764411591 
4310 00 11592 
3490 00 11593 
6010 04 3765011594 
2360 07 11395 


7400 04 3765111596 
2361 07 11597 
037654 11598 
00000690 
057240 11599 
057242 11600 


7650 04 3765314601 
6761 OV 11602 
7600 04 3765511603 
2360 oy 11604 
6761 OV 11605 

057656 11606 
O00D0KYL 


7650 04 3766111607 
1160 OY 11698 
7640 04 3766411609 


7609 04 3766311610 
2360 00 11611 
1160 OY 11612 


6000 04 3766711413 
2360 97 11614 


A~GIL68 


#a3,5 
A 
1eDL 
#e2,% 
A 

B 
1,DL 
M39 
#4«3,5 
A 
#44, 
#e2,5 
A 

B 
ee3,3 
4.0L 


#o2,5 
0+ DL 
M59 
#e3,85 
A 
#4,5 
ao2,5 
A 

B 
e3,$ 
42DL 
a2,5 
0,0L 
4 


(057,078),NE 
M22 

#e2,% 

A 

#e2,% 

A 

8 

M39 


#43,% 
A 
#e4,5 
#o2,$8 
A 

8 « 
#45,5 
1,0L 


01557 


END 


END 


END 


END 


U1 U5"26e0e72 


2 
U37666 Ognute2 
037667 ugnrono 
037679 Og0u03 
OF BINARY CARD 
0376714 017441 
037672 00004 
037673 dOgn0n2 
037674 47441 
037675 017442 
037676 0909003 
037677 000001 
037700 090002 
037701 090000 


OF BINARY CaRD 


037702 090005 
037703 047443 
037704 047441 
037705 047443 
037706 o9n0n4 
037707 Up0002 
037710 017441 
037711 047442 
037712 0090003 
037713 0090001 
037714 090002 
037715 dOp90000 
037716 090005 
OF BINARY CaRD 
037717 017443 
037720 017441 
037724 017443 
037722 090004 
037723 a90002 
037724 047444 
037725 047442 
037726 090003 
037727 000001 
037739 6090002 
037731 0090000 


OF BINARY CARD 


037732 
0377353 


0900005 
017443 


17,863 ALGOL68 


71U0 04 3767011615 
2301 07 14416 
047679 14617 
7630 04 3767311618 
OnYynYys6yse 
54150 OY 11619 
7640 04 $767611620 
7609 04 3767511621 


4310 OU 11622 
5450 OU 11623 
6000 04 5770111424 
2360 07 11625 
7400 04 3770211626 
2361 07 14627 


057702 11628 
057242 11629 
057244 14430 


on000693 

7650 04 3770711631 
7560 OV 114632 
2360 OY 14633 
1460 Ov 14634 


7640 04 3771211635 
7600 04 3771111636 


2360 00 11637 
1160 Oy 41638 
6050 04 3771511639 
2360 07 11640 
7400 04 3771611641 
2361 97 11642 


057716 11643 
7650 O04 3772311644 


00000494 
4550 09 11645 
4310 00 11646 
5450 OU 11647 


7640 04 3772611648 
7600 04 3772513649 


43140 00 11650 
5450 00 41651 
6050 04 37731114652 
2360 07 11655 
740 64 3773214654 
2361 97 11655 


057732 11656 
037244 11657 
057246 11658 


0090u695 
7630 04 3773711659 
7560 00 11660 


TRA 
LNO, 
DEF OP 
INB 


FOMP 
JMP 
FA 
FLD 
FCMP 
TZE 
LDQ 
TRA 
LDQ, 
PRIOR 
ENTER 
DEFOP 


INB 
STQ 
LDQ 
CMPQ 


CMPO 
TPL 
LDQ 


DEF OP 
NB 


FST 
FLD 
FCMP 
JMP 
}FA 
FLD 
FCMP 
TPL 
LDQ 
TRA 
LDQ, 
PRIOR 
ENTER 
DEF OP 


INB 
STO 


ee2,h 
Qe0L 
M59 
oe5,5 


A 
#44, 
#e2,35 
A 

8 
#+3,5 
1,9L 
#22, 
0,DL 
4 
(074),.LF 
M39 


005,85 


#63,5 

1,DL 

#22,3 

0,DL 

5 
(076,078),GE 
M39 


#e5,35 
t 


PAGF 


264 


01557 04 05426472 


Z 


037754 017441 
037735 017443 
037756 000004 
037737 vanone 
037740 017441 
0377441 017442 
037742 000003 
037743 0090001 
037744 000002 
037745 090000 


END OF BINARY CARD 
037746 00005 
037747 0617443 
037750 617444 
037751 017443 
037752 00n004 
037753 000002 
037754 017444 
037755 0417442 
037756 0090003 
037757 o000004 
037760 090002 
0377641 000000 


END OF BINARY CARD 


037762 090005 
037763 017443 
037764 017442 
037765 047443 
037766 0099004 
037767 090002 
037770 017442 
037771 017441 
037772 0009003 
037773 0o90001 
037774 000002 
037775 090000 


END OF BINARY CARD 
037776 0090005 
037777 017443 
040000 017442 
040001 617443 
040002 000004 
040003 Ogn002 
040004 0617442 
040005 0174414 


17,863 ALGOL68 
TABLES 

2360 OU 11661 

1160 oy 11662 


7640 04 3774211663 
7600 94 3774111664 


2360 00 11665 
1160 00 11666 
6040 04 3774511667 
2360 97 11668 
7400 94 3774611669 
2361 07 11670 
057746 146714 
ODVO0RY6 
7650 04 3775311672 
4550 00 11673 
4310 00 11674 
5450 00 11675 


7640 04 3775611676 
7690 94 3775514677 


4310 00 14678 
5150 00 14679 
6040 O04 3776111680 
2360 07 11664 
7400 04 3776211682 
2361 07 11683 


037762 11684 

057246 11685 
00000497 

037250 11666 
7630 Q4 3776711687 


7560 00 11668 
2360 00 14689 
4460 OY 11690 


7640 04 3777211691 
7620 04 3777111692 


2360 00 14693 
1460 00 11494 
6050 04 3777511695 
2360 07 11696 
7400 04 3777611697 
2361 97 11698 
057776 14699 
00000698 
7610 04 4000311700 
4550 00 11704 
4310 00 11702 
5450 OV 11703 


7640 04 4000611704 
7620 04 4000511705 
4310 00 117096 
5450 OY 117097 


#24,5 
#e2,5 

A 

B 

#o3,5 

45 0L 
42,38 
0,DL 

5 
(076),GY 


M39 
#45,$8 


PAGE 


265 


61557 


END 


END 


END 


END 


U4 U5"-20~-72 
vi 


O4rcr0u6 vgnoans 
046097 vonon1 
V4c010 c090002 
040011 ugd0n00 


OF BINARY CARD 


040012 onngnsd 
046013 017443 
040014 617442 
040015 017443 
040016 690094 
040017 vonute 
040020 017442 
040021 6474414 
040022 090003 
040023 O00001 
040024 ugngne2 
040025 000000 


OF BINARY CARD 
046026 000005 
040027 vu17443 
040030 017442 
040051 017443 
040052 690004 
040053 Gg0002 
040054 017442 
040055 017444 
040036 o9Nn008 
040057 Ug0001 
040040 0o90002 
040041 090000 


OF BINARY CARD 


040042 0090004 
040043 017443 
040044 017441 
040045 017443 
040046 090002 
040047 017441 
040020 017442 


OF BINARY CARD 


040051 090002 


17,305 ALGOL68 
TABLES 

6950 04 4001111708 

2300 O7 11709 

7400 04 40012117140 

2361 07 14711 
040012 11712 
03725) 14743 

oog0ugY9 


057252 11714 
7610 04 4001711715 


7560 OV 14716 
2360 00 11717 
1160 OO 11718 


7640 04 4002211719 
7620 04 4002111720 


2360 OO 114721 
1160 90 11722 
6040 94 4002511723 
2360 97 114724 
7400 04 40926114725 
2361 07 11726 
040026 14727 
00un07Q90 
7610 04 4005311728 
4550 00 14729 
4310 00 11730 
5450 00 14731 


7640 04 4003611732 
7620 04 4003511733 


4310 oy 11734 
5450 Ov 11735 
6040 04 4004111736 
2360 07 11737 
7400 04 4094211738 
23614 07 11739 

040042 11740 
00000701 


037252 11744 
032254 11742 
7630 04 4004611743 


7560 OV 114744 
2360 00 11745 
5061 00 11746 
7600 04 4005011747 
2360 00 11748 
3061 09 11749 

040051 11750 
00000702 


057254 117514 
035%256 11752 
7620 04 40053511753 


TPL 
LNQ 
TRA 
LDU, 
PRI OK 
ENTER 


DEF OP 
INA 
sta 
LDQ 
CMPQ 
JMP 
1FB 
LDQ 
CMP 
TI 
LD 
TRA 
LDQ, 
DEF OP 


JNA 
FST 
FLD 
FCMP 
JMP 
IF 
FLD 
FCMP 
TM] 
LDQ 
TRA 
LDQ, 
PRIOR 


ENTER 
DEFOR 
JNB 
S7Q 
Lna 
DIV, 
IFA 
Te) 
DIV, 
PRIOR 


ENTER 
DEF OP 
IFp 


#+5,8 

1,D0L 

te2, 

0,0L 

5 
(074,075),LE 


M39 
#45,5 


24,5 
#42,5 
8 

A 
25,5 
1,D0L 
42,5 
ODL 
5 


(045), 0VER 


(40261197 .11741142120) ,BOOLP 


M94 
02,5 


PAGF 
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01557 


END 


END 


END 


END 


01 U5"26972 


Z 


046022 017442 
040053 025413 


OF BINARY CARD 
040094 000002 
040055 017442 
040056 025414 
OF BINARY CARD 
040057 ugoo02 
040060 017442 
049091 025422 
OF BINARY CARD 
040062 090002 


040063 047442 
040064 025467 


035237 00900000 
035240 000000 
OF BINARY CARD 


035241 090000 
035242 090000 
036070 oon000 


G36071 0090000 


037010 0090080 


17,863 ALGOL68 
TAMLES 
2360 00 11754 
7001 00 11755 
n40u54 11756 
Qon0u7NS 


057256 11757 
0357269 14758 
7620 04 4005611759 
2360 00 11760 
7001 00 11764 
040057 11762 
057260 11763 
000007y4 
057262 11764 
7620 04 4006111765 
2360 Oy 11766 
7001 OU 11767 
040062 11768 
057262 11769 
00000705 
057264 11770 
7620 04 4096414774 


4310 00 11772 
7001 09 14773 
040065 11774 
119775 


057264 11776 
058213 11777 
000114 41778 


0000038 11779 
11760 
055257 11781 
000008 14762 
035249 11783 
0o0u008 11784 
055244 11785 
00000706 
000000 11786 
035242 11787 
000008 11788 


0356070 11789 
034070 11790 
000008 14794 
036071 4114792 
0546074 11793 
000000 11794 
057019 114795 
057910 11796 
Onyooo 114797 
OS7Q11 11798 
057041 11799 


1 TABXx 
ITACX 


wKe 


(403,116,101,122,120),CHARP 
M95 

#42,5 

B 

RECHAR 


10 
(4145116,124,120),)NTP 


10 
(4225208,10121145120),REALP 


M97 
#562, 
BC 
RSREAL 
10 


* 


PAGE 
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01557 


END 


END 


U4 J5"26~072 
T 


037011 vanong 


037264 vonano 
037402 90nUND 


037403 d900000 


037404 ognnng 


0374u5 000050 


037406 600000 


OF BINARY CARD 
037453 090090 


037454 0090000 


040065 0090000 


040066 000000 


040057 090000 


035213 0090000 
035214 035237 
035215 035241 
035216 035243 
035217 036074 
035220 036072 
035221 037011 
035222 037012 
035223 037265 
035224 037404 
035225 037405 
035226 037406 


OF BINARY CARD 
035227 037407 
035230 037454 


17,8658 


Qnuoud 
N$7264 
057264 

vouctod 
057402 

00u0u0 
0$7403 

QnuoVa 
047404 
057404 

ongood 
0$7405 
N$7405 

youooa 
057406 
037406 

060000 
057453 
0374535 

00000707 

000000 
057454 
057454 

0000008 
040065 
040063 

gogoua 
0409066 
040066 

0000u0 
040067 
040067 

gogou0 
0592138 


000000 
0000u4 
o0o0g004 
000625 
000000 
000716 
000000 
000252 
000116 
00u000 
000000 
o0v0u00 


00000798 
goun4a 
000900 


ALGOL68 


11800 
11801 
11892 
11803 
14804 
14805 
11896 
11897 
11808 
11899 
14810 
119114 
11512 
141813 
14814 
11815 
11816 
11817 
14818 


11819 
11820 
11821 
11822 
11823 
11824 
11825 
11626 


11827 | 


11828 
11829 
41230 
11834 
11832 
11833 
14834 
11835 
11836 
14837 
11838 
11839 
11840 
11841 
11842 
11843 
11844 
11845 


11946 
11847 


TABLES 


St 


It 


Ce 


Le 


Gk 


Te 


NE 


Ze 


ZERO 
USE 
£QU 
ZFRO 
USE 
ZERO 
EQU 
ZERO 
USE 
EQU 
ZERO 
WSE 
EQU 
ZERO 
USE 
EQU 
ZERO 
USE 
EQU 


ZERO 
USE 
EQU 
ZERO 
USE 
EQU 
ZERO 
USE 
EQU 
ZERO 
USE 
EQU 
ZERO 
USE 
HEAD 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 


ZERO 
ZERO 


ee 


T 


WK »WKE@WK 
SK ,SKE*+SK 
MaMEeM 
B, BEB 
D,DE*D 
P,PEeP 
S,SEeS 
I, les! 
C,CEeC 
Ly LEel 
G,GEeG 


T,TEwT 
Ny NEN 


PAGE 


268 


01557 01 U5"-26072 17,803 ALGOL68 PAGE 269 


T TABLES 

035251 037455 000410 11848 227 ZERO 2,ZEeZ 

035232 049066 UvouoUs 14°49 SDEF ZERO SD,SDE-SD 

035233 040067 Q0U000 11850 END ZERO E 
14854 HEAD A 

035234 035237 QGouL 56 11852 WURK TALLYC YSWKr1,1D 

035235 035241 O0U1 $2 14853 STACK TALLYC TSSK,4q,1 
11854 HEAD T 

035236 035214 goyo2s 114855 TABLE ZERO TSSTART#1, #7 TSSTART 
14856 REF LNRSM 


END OF BINARY CARD 00000709 
noou00 11857 END 
END OF BINARY CARD 90900210 
40070 IS THE NEXT AVAILABLE LOCATION, GMAP VERSION JMPa/030271 JMPB/030274 UMPC/030274 
THERE WERE 8 WARNING FLAGS IN THE awOVE ASSEMBLY 
ON PaGE NOQ 
17 «88 89 322 425 431 135 1436 


015957 01 
OcTalL 


30725 
32474 
6523 
10030 
32652 
32645 
32620 
31104 
31054 
7227 
7510 
34225 
7150 
31072 
7505 
10106 
10145 
325714 
32604 
6524 
32557 
6526 
6525 
320714 
32460 
7457 
322487 
31524 
314537 
31550 
7156 
30436 
34352 
32144 
32102 
30540 
0 
7150 
10050 
10063 
31624 
31627 
7125 
Tata 
31046 
31663 
31675 
314710 
6642 
6606 


U5"2b-72 
SYMBOL 


FJ 

1U 
MK 
ADO 
AT1 
AT2 
ATL 
BOX 
BYS 
CST 
CYN 
DEC 
DEL 
Dos 
EPR 
ER4 
ERT 
ETL 
ET2 
ETH 
ET, 
F YX 
FLX 
IDE 
1DM 
MMI 
MOD 
MY4 
MT2 
MT3 
POP 
PRO 
PRT 
PTA 
PFE 
SER 
SET 
SmMQ 
SR4 
SRT 
ST¥4 
STf2 
STZ 
TAG 
Tos 
UNT 
Utd 
UT2 
XAG 
XXL 


TN al ae a oe a Oe Oe Oe Oe OO ee ee ee ee ee oe eae 


18,180 


ALGOL68 


REFERENCES 3Y ALTER NO, 


1919 
2426 


2041 
22415 


1994 
2245 
2472 
2479 
1916 
1948 
1947 


2498 


2000 


1978 
2442 
24535 


1979 
2027 


1970 
1966 


1915 
2426 


2000 


1978 
2442 
2444 


1975 
2027 


4929 
£942 


2912 


2474 
2473 


2446 
2442 


1952 
1944 


2126 


2479 


2445 


1944 
1948 


2148 


2453 


1947 
1954 


2169 


1962 
1966 


2178 


1970 


2185 


2296 


23035 


PAGF 
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01557 01 
OcTalL 


6607 


6565 
6554 
6610 
6562 
6540 
32257 
65350 
31157 
31201 
31242 
6527 
7795 
6533 
65341 
7334 
30454 
7265 
7303 
7305 
7304 
7306 
7536 
75354 
7535 
7536 
7553 
6536 
7685 
7676 
7557 
7603 
7574 
7164 
7774 
30512 
7367 
74140 
7416 
74147 
7456 
7434 
7455 
7513 
7352 
32360 
323/72 
32404 
31010 


O5~v~26072 


SYMBOL 


1 


Oe ee ed oe ed oe oe el oe 


Xxx2 


XXL 

XXKS 

XxXT 

XXX 

xyZ 
ARGE 
BARR 
BELe2 
BELS 
BEL4 
BOxR 
CBQX 
CLNG 
CLOR 
CNYA 
COND 
csT4 
CSTA 
csTB 
CSTM 
csrT 
CUNS 
CUNA 
CUNB 
CUNH 
CUNX 
CURR 
DEC} 
DECL 
DECM 
DECO 
DEEP 
DELS 
EBOX 
ELSE 
EPDY 
EPD2 
EPDS 
EPD4 
EPDD 
EPDF 
EPDS 
EPRI 
EREF 
FLD2 
FLDS 
FLD4 
FORS 


18,180 


ALGOL68 


REFERENCES 3Y ALTER NO, 


1967 


1949 
1940 
1968 
1946 
1926 


1920 


1919 
2583 
1923 
1924 
21407 


2071 
2085 
2087 
2086 
2088 
2240 
2254 
2255 
2256 
2253 
1926 
2295 
2336 
2287 
2277 
2267 
2008 
2396 


2437 
2454 
2460 
2161 
2192 
2474 
2191 
2224 
2108 


1429 
4964 
1945 
1686 
1433 
1689 
47354 


1920 


1919 
2583 
1923 
a¥21 
2092 


2071 
2046 
2057 
2051 
2070 
2240 
2227 
2237 
2221 
2222 
1926 
2295 
1993 
2257 
2277 
2267 
2003 
2598 


2457 
2154 
2160 
2159 
2128 
2424 
a452 
a214 
2108 


1434 
1967 
1949 
1696 
14359 
1682 
1928 


3382 


2124 
2156 
2094 


2077 
2052 
2063 
2059 
2074 
2243 
2254 
2240 
2238 
2253 
2392 


2356 


2146 
2157 
2462 
2164 
2150 
2174 
2154 
2216 


1449 
249 


1853 
1502 
1688 


2466 
3386 
2095 


2060 
2067 
2065 
2072 


2235 
2255 
2256 


244/ 


21595 


2191 
2249 


1445 
2492 


1862 


1930 
1946 


2484 


2104 


2085 
2076 
2073 
2088 


2234 


2456 


2153 


2221 


1449 
2494 


1949 
1949 
2553 


2107 


2087 


2074 


2239 


2482 


2156 


1593 
2544 


2039 
1968 
4621 


2086 


2242 


2158 


1505 
2520 


2555 
2489 
4964 


2254 


2167 


1506 
2522 


3463 
2549 


2171 


1508 
2525 


3359 


21492 


1510 
2526 


3410 


q525 


3444 


4934 


3449 


1936 


3474 


PAGE 


1950 


3479 


274 


4953 


4968 


01557 U1 
CcTal 


32456 
32523 
6520 


30750 
30620 
32715 
327350 
32703 

7163 
10083 
32271 
32436 
314462 
31500 
31430 
32775 
314723 
32757 
30406 


34344 
34357 
31370 
32156 
32174 
32134 
32127 
7192 
32037 
7204 
10116 
7200 
34564 


> § 
7784 
1 

0 
7142 
30463 
31642 
30602 
6614 
6603 
6604 
6567 
6574 
6601 
6546 
34180 
31115 


U5=2b0=72 
SYMbOL 


1 FSEU 
1 IUEC 
1 [ONT 


JTy4 
JUNK 
L1B4 
L}Be 
LIBL 
MARK 
MBND 
MOD4 
MSEQ 
oPTL 
oPTt2 
OPTL 
PBOD 
PDEC 
PDEN 
PROG 


PRT4 
PRT2 
PRY3 
PTAL 
pTA2 
PTE 
PTE2 
PUSH 
RES4 
REST 
RTAB 
SAVE 
SDEC 
SETC 
SETD 
SETE 
SETT 
sT iD 
THEN 
UDEC 
UN]T 
XBUF 
XRET 
XXU4 
XXL2 
XXL3 
XXL4 
XYZ4 
18ELEM 
1BTAITL 


CO ell a oe Oe Oe ee OO ee ee Oe ee ee ee de ee ee ee ee ee Oe ee 


18,180 


ALGOL68 


REFERENCES 3Y ALTER NO, 


1912 


2009 
2429 


10552 


1996 


2022 
248) 
2016 


2559 
10806 


1988 


1972 
1965 
1964 
1951 
1955 
1961 
1934 


1912 
2475 


aU05 
2429 


1653 


1996 


2022 
2452 
2018 


2262 
10549 


1984 


1954 
4432 
4952 
4951 
1436 
4959 
4934 


1983 
2484 


2478 


2272 


1986 


1964 
1452 
1964 
1965 
1453 
1964 
1938 


1986 
3285 


2489 


2282 


196% 
14548 


1549 


1988 


23530 


4974 
4928 


1939 


1999 


2355 


1940 


1953 


2027 2198 


3254 


14946 4963 


2548 2530 


2207 


2547 


23529 


2529 


2339 


2356 


2358 


2430 


PAGE 


2450 


272 


2460 


01557 O01 
OCTAL 


7773 
7183 
7307 
65352 
32510 
7650 
7654 
7674 
76354 
7637 
7675 
7674 
7705 
7144 
7620 
10006 
19027 
10026 
65357 
7346 
7440 
7442 
7446 
7503 
10096 
10064 
10114 
7174 
32304 
6541 
34022 
32445 
7245 
30785 
30640 
65355 
7170 
324284 
31512 
34492 
34741 
32002 
6522 
32085 
10123 
6534 
77a7 
7740 
7746 
7747 


05"26072 
SYMBOL 


1CBOXT 
LCLEAR 
LCNVRT 
tComMac 
LCTATL 
1DECy4 
LDECY2 
ZOECTS 
yDECTA 
GDECIL 
1DEC]T 
1DECYX 
1DECLB 
tDECLC 
tDECOP 
tEBOX1 
LEBOXH 
1EBOXM 
tEMPTY 
tEPDEN 
LEPDFO 
LEPDF4 
LEPDF2 
ZEPROC 
LERNGA 
LERNGE 
LERTAL 
qEVOYD 
aF YELD 
1F MODE 
a1FROMS 
1FSEQ1 
1} DENT 
GVTAIL 
ZVUNKE 
LEVEL 
4MRNGE 
1MSEQ4 
AMTATL 
LOPDEC 
1PDECA 
1PDEC2 
1PDPOS 
qRESLT 
ARTABE 
1SEMIC 
LSETDL 
L5ETD2 
LSETDS 
1SETD4 


18,180 


ALGOL68 


REFERENCES 3Y ALTER NO, 


23597 
1981 
2089 
1922 


2298 
2548 
2531 
2302 
23509 
2535 
2334 
2345 
4990 
2290 
2408 
2425 
2424 
1927 
24120 
2178 
218 
2184 
2213 
2456 
2484 
2478 
2044 


1945 


2034 


1925 
2040 


1944 


2485 
1924 
2561 
2574 
2576 
2577 


2595 
1981 
2089 
1922 


2298 
2514 
2511 
2147 
2505 
2304 
4502 
2343 
4990 
2290 
2408 
2407 
2404 
4740 
2120 
2176 
2480 
2181 
2163 
2170 
2454 
2479 
2014 


1913 


1741 


1925 
2010 


1914 


2452 
1924 
2564 
2567 
23570 
2562 


2397 


2388 


2304 
2318 
2317 
2177 
2333 
2305 
2308 


2420 
2414 
2413 
1927 


2178 
2183 
2184 
2213 
2187 


2478 


2051 


2448 


2120 


2478 
2122 
2369 
2379 
2373 
2377 


2468 


2351 
229d 


2321 
23554 


2416 
2448 


2454 


2449 


2485 
2175 
2375 


2376 


2480 


2502 
2532 


2425 


2424 


2456 


2464 


2335 


2483 


PAGE 
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01557 U1 


OcTal 


7723 

7754 

7753 
10040 
10062 
31602 

7135 
30762 
30546 
30775 
31060 
12469 
15253 
11645 
12457 


13692 
13695 
15114 
15250 
15252 
15294 
15247 
15264 
15323 
15332 
15354 
15346 
15364 
15362 
15363 
15364 
15306 
160176 
16200 
15535y 
16204 
11647 
1464p 
11646 


1 
16177 

2 
33210 
13669 
15573 
11691 
16465 
16467 
333357 
11423 


U5S=26-72 
SYMBOL 


LSETDE 
zoETpoT 
{TSETDX 
LSRNGE 
4SRTAL 
TSTASL 
qSTIDS 
LSUNIT 
zUTAIL 
LUUNIT 
ANHLES 
A 


99 0 90 9 90 90 NT M0 0 0 NM NO MN NYDN A ~ — — 
Q 
a 


18,180 


ALGYL68 


REFERENCES 3Y ALTER NO, 


2357 
2382 
25841 
2434 
2452 


1983 


3709 
5090 
334) 
3704 
4$37 
4$4y 
4995 
5087 
5089 
5088 
5086 
5096 
5130 
5137 
5139 
5149 
5160 
5161 
5162 
5163 
5165 
5565 
5567 
5263 
5571 
33542 
3390 
33541 
5755 
5566 
5756 


43435 
529% 
3544 
5751 
575% 


3169 


2559 
2865 
2349 
2434 
2440 


1983 


$6079 
3635 
3299 
36064 


4337 
434) 
3626 
4999 
5067 
5u15 
AY9S5 
5096 
543) 
5137 
5439 
5446 
5155 
5148 
5462 
5163 
5165 
4373 
5992 
59099 
3635 
3277 
3205 
S234 
3384 
5998 
33588 


3149 
5117 
$314 
3788 
5753 


3159 


2557 


2356 
2395 


2452 


$6714 
3642 
3302 
3677 


4355 
4564 
4999 
5050 
5079 
5032 
3086 
3364 
5259 
9458 
5142 
5149 
5160 
5159 
5166 


4898 
5468 
5175 
3644 
3285 
3243 
3233 
5755 
5477 
5756 


4343 
5298 
3350 
4674 


3465 


2582 
2581 


3702 
4869 
3340 
3704 


4408 
4995 
5054 
5076 
5y49 


5422 


5249 
5278 
5451 


5161 


5097 
5354 
5263 
4877 
3312 
3253 
3343 


5183 
4380 
4701 


4676 


3594 


4894 


4466 
5087 
5u79 
5u5S 


5484 


54153 


5223 
5445 
5294 
490G 


3255 
5249 
4394 


4944 
4683 


498) 


5989 
5088 


5264 
5567 
53535 
4902 


3258 


5566 


4442 


4728 


4994 


5279 


5500 
4982 


3263 


4748 


5090 


5286 


4993 


3265 


5751 


5298 


5571 


3269 


5309 


3274 


5364 


3287 


5374 


3300 


5425 


3303 


5565 


3306 


PAGE 
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01557 O01 
OcTalL 


15534 
12375 


13269 
35115 
35127 
35103 
13634 
13693 
136597 
13636 
456441 
12023 
15122 
15131 
15153 
15143 
15134 
45157 
15173 
15205 
15211 
15106 
34146 
15379 
15402 
15454 
15455 
15460 
15472 
15505 
155124 
15524 
15522 
15545 
15526 
12634 


45025 
33053 
16457 
14620 
16474 
16123 
15530 
12661 
12733 
16255 


U5"26-72 
SYMBOL 


2 vc 
2 ADD 


ADO 
ATi 
AT2 
ATL 
B45 
B4Xx 
B2s 
B2x 
BAL 
BAK 
BB1 
bB2 
bBS 
BB4 
8B5 
bBo 
BB7 
BBS 
3B9 
BLC 
BOX 
C10 
Cii 
Cie 
C43 
C14 
C45 
C16 
C47 
C18 
C19 
C20 
C24 
Cad 


MMMM YH HYMN NM YMMNN NH MYND MH MN MY AMD NAD NA A NH 


CFS 
CLO 
CNT 
CaP 
CPR 
CPX 
CSK 
Cst 
CUN 
DCO 


MMM NN NM NM PM 


18,100 


ALGOL68 


REFERENCES 3Y ALTER NU, 


5264 
3654 


408/ 


4339 
4338 
4342 
4341 
5344 
3442 
5001 
5006 
5010 
5048 
5027 
5030 
5042 
5052 
5956 
4989 


5167 
5177 
5208 
522U 
5225 
5235 
5244 
5251, 
5256 
5257 
5260 
5261 
3796 


4952 


5745 
4849 
5767 
5522 
5279 
3833 
3875 
559/ 


5189 
3654 
5706 
4087 


3146 
3445 
3148 
$147 
5104 
3412 
$001 
5u07 
5905 
Suis 
9024 
530 
$021 
548 
5044 
4985 


5140 
5436 
52035 
5198 
5486 
52355 
5242 
5192 
5256 
5255 
5235 
5261 
3479 
3910 
4363 
4715 
4878 


3119 
4332 
4530 
5499 
5108 
$833 
3875 
5589 


5264 
4027 
9727 


4339 
4357 
4342 
4340 
5344 


3082 
5908 
3010 
5026 
5027 
59039 
5028 
5052 
5056 
4987 


5167 
5177 
92114 
3208 
5138 
5259 
5244 
5244 
5258 
5257 
5260 
5262 
3529 
3916 
4367 
4720 
4904 


3142 
4556 
4544 
5522 
5279 


5597 


4799 


4389 
43538 
4398 
4344 
5345 


5041 
5936 


4989 
5285 


5220 
519y 


5251 


3526 
3922 
4369 
4725 
49035 


3955 
4849 
4554 


4804 


4420 
4388 
4424 
4392 
5593 


5042 


5297 


5223 


3565 
3924 
4397 
4923 
4952 


4130 
4943 
4823 


4803 


4456 
4425 


5308 


3567 
3929 
4399 
4938 


4228 


5767 


4805 


4472 
4455 


5326 


$574 
3932 
44<¢9 


4237 


4807 


4481 
4473 


5328 


3575 
3938 
4423 


4242 


4956 


4480 


3577 
3944 
4469 


5745 


5604 


3584 
3948 
4465 


5663 


3586 
4952 
4469 


5665 


3590 
4132 
4485 


5667 


3592 
4135 
4602 


5677 


3595 
4476 
4643 


PAGE 


5679 


3794 
4196 
4654 


275 


5691 


3796 
4323 
4698 


61557 O41 
OcTat 


16243 
16263 
16300 
16303 
16306 
16205 
12263 
16206 
34424 
140t0 
11563 
12731 
11391 
11363 
35062 
350350 
141357 
34411 
34400 
12403 


33754 
33752 
335767 
34004 
34011 
11636 
11663 
11670 
11673 
153213 
346353 
34695 
34045 
14222 
13404 
13407 
13414 
13435 
150/14 
46475 
145725 
34506 
13235 
34665 
34707 
33007 
346745 
33345 
13573 


U5n26=-72 
SYME0L 


bea 
bce 
ucs 
be4 
pes 
DCL 
oct 
DCX 
DEC 
DIF 
DST 
EPR 
ERL 
ERT 
ETi 
ETL 
FOP 
FTL 
FTL 
INS 


1x1 
1x2 
1x3 
1x4 
1x5 
KA 
LKe 
KS 
KX 
LwB 
MD1 
MDe 
MoD 
MOP 
OB4 
0B2 
083 
0B4 
OPF 
OPT 
PAR 
PpT 
PoP 
PRI 
PRe 
PRO 
PRT 
QST 
Rib 


NVVMNNMNNNMNNNNNNN NN NMN NNN DN OMNN DN MH MM MP MM MP 0D 9 MPR MM MT NM AM NM PP 


18,160 


ALGOL68 


REFERENCES 3Y ALTER NO, 


56035 
5619 
5632 
5635 
5638 
5572 
358y 
5575 


4431 
3261 
3675 
3131 
3141 


4515 


366y 


3549 
3524 
3529 
3532 
4114 


4561 
441,66 
4174 
4179 
4180 
4976 
5768 
5596 


4066 


4290 


5558q9 
9587 
5574 
5994 
8592 
5572 
$580 
5571 
94351 
3195 
3875 


31354 
3150 


4518 


3492 
4417 


3$16 
3524 
3525 
3314 
4114 


4564 
4168 
4471 
4473 
43489 
4565 
$150 
5106 


4968 


4266 


3584 
5588 
96352 
96355 
5638 
5614 


9573 


3197 


3133 
3152 


$537 
4639 


3319 
3324 
3329 
3318 


4178 
4174 
4479 
4185 
4826 
4537 
5396 


4269 


5582 
359u 


56138 


3539 
4772 


3528 


33352 


4844 
4549 
5436 


4275 


5583 
5619 


5634 


3545 
4776 


4849 
4849 
5594 


4277 


5584 


5634 


3553 
4792 


4875 
4828 


4290 


5585 


5637 


3557 
4931 


4942 
5768 


4729 


5586 


5642 


3559 
5688 


4976 


4915 


PAGE 


4441 


276 


4445 


01557 01 
OCTaL 


12200 
33553 
33144 

0 
12324 
114350 
11361 
34523 
34554 
34542 
15262 
13467 
11410 
11642 
34544 
13335 
34620 
34606 
15606 
15532 
15544 
12572 
133353 
33654 
12407 
34036 
15662 
13502 
15704 
15743 
43533 
42020 
15226 
152354 
45244 
15244 
15143 
13445 
13446 
13444 
13447 
12624 
12623 
14320 
13046 
16152 
45035 
14735 
14764 
11764 


05"26072 
SYMBOL 


SCT 
SEC 
SER 
SET 
S1S 
SR1 
SRT 
ST4 
ST2 
STL 
$7Z 
Svi 
TaG 
TEN 
UNA 
UPB 
UT2 
UTl 
VAC 
Veo 
VCd 
wAD 
ACNT 
ACYP 
ADDI 
AMOD 
BALA 
BAL 2 
BALS 
BAL 4 
BALN 
BARF 
BB10 
BB4d 
BBi2 
BBy3 
BLCX 
BUSC 
BUSD 
BUSF 
BUSM 
CADT 
CADX 
CALL 
CBOXx 
CDEP 
CF Sx 
CHK1 
CHK2 
CHKS 


9M MP 19 %N 1 A AD ANNAN DN MND WAP M 7 PON A A 70901 MMR AP A 1 MN AMD A) 


18,160 


ALGOL65 


REFERENCES 3Y ALTER NO, 


3529 


3645 
3114 
3139 


4089 
4222 
3154 
3307 


4116 


5309 
5265 
5272 
3778 
4130 


3664 


5561 
423% 
5379 
5386 
4242 
3447 
5069 
5072 
5089 
5085 
4994 
4204 
4209 
4203 
4206 
3804 
3803 
4627 
3950 
5545 
4969 
3382 
3386 
3389 


3529 


$6135 
3114 
$115 


4y89 
4220 
3154 
3250 


4116 


51ite2 
5265 
5269 
3620 
#113 


5659 


5561 
4253 
5562 
53586 
4242 
$417 
5059 
557 
5909 
5903 
4989 
4439 
4444 
4437 
4148 
3797 
4796 
4627 
4959 
5500 
4954 
4579 
9583 
3584 


3118 
$114 


4222 


3307 


5309 
5266 
5272 
3778 
4415 


5664 
5369 


5379 
5388 


5061 
5072 
5044 
5075 
4994 
4189 
4464 
4454 
4156 
3804 
3803 


3314 
4969 
3382 
3386 
3385 


3147 


4672 
4447 


5438 


5064 


5014 
5983 
4182 
4475 
4186 
4a79 
3804 


5398 


3389 


31359 


4677 
4119 


5464 


5069 
5054 
4204 
41477 


41495 
4206 


5545 


4684 
4124 


5470 


5055 


4205 
4203 


4734 
41423 


5485 


5068 


4749 
4125 


5074 


4427 


5073 


4429 


5977 


4430 


5980 


PAGE 
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11779 
117714 
11775 
11776 
12002 
12003 
16499 
15557 
13752 
13723 
146414 
15016 
15020 
14662 
14664 
14741 
14756 
14775 
15040 
14653 
15070 
14644 
12026 
16124 
13716 
12705 
12720 
12725 
12726 
12727 
12730 
127354 
12735 
12747 
19343 
13026 
114644 
11624 
16214 
12324 
35204 
14190 
125359 
11603 
11620 
16175 
13492 
14064 
14053 
11533 


J5"2be72 
SYMBOL 


CHK4 
CHKS 
CHKO 
CHK? 
CHKS 
CHK9 
CNDX 
CNIL 
CONt 
CONF 
COP4 
COPS 
cop4 
COPS 
COP6 
COP? 
cops 
cop9 
COPE 
COPM 
copT 
COPX 
CPAR 
CRED 
cscT 
CST4 
cST2 
CSTA 
CSTB 
csTc 
csTD 
CUNL 
CUN2 
CUN3 
DBAL 
pBys 
DONT 
DCNV 
DCTb 
pcrTT 
DECX 
DELY 
DELW 
DEND 
DENT 
DEPT 
DFLG 
DIF4 
DIFL 
DINT 


MMM 90 N90 90 A 9 NR ON A NN AM MD PND NM NNN NN NM ND MN MN MPN DW MR 


18,160 


ALGOL68 


REFERENCES 3Y ALTER NO, 


33985 
3594 
3596 
3399 
3408 
3404 
5736 
5286 
4401 
43738 
4836 
4945 
494) 
48538 
4655 
4884 
494s 
4926 
4963 
483u 
4975 
4824 
34235 
5525 
43785 
38585 
3864 
3669 
387U 
3873 
3872 
3876 
3877 
3887 
5643 
3926 
3309 
3291 
5579 
3640 


4487 
3744 
3277 
3345 
5564 
4225 
4475 
4466 
32535 


SS9Q 
3592 
3595 
3597 
3400 
3402 
57356 
5110 
4401 
45/8 
4856 
4695 
4879 
4650 
4852 
4876 
448s 
49q9 
4837 
4565 
486) 
4551 
3423 
5120 
4375 
3653 
3664 
3638 
3844 
3849 
3859 
3874 
3568 
4887 
5593 
3926 
3208 
3206 
5574 
3583 


4$70 
3516 
3257 
3199 
5555 
4214 
4449 
4466 
3207 


3393, 


3394 
5398 
3399 
3403 
3404 
5737 
5286 


4845 
4699 
4874 
4853 
4855 
4884 
4913 
4928 
4849 
4830 
4874 
4555 


3154 


3869 
3866 
3842 
3845 
3853 
3854 
3876 
3877 
3889 
5643 


32414 
32142 
3575 
3584 


4474 
3604 
3260 
3192 
5556 
4217 
4442 
4474 
3253 


4951 
4945 
4947 


4965 


4896 
4564 


5523 


3669 
3852 
3856 
38538 


3298 
3294 
5579 
3587 


4486 
3647 
3275 
3195 
55937 
4249 
4475 


4946 
4948 


4918 
4829 


3859 
3874 
3863 


3309 
3304 


3588 


4487 
3744 
3277 
3219 
5564 
4223 


4952 
4824 


3870 
3872 


3593 


4669 
3234 
4225 


4975 
4944 


36410 


4910 


3264 


3262 


3273 


3294 


3313 


PAGE 
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11472 
16474 
16377 
11692 
12753 
13065 
33272 
14377 
136614 
136414 
13321 
12642 
11643 
14407 
15104 
34356 
44145 
14203 
34206 
34300 
16464 


13237 
35002 
160462 
13537 
12436 
12424 
12454 
12454 
12447 
12452 
12436 
35173 
11322 
35191 
117352 
33412 


05"265s72 
SYMBOL 


pNUM 
DONE 
DP AR 
pST1 
DSyB 
EBOX 
ELSE 
ENJL 
ENTC 
ENT) 
EPTY 
EREF 
ESGN 
ETRY 
FIRM 
FLOL 
FOP4 
FOPS 
FOPT 
FSEQ 
GLBL 


NNN NNN NNN AMM MM NR MRA PD 


GMOD 
]DEC 
IDNT 
TNLL 
INS4 
INS2 
INSS 
INS4 
INS5 
INS6 
INSX 
L384 
LI BF 
LIBL 
LPAR 
LSEQ 
MARK 
MAT1 
MAT2 
MATS 
MATX 
MCOL 
MCOM 
MFOR 
MIND 
MNDX 
MODE 


NM HNN NNN MD 7 N19 900 HM MN AN 9 1 ND 


16,180 


ALGOL68 


REFERENCES 8Y ALTER NO, 


3204 
5764 
5695 
3276 
3894 
3969 


4674 
4344 
4328 
4120 
3846 
3308 
4682 
4984 


4524 
4554 


5759 


4054 


5748 
4262 
3674 
3677 
3682 
3704 
3696 
3699 
3703 


3408 
3365 


4662 
3742 
3727 
3729 
3730 
5761, 
5759 


3171 
5738 
5740 


$199 
$764 
5594 
$271 
$691 
3965 


4674 
4544 
4328 
4120 
a818 
3217 
4689 
4405 


4524 
4554 


2863 
3903 
4773 
4054 


4226 
4262 
36714, 
$672 
3682 
3698 
3689 
3697 
3654 


$106 
4563 


4662 
3712 
3716 
3726 
3706 
5593 
3598 


$174 
5738 
55590 


$202 


5695 
5276 


3226 
4682 
4984 


4528 


2864 
3904 
4774 


3748 


3676 
3677 
3687 
3701 
3690 
3699 
3660 


3108 


3728 
3719 
3729 
3730 
5764 
5759 


5739 
5441 


3204 


3238 


3534 
4376 
479% 


3700 
3696 
3684 
8896 


3727 


5592 


3308 


3535 
43579 
5669 


3702 


3703 


5740 


3549 3544 
4386 4387 
5673 5674 


3554 
4390 
5750 


3555 
4394 
5918 


3568 
4453 
5922 


3569 
4454 


3572 
4464 


3395 
4478 


3896 
4479 


PAGE 


3909 
4769 


279 


3904 
4770 


61557 O01 
OCTaL 


34267 
14220 

400 
34269 
15337 
13342 
13327 
14424 
13323 
11424 
14136 
347792 
34740 
13559 
13337 
13325 
15752 
15766 
15773 
160380 
16033 
16041 
16030 
16092 
16034 
13475 
14530 


4 
16454 
34156 
33575 
13251 
33336 
33423 
16154 
16463 
13234 
33452 
11397 


11364 
13457 
13254 
13311 
14245 
14254 
14273 
14305 
14347 
14346 


U5°26=72 
SYMBOL 


MODI 
MOPC 
MSEM 
MSE 
NEWB 
oBys 
OF 1X 
ODN 
OLWB 
OPER 
OPNT 
OPT4 
OPTL 
ORLL 
oSyB 
oUPB 
PARI 
PAR2 
PARS 
PAR4 
PARD 
PARO 
PAR7 
PAR8B 
PARY 
PARN 
PCDR 
PDEN 
PLOG 
PMQD 
PRIM 
PUSH 
QSEQ 
QvatT 
REDT 
RELF 
REST 
RLTR 
RNGE 


RTab 
SACT 
SAVE 
SBCT 
SEL,0 
SEL4 
SEL2 
SELE 
SELF 
SELT 


NNN NOM NY APM NM NNMNN NN NN NN NAMM PNM ANMD — MP MOMMY A DY 7 MMM A MN AN 


18,160 


ALGOL68 


REFERENCES 3Y ALTER NO, 


4967 
57685 


4116 
413/ 
4126 
4695 
412¢ 
3166 
454/ 


4271 
4134 
4424 
5447 
5429 
5434 
5465 
5466 
5472 
5479 
5481 
5488 
4228 
4765 
575/ 
5739 


4064 


5544 
5749 
40835 


3137 


S142 
4214 
4080 
4112 
4588 
4592 
4640 
4620 
4626 
4625 


4562 
$405 


4118 
4137 
4126 
4107 
4122 
4166 
4302 


4274 
4134 
4124 
5417 
5423 
5407 
5460 
5462 
5472 
5455 
9478 
5489 
4228 
4039 
5580 
5739 


4064 


5535 
4373 
4083 


3409 
3939 
3138 
4214 
4080 
4112 
4578 
4592 
4608 
4589 
4568 
4597 


4567 
5763 


4695 


4514 


54352 
5426 
5434 
5463 
5466 
5489 
5457 
5484 
5483 


4763 
5757 


53536 
4376 


3120 
3959 
3140 


4588 
4599 
4610 
4585 
4587 
4598 


4547 


5429 


5476 


36335 


5537 
5749 


34295 
402u 
3142 


4593 
4601 
4629 


5479 


5544 


3426 
49024 


4620 
4607 


3435 
4142 


4626 


3437 
4245 


3333 
4384 


3373 
4435 


3423 
4529 


3457 
4779 


3894 
4834 


3944 


3947 


PAGF 


3996 


280 


3933 


01557 O41 
OcTaAbL 


05226472 
SYMBOL 


SETC 
SETE 
SETT 
SINT 
$1$1 
SLOC 
SOFT 
STJD 


SVAL 
TERT 
THEN 
TLUG 
TLUT 
TRIL 
TSEQ 
UNIT 
VACL 
vAcT 
VALP 


NNNNNNNNMN NWN NON NNN WD A 


vc,5 
VMOD 
vOrD 
WADX 
WDEN 
WEAK 
wGEN 
wMOP 
ZCOL 
ZCQOM 
ZSEM 
2AMODE 
2ASGNE 
2BAL 2, 
2BALN4 
2BALZR 
28mMODE 


MMMM NON PY 


2BOUND 
2B0XER 
QBTAIL 
2041,38 
2011,7 
2014,1 
2CDEP1 
2CDEP2 


18,180 


ALGOL68 


REFERENCES 3Y ALTER NO, 


4208 
3614 
4097 
4988 
4226 


4059 


35335 
356) 


WI Ul 
NGG 
CAND GA 
acH 


5267 


4044 
3795 
4742 
4986 
4291 
4558 
5760 
5758 
5762 
5568 
3523 
5370 
4246 
4237 
5569 


5184 
5191 
5224 
5546 
5562 


4208 
3042 
4097 
3486 
4226 


4059 


31470 
3167 


53534 
3342 
3485 


4962 
4684 
5447 
5695 
5267 


4044 
3778 
4742 
4573 
4291 
4558 
33594 
3596 
4401 
5123 
8523 
5579 
4232 
4237 
3627 
5134 
5401 


5178 
5184 
5222 
5346 
59951 


3614 


3533 


3175 
3172 


3353 
5329 
5508 
4209 
4894 
5454 
5704 
5271 


3795 


4986 


5760 
5758 
5762 
5435 


5428 
4236 


3637 
5246 
5424 


5481 
5194 
5224 
5564 
5554 


4966 


3180 
3477 


3532 
4334 
4947 
5512 
5707 


5494 


5494 
4241 


4868 


5254 
5483 


5562 


33533 
3546 


3546 
4348 
4957 
5594 
5744 


5568 


5496 
4246 


4893 
5269 
5505 


3361 


3569 
4404 
4996 
5597 
5745 


5498 


4979 
5289 
5569 


3596 
4497 
5993 
5695 
5718 


4998 
5287 


3624 
4434 


5100 
$619 
3728 


5047 
5292 


3632 
4572 
5467 
5636 
5734 


5052 
5299 


3644 
4632 
5170 
5638 


5056 
5343 


3655 
4637 
5474 
5643 


5966 
5347 


3664 
4649 


5353 
5654 


5049 
5334 


4007 
4655 
5356 
5657 


5072 
5348 


4009 
4777 
5369 
5659 


5078 
5367 


PAGE 


4928 
4898 
538% 
5670 


5983 
5383 


281 


4947 
4866 
5444 
5689 


5130 
5397 


61557 C1 
OCTAL 


12905 
13205 
16420 
15013 
15022 
14710 
147414 
15041 
15047 
15056 
14202 
15967 
15096 
16074 
16125 
16140 
16147 
13720 
121414 
12171 
163287 
16345 
16375 
16376 
16257 
11625 
12262 
16235 
16464 
16469 


14103 
14132 
14146 
12536 
12561 
12566 
12545 
12543 
12571 
114643 
12685 
14031 
11505 
11544 
11522 
11530 
11557 
11543 
11550 


V5e26e/72 
SYMBOL 


2CHKLG 
2CLEAR 
2CMCDE 
2CoPi0 
2CoP41 
2COP61 
2CoP71 
2COPE1 
2COPEM 
2CoPEP 
2COPER 
2CoPET 
2COPPM 
2CPUSH 
2URED4 
2CRED2 
2CREDS 
2cscrB 
2DASGN 
2DASGT 
2DBAL4 
2DBAL2 
2DBALC 
2DBALT 
20C4,4 
2DCNV1 
2D0CTaB 
20crBeE 
2DECL4 
2DECLR 


2DELVi 
2DELV2 
2DELVT 
QDELW4 
2DELwW2 
QUELWS 
2DELWL 
2DELWW 
2DELWX 
2DENOT 
2DEREF 
2D1F x0 
20NUM4 
2DNUM2 
20NUMS 
2DNUM4 
2DNUM5 
2DNUM6 
2UNUM7 
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ALG. 68 


REFERENCES 3Y ALTER NU, 


3406 
4092 
573/ 
4942 
4949 
4875 
490y 
4964 
497 
4961 
45535 
4974 
4972 
5499 
5524 
5535 
5542 
4375 
3498 
3522 
5655 
5669 
5695 
5694 
5645 
3295 
3579 
5596 
5747 
5746 


4490 
4497 
4504 
3759 
3769 
3774 
3735 
3734 
3777 
3181 
3805 
4448 
3245 
3222 
3228 
3234 
3244 
3245 
3250 


3572 
4y92 
5/57 
4927 
4949 
4872 
44697 
4962 
4963 
4525 
4518 
4519 
4961 
$544 
§524 
5529 
5534 
4$75 
3498 
3499 
5655 
5656 
5654 
564) 
5642 
3292 
3579 
5575 
5747 
3102 
489 
4499 
4497 
4493 
3759 
3769 
4768 
3733 
3734 
3744 
4161 
3805 
4444 
S241 
3220 
6225 
$223 
$2153 
3245 
3246 


3406 


4942 


4875 
4909 
4964 
4979 
4964 
4544 
4839 
4972 
5396 
5544 
5535 
5534 


3513 
5668 
5669 
5655 
5684 
5615 
3295 


5596 


3443 
4984 
4496 
4499 
4494 
3753 
3773 
3774 
3735 
5672 
3777 


4448 
3215 
3222 
3228 
3227 
3239 
3249 
3250 


4553 
4965 


5499 
5542 
3547 


5693 
5686 


3504 
4244 


4504 


3776 


5747 


3235 
3234 
$241 
3252 


4974 


$522 


5689 


3523 
4294 


5694 


3843 
4344 


3846 
4345 


3818 
4320 


3829 
4446 


3862 
4476 


3876 
4628 


3684 
4693 


3965 
4742 


3999 
4747 


PAGE 282 


49003 4945 
4978 5746 


01557 04 
OCTAL 


16414 
16449 
16445 
11560 
12762 
12767 
13106 
13124 
13122 
14404 
13714 
13125 
13172 
13293 
13202 
13204 
12646 
12697 
12656 
11347 
11342 
14372 
14406 
12637 
34384 
13237 
34367 
34310 
16466 
35023 
11436 
12394 
12350 
337384 
33634 
12063 
11734 
16470 
12025 
12464 
16433 
16434 
16495 
34643 
14432 
13366 
13374 
13375 
13423 
13426 


O5e26"e72 
SYMBOL 


2DPARIL 
QUPAR2 
2DPART 
2DREAL 
20SuUB4 
2DSsuB2 
2EBOx1, 
2EB0xC 
2QEBOxM 
2EF ALS 
2ENTCT 
2EPDEN 
2EPDNE 
QEPDNL 
2EPDNM 
2EPDNT 
QEREF 4, 
QEREFT 
QEREFX 
2ERNGE 
2ERTAL 
2ESKIP 
QETRYE 
2EvOy0 
2eFIELD 
oF MODE 
2FORMP 
2FSEQ4 
2GTYPE 
2tpecs 
2DENT 
2DNTT 
2tDNTY 
ZINDEX 
2ITAIL 
2LABEL 
QLASTS 
2k INKO 
QLPARP 
2MATCH 
2MoDE4L 
2MODE2 
2MODES 
aMTAIL 
20ASGN 
20BUS4, 
20BUS2 
208US3 
20BUS6 
20BUS7 
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REFERENCES BY ALTER NO, 


5705 
5726 
5734 
325% 
3898 
3905 
3982 
3995 
3994 
4679 
4371 
3996 
4035 
4042 
40414 
4043 
3822 
3831 
383) 
3129 
3440 
4669 
4684 
3849 


4986 


5752 


3176 
3653 
3647 


3452 
3362 
5754 
3422 
3706 
5741 
5742 
5743 


4747 
4157 
4160 
4164 
4186 
4189 


5705 
5692 
5704 
3245 
5894 
3899 
3982 
3979 
3968 
4679 
as49 
3996 
4033 
4042 
3997 
4u00 
3819 
4625 
3822 
4129 
3129 
4669 
4684 
3815 


$103 


4995 


8176 
3628 
4647 


3452 
3105 
3519 
3564 
3706 
4854 
4656 
4858 


4717 
4457 
4152 
41641 
4181 
4187 


5713 
3728 
3712 
3258 
5898 
3903 
3989 
3988 
3984 


4364 


4017 
4013 
3822 
$827 
3839 


3140 


3144 


4098 


36356 


3353 
5754 
3374 
3828 
48992 
4867 
4884 


4166 
4160 
4164 
4186 
4189 


5722 


3995 
39BS 


4371 


4938 
4019 
4488 
3634 


3805 


4400 


36535 


3362 
5934 
3404 
3885 
5744 
5742 
4908 


5725 


3986 


4041 
4043 
4609 


4057 


4102 


4054 
8868 
3443 
3984 


4936 


5733 


3987 


4986 


4105 


4545 
3448 


5743 


3994 


4542 


4107 


4690 


3422 


4110 


4695 


4313 5752 


4699 


4702 


4709 


4722 


4730 


4737 


PAGE 


283 


U155/ 
CCTAL 


13213 
14445 
13351 
14497 
14433 
14117 
14121 
34717 
16436 
13564 
13570 
34347 
11722 
14613 
14614 
146215 
14616 
14617 
14554 
14562 
14612 
34120 
34105 
34354 
13244 
13249 
33325 
33434 
11376 
12121 
13459 
13275 
12177 
14417 
14221 
14310 
13267 
13277 
12322 
13394 
11323 
11369 
33505 
11397 
15072 
15190 
34232 
13464 
12037 
11717 


vi 


u5*26"72 
SYMtEOL 


2UDELV 
2UENTR 
2UFLEX 
QUFORM 
20TDN2 
20TDNY 
201Dy1 
20PDEC 
QUPDEF 
2O0RLLI 
20RLL2 
2PARAM 
2PARQK 
2PcDL1 
2PcDLe2 
2PCDL3 
2PcDL4 
2PCUL9® 
2PCDR1 
aPcDR2 
2PCDRX 
2PROCM 
aPROCT 
2PTAIL 
OoPUSEA 
2PUSHW 
2QSEQT 
2QTAIL 
2RTABE 
2SASGN 
2SBCNT 
2SBLNK 
asciTasb 
25DCLR 
2QseLcrT 
2SELEM 
25HEAP 
2SHPBK 
2SISNT 
2S.CBK 
2SRNGE 
25RTAL 
2sTAL 
QSTART 
25TRNG 
2STRNX 
2SUNET 
2svIiRT 
2TaGOF 
2TLUG2 


18,190 
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KEFEKENCES 3Y ALTER NO, 


4050 
4712 
4126 
4/22 
4702 
4502 
4504 


5744 
4285 
428/ 


3355 
4844 
4845 
4816 
484/ 
4818 
4783 
4789 
4615 


4075 
4071 


3152 
3482 
420/ 
4100 
3528 
469) 
4568 
4625 
4094 
4102 
3611 
440/ 
3109 
3138 


3997 
4977 
4985 


4219 
3432 
3352 


4y>0 
4/12 
4128 
4722 
4702 
4902 
4504 


4662 
4283 
428) 


3290 
4768 
4780 
4795 
4764 
4797 
4783 
4/784 
4763 


4075 
4u74 


3158 
§482 
3151 
4100 
$328 
4699 
4568 
4620 
4N94 
4102 
$611 
4107 
3109 
3112 


3097 
3909 
4977 


4219 
3452 
3549 


4507 


4920 
4238 
4282 


3395 
4806 
4804 
4802 
4800 
4798 
4788 
4783 
4813 


$140 
4158 


4623 


3158 


4008 
4983 


3352 


4540 
4928 
428/ 
4844 
4B14> 
4816 
484/ 
4818 


4786 


3152 


420/ 


4048 


4939 


4789 


4242 


4949 


4447 


5744 


4477 


4633 


4977 


PAGE 
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01557 014 
OCTAL 


11729 
16203 
11756 
35166 
33367 
33174 
34244 
16447 
13640 
14494 
11355 
11346 
33704 
174414 
17442 

47 


16 
17443 


05-26-72 


SYMBOL 


2TLUGS 
2TMOpE 
2TPCHK 
2aTRAIN 
2TSEQT 
2UTAIL 
2UUNTT 
2VALP4 
QWGENX 
2WIDEN 
2XRNG4 
2XRNGE 
2xTAlL 


3 
3 
3 
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18,180 


ALGOL68 


REFERENCES 3Y ALTER WO, 


3353 
5570 
3567 


3554 
3487 
3567 


5044 
4519 
4727 
3119 
3128 


4097 
698 
5822 
6745 
8154 
5824 
6999 
6505 
6U97 
5910 
6098 
7669 
5912 
6N11 
5911 
5796 
6201 
6203 
5913 
6843 
5783 
5833 
5786 
5796 
6589 
5780 
6283 
6294 
4504 
6299 


6324 


&S22 
6320 
6514 
6285 
6288 
625814 


5353 
4574 
3416 


5669 
4327 


3128 


6006 
6757 
8457 
6658 


8506 
6117 
6395 
6120 
7674 
6479 
6264 
8774 
6614 
6464 
7317 
6960 


8320 


8053 
6613 
6637 
59792 
6369 
6295 
6311 
6302 
6329 
6343 
6342 
6318 
6286 
6297 
6364 


5084 
3421 


5696 


6303 
6768 
82585 
6834 


8507 
6520 


7745 
6524 
6272 
8777 
7456 
6482 
7591 
7366 


6298 


63135 


6351 
6355 
6358 
6312 


5570 


5714 


6332 
6974 
8255 
7952 


8508 
7779 
7879 
6749 
6274 
7493 
6515 


8334 
7398 


6351 


5735 


6340 
699g 
8403 
7992 


85114 
7784 
7326 
7322 
84990 
7648 


8352 
7547 


6355. 


6349 
7006 
8423 
8032 


8162 
7586 
8494 


7859 


6362 


6385 
7244 
8447 
8213 


8166 


7632 


8514 


6412 
7269 
8454 
8272 


8636 


6424 
7450 
8624 


6487 
7554 
8629 


6494 
7769 
8633 


6500 
7774 


6507 
7972 


PAGE 


6623 
8046 


285 


6646 
8021 


01557 U4 
OCTaL 
17937 


17070 
17474 
22055 
22iiu 
24225 
24250 

4 


17154 
17155 
17136 
17137 
17140 
17141 
75000 
60000 
215396 
21555 
21041 
21554 
225%5 
22541 
22563 
22577 
22692 
22606 
22637 
22662 
22699 
25104 
23076 
24500 
24244 
17665 
17673 
24603 
24620 
246282 
24626 
246283 
17043 
17723 
17727 
635000 
620000 
21752 
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SYMBOL 
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REFERENCES 3Y ALTER 


5624 


5642 
6125 
7369 
7411 
8519 
8516 
5831 


5862 
5463 
5864 
5865 
5866 
586/7 
54699 
58ay 
7194 
71985 
6861 
7192 
7674 
7694 
7712 
7724 
7727 
7731 
7772 
7779 
7781 
7948 
7945 
8687 
8531 
6249 
6252 
8754 
8767 
8769 
877% 
877 
5828 
6276 
628) 
5898 
5886 
7302 


3824 
BUS9 
9842 
6uU9Y 
5782 
6/48 
9510 
8509 
5851 
6905 
7o12 
B$27 
538535 
5654 
58655 
5656 
5057 
5858 
5099 
5689 
69358 
6956 
6641 
6852 
7074 
76089 
7/12 
7693 
7683 
7728 
7768 
7775 
7778 
7841 
7671 
8538 
5789 
6246 
6252 
8747 
8762 
8766 
8746 
8754 
5828 
6276 
6274 
$898 
5886 
5/83 


ALGOL68 


5933 
80458 
6294 
6123 
7369 
7409 
3515 
8514 
59B4 
1067 
7654 
8354 
5862 
5863 
5864 
5865 
5866 
5867 
6479 


69690 
6944 
6858 
6903 
7726 
7694 


7724 
7727 
7734 
7772 
7730 
7784 
7813 
7679 
8687 
8534 
6654 
6448 
8754 
8767 
8769 
8753 
8779 
8089 
6279 
6289 
6464 
6326 
7302 


NO, 
6555 
BUSS 
6$01 


74124 
8518 
5995 
7074 


7798 
8374 


6524 
6984 
7048 
6861 
6915 


7694 


7941 


7849 
7695 


6899 
6539 


8759 


8147 


6486 
6356 


656) 
8233 
63551 


8143 


6577 
7975 
7887 
8378 


6749 
7000 
7053 
6878 
7039 


79418 
7722 


7223 
6546 


8763 


8152 


6520 
6595 


6563 
842) 


8463 


6581 
7984 
789Q 
8395 


7632 


7046 
7493 
7049 
7042 


7867 
7233 


6653 


8767 


6745 


6565 
8476 


6636 
7094 
7893 
B4n0 


7054 


7055 


7885 
7243 


684q4 


8773 


7769 


6579 
8495 


6675 
7138 
7969 
8436 


7104 


7132 


7915 
7266 


7225 


8796 


7784 


6571 
8682 


6728 
7141 
7995 
8499 


7126 


7146 


7277 
7236 


8806 


8149 


6349 


6752 
7205 
8996 
8543 


7194 


7147 


7269 


8154 


6806 
7250 
84189 
8534 


7152 


7445 


81466 


75n8 


6824 
7304 
8260 
8599 


7455 


7465 


7488 


6828 
7313 
B2B5 
8678 


7192 


7482 


7947 


6856 
7374 
8309 
8756 


PAGE 


7984 


6896 
7428 


8312 
8760 
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Band 


6900 
7501 
8324 


61557 U1 
GOCTaL 


24633 
24624 
24625 
24642 
24632 
431000 
25076 
20507 
205134 
20525 
20524 
17474 


05e26072 
SYMBOL 


FFA 
FFA 
FFI 
FFX 
FIX 
FLD 
FRN 
FS1 
FS2 
FS] 
FSX 
GaD 


AANAWAGWWAG WW 


GAQ 
GEA 
GEN 
GET 
GUM 
GxR 
H]P 
IFA 
IFB 
INA 
}NB 
1so 
1S1 
1$2 
}ss 
JST 
}SXx 
wMP 
LBL 
DA 
LDa 
LDX 
LIR 
LLd 
LL2 
LLS 
LL4 
LLE 
LLX 
EWE 
MAC 
MAX 


WAWNAANUANAAWAWAGdAaAAaANA AWG GAGGAGWW GA WGw 


18,180 


ALGOL68 


REFERENCES 3Y ALTER NO, 


8/76 
87714 
8772 
8789 
8777 
5901 
8945 
6644 
6649 
6658 
6657 
6426 


6205 
6207 
7605 
6224 
9034 
6211 
734U 
6088 
6090 
6089 
6091 
8342 
8344 
8346 
8321 
8350 
8341 
6092 
7340 
5891 
5892 
5884 
11446 
8052 
8054 
B06S 
806 
8076 
8075 
8741 
6061 
6555 


8776 
8758 
8742 
8778 
5789 
5904 
8916 
6619 
6617 
6629 
6614 
5934 
6405 
6779 
7396 
7669 
8258 
B899Q 
6205 
6207 
7602 
ayo? 
8648 
&211 
5784 
6088 
6090 
6Y89 
AN91 
8$26 
8529 
9521 
8519 
8539 
8S22 
4092 
5789 
5694 
5899 
5884 
6846 
8y52 
8053 
$057 
BU59 
5786 
8033 
5789 
6012 
5796 


8778 
8774 
8749 
8785 
8777 
6047 
8918 
6644 
6627 
6650 
6657 
6975 
6415 
6777 
7399 
7964 
8268 
8995 


7605 
6028 
8877 
6394 
7340 


8342 
8344 
8346 
8324 
8359 
8344 


7155 
6177 
6044 
6403 


8054 
8058 
8063 
8965 
8076 
8075 
8741 
6064 
6553 


8782 
8772 


8926 


6645 
6698 


6978 
6427 
6847 
7529 
7978 
Ba7y 
9116 


6202 
8891 
6504 


8350 


7346 
7774 
6043 
8445 


8783 


8928 


6649 


6126 
6444 
6947 
7544 
8022 
8277 


6204 
9034 
6534 


7905 
7779 


6945 
6425 


8934 


6142 
6465 
6949 
7548 
8028 
8404 


6206 


8249 
8157 
0049 
6443 


8938 


6475 
6471 
6964 
7597 
8126 
8424 


6208 


8275 
8162 
60514 
6598 


8943 


6482 
6488 
7007 
7633 
8128 
3456 


6210 


6167 
8768 


6484 
6510 
7456 
7745 
8150 
8768 


6224 


7349 
6775 


6493 
6521 
7320 
7770 
8155 
8779 


7573 


7586 
8255 


6309 
6525 
7327 
7776 
8459 
8784 


8403 


6328 
6634 
7329 
77892 
8164 
8834 


8774 


6333 
6648 
7334 
7784 
8467 
8860 


8777 


6337 
6746 
7333 
7825 
8469 
8867 


PAGE 


6344 
6750 
7367 
7897 
8254 
8895 
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6397 
6758 
7375 
7854 
8256 
8983 
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OCTAL SYMbOL REFERENCES 3y ALTER NO, 
17245 3 MMi 5968 5793 5968 
20066 3 MNA 6375 6$/5 6909 7159 7258 7464 8325 8328 8397 8757 
17101 3 MOD 5651 58651 6229 6317 
20456 3° MRI 6602 6602 6607 
20444 3 MRZ2 6609 6605 6605 
20459 3 MRX 6642 6589 6612 
22103) 3 MTL 7406 6535 6469 6525 6945 7406 7631 7823 98360 
20204 3 MVA 6455 6y55 6453 6615 6904 6911 7142 7208 7314 7372 7438 7999 826; 8375 8443 8535 
8761 
24536 3. NFF 8747 8545 8612 8642 8656 86614 8747 
24060 3 NIL 8429 5785 8429 
11000 3 NOP 5885 5883 
17424 863 «NXT 6080 $982 6062 6080 6115 
24555 3 OFF 8746 8547 8600 8641 8655 8663 8746 
17235 3 OPE 5976 5789 5976 
17433 3 OPT 6087 6068 6069 6087 
17234 3 OPX 5975 5972 5975 
769 3 OTP 59144 5914 6067 
17224 «63 PLA 5951 5954 5955 
172500 3s PLS 5955 5955 5963 
17254 3 PL4 5959 5956 5959 
17241 3 FLS 5964 5953 5964 
23663 3 POP 8288 47328 7615 80902 8084 8232 8288 
736000 3 OLS 5907 5907 7395 
17244 3. «REF 5967 5793 5967 
17046 893 REG 5832 5832 6165 6172 6213 6245 6225 6229 6237 6249 6277 6284 6358 6602 6604 
755000 3 STA 5895 5877 5895 6479 6472 6526 6757 7621 
756000 3 STU 5896 5878 5896 6049 6042 6044 6048 6950 6169 7594 8337 8357 
17147 3 STR 5875 58673 6267 6268 6606 6665 : 
740000 3 SYX 5885 5873 5874 5875 5876 5885 8744 
450000 3. <StzZ 5894 §694 7006 7972 8423 
24231 3 Sub 8519 5789 8519 
440000 3 SXk 5888 S888 6349 8748 
25167 3 SYM 8999 688679 8886 8999 
234000 3 SZN 5906 5906 7374 
22045 3 TFL 7377 72373 «7377 
22072 3 Tre 7397 ¥$76 7397 
22070 863) «(TFS 7395 7$82 7387 7395 
22075 3 TF4 7400 7594 7409 
22076 3 TFX 7401 7569 7404 
22122 3 Tht 7424 7417 7423 
22123 3 The 7422 7429 7422 
22124 3 TLS 7425 2412 7423 
22125 3 TL4 7424 %413 7424 
22126 3. LX 7425 7411 7425 
601000 3 NZ 5909 §909 8329 
710000 3. TRA 5905 5905 6969 7366 7547 
600000 3 TZE 5908 §908 7398 7859 8348 
24152 3 UNO 8472 8465 8472 8475 
24153) 3 UND 84735 8440 8473 


01557 OL 
OcTAL 


24194 
24195 
24150 
24575 
24537 
17142 
21072 
21076 
21465 
21506 
21533 
21026 
21541 
21566 
21523 
21584 
“21535 
21516 
21537 
21520 
21584 
- 24522 
21524 
21563 
21504 
21146 
21242 
21235 
21296 
21426 
21452 
21454 
21094 
21060 
21560 
22692 
226744 
22765 
23065 
23190 
23102 
23193 
25104 
23106 
23107 
23140 
235142 
235143 
23114 
23073 


0526072 
SYMBOL 


UN2 
UNT 
UNX 
UPB 


AAAGDAGAAGGAGAdGGAGAGAGAGAWNGGAGGADWGAANGAWGAGAWAGAAG AGAWiAw Ww 
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n 
zw 
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18,180 


ALGOL68 


REFERENCES 8Y ALTER NO, 


8474 
8475 
8479 
8748 
8748 
5868 
6886 
6890 
71437 
7154 
7191 
685 
7157 
7202 
7439 
7160 
7161 
7462 
71635 
7464 
7165 
7466 
7468 
7499 
7200 
6930 
6966 
6985 
7002 
7406 
7126 
7428 
6869 
6876 
7496 
7783 
7785 
7842 
7906 
7947 
7949 
7920 
7924 
7923 
7924 
7925 
7927 
7928 
7929 
7942 


8461 
8466 
84354 
3789 
8549 
54859 
6667 
6687 
6689 
71445 
6663 
5765 
6885 
2440 
6899 
6914 
6921 
6904 
6927 
A895 
6944 
6937 
6649 
6989 
4999 
4950 
6966 
6985 
2002 
41406 
3409 
7428 
6869 
6875 
6963 
4774 
7758 
4842 
#849 
7752 
7736 
7764 
7739 
7741 
7788 
7743 
7795 
7799 
7605 
7606 


8474 
B475 
8479 
8748 
8559 
5860 
6886 
6890 
7137 
7154 
6928 
6850 
7136 
7444 
7459 
7160 
7464 
7162 
7463 
7164 
7465 
7166 
6854 
7027 
7030 
6955 
6977 
6996 
7009 
7125 
7126 


6884 
6876 
6976 
7783 
7785 
7846 
7906 
7847 
7744 
79209 
7921 
7783 
7924 
7925 
7927 
7928 
7929 
7826 


8561 
5861 


7036 
7435 


7454 
7167 


6906 
7063 
7964 


6982 


7876 
7949 
7922 


79235 
7926 


7930 


7912 


8597 
5868 


7957 


7157 
7202 


6948 
7082 
7092 


6995 


7947 


8599 


7429 


7468 
7499 
7290 


7004 


8748 


7445 


7008 


7149 


71405 


74941 


7108 


7427 


7496 
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OCcTaL SYMEOL REFERENCES 3Y ALTER NO, 

24542 3 BlLws 8721 8256 8573 857/ 8622 8647 R724 

22476 3 BND1 7659 7647 7659 — 

22511 3 BNOT 7670 7657 76/9 

22596 3 BNDX 7667 7641 7665 7667 

22366 3 BOOL 7587 7584 7587 

23075 3 BPOS 7944 7699 7674 7677 7704 7714 7748 %7725 %7797 +7873 %7878 7884 7914 

24410 3 BUL0 8631 8628 8634 

24414 3 BU14 8635 8632 8635 

24416 3 BU12 8637 8634 8637 

244350 3 BU13 8647 8649 98647 

24434 3 BUi4 8651 86048 8654 

24443 3 BUYS 8658 8646 8658 

24445 3 BUL6 8660 86045 8657 8660 

24447 3 BUa7 8662 8652 8662 

24452 3 BUys 8665 8564 8665 8669 

24461 3 BLi9 8672 8672 8674 

24503 3 Burt 8690 8542 8699 

24543 3 BUPE 8722 8557 8584 8627 8722 

24273 3 BUSI 8554 8554 8664 

24304 3 BUS2 8565 8563 8595 

24323 3 BUSS 8570 8566 8567 8570 

24320 3 BUS4 8575 8571 98575 

24384 3 BUSS 8579 8576 8579 

24330 3 BUS6 8583 8580 8583 

24334 3 BUS7 8587 8574 8578 8582 8586 8587 

24340 0 ©=6.3 «BUS8 8591 8569 8594 

24404 3 BUS9 8627 8623 8627 

24534 3 BUSsC 8745 86540 8715 

24541 3 BUSE 8720 8555 8568 8639 8729 

24549) 0©=©6.3: BUSF 8749 8554 8572 8651 8719 

24476 3 BUS] 8685 8537 8685 8694 

244975 3 BUSX 8684 8531 8684 

21743 3 CASE 7341 5782 7314 

24057, 3 CAST 8442 8398 8407 8412 

24036 3 CASX 8443 8394 8414 

17183 = =93 CHAN 58535 5853 6227 6275 6282 

17672 3 Chis 6250 6248 6250 

17672 863 Chix 62534 $6246 6254 

17700 0 =63 Ch34 6257 6254 6257 

17705 3 CL32 6262 6256 6258 6262 

17706 3 CL3X 6263 6252 6263 

416000 3 CMPQ 590u 5900 7326 

100000 3 CMPX 5899 5899 

24007 3 CONE 8372 5796 8372 

23762 3 CONF 8351 5782 8354 

17707 3 CREG 6264 6249 6255 6264 

24674 3 DBSO 8845 8793 8813 8816 

24677 3 DBST 88146 8794 8816 
5 3 DBTL 8611 8811 8814 8821 8826 
6 3 DbT2 8842 8412 48815 8825 8430 


01557 01 
OCTAk 


24643 
21007 


223796 
22337 
223460 
22364 
22395 
24100 
22167 
22173 
22204 
22240 
22241 
22216 
22220 
22240 
22253 
433000 
457000 
24136 
23645 
24545 
624000 
23607 
23630 
23612 
23606 
23507 
25633 
23404 
23493 
23460 
23463 
23474 
23443 
21742 
24720 
24627 
470000 
17507 


17506 
17505 
17620 
22446 
22447 
22450 
224391 


05"26-72 
SYMBOL 


pBUS 
DELV 


A AW 


DENY 
DEN2 
DENS 
DENT 
DENX 
DEPR 
DERO 
DER1 
pDER2 
DERS 
DER4 
DERS 
DER6 
DERM 
DERX 
DFiO 
DFST 
DISP 
DLEN 
DSys 
EAX4 
ENTO 
ENT4 
ENYTT 
ENYX 
EPDE 
EPDN 
EPDV 
EPv4 
EPV2 
EPyS 
EPy4 
EPY5 
ETCX 
ETYP 
FLEX 
FSTR 
GADL 


GAGAGAAGAGAANAAWAANAAAAAGdAAAGGAGA GW GGG AWG AWA GW GW 


GADT 
GADX 
GEAQ 
GENO 
GENL 
GEN2 
GENT 


AGAAWNW WW 


18,140 


ALGOL68 


REFEKENCES 3Y ALTER NO, 


8786 
6835 


7579 
758 
7581 
7582 
7578 
8430 
7458 
7462 
74734 
7479 
7476 
7484 
7483 
7499 
7494 
59035 
5904 
8476 
8274 
8724 
5887 
B244 
8245 
8247 
8245 
8180 
8248 
8110 
8152 
8157 
8160 
8166 
8168 
7340 
8833 
8774 
5902 
6137 


6136 
6139 
6209 
7635 
7636 
7637 
7636 


5794 
5786 
8289 
7579 
7561 
7571 
7576 
7953 
5795 
7437 
7460 
7463 
7472 
7474 
7477 
7489 
7435 
7426 
5903 
5884 
5780 
5788 
$794 
5687 
8254 
8236 
8237 
8231 
5787 
§787 
5787 
$148 
$153 
8160 
8164 
8151 
#302 
5964 
5789 
5889 
6137 
8211 
8876 
6127 
41426 
@209 
7614 
7627 
7605 
7629 


8736 
5997 
8316 
7582 
7589 
758, 
7582 
7578 
8430 
7458 
7462 
7474 
7475 
7476 
7484 
7483 
7454 
7457 
6055 
5904 
8476 
8274 
8724 
6946 
8244 
8245 
8247 
8243 
8180 
8248 
8119 
8152 
84157 
8165 
8166 
8156 
7310 
8833 
8774 
5902 
6943 
82356 
8899 
61353 
6155 


7635 
7636 
7637 
7638 


5998 
8330 


7484 
7492 


6054 


7824 
8247 


8168 


6046 
7023 
8340 


6136 


7638 


6642 
B8S51 


7499 
7494 


7107 
8364 


6835 
8388 


7443 
8382 


6859 6959 
8384 8409 
7577 7639 
8467 8553 


6954 
8410 


7658 
8645 


7334 
8457 


7766 
8650 
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7400 7666 7828 7906 7907 7908 


8665 


7799 
8654 


R733 


7897 
8659 


8734 


7822 
8736 


8769 


7904 
8799 


8¢46 
8804 


8485 
8809 


G1557 Ut 
OCTAL 


22445 
22261 
20354 
25243 
25267 
25274 
252792 
25323 
25354 
25343 
25399 
25369 
25364 
25362 
25357 
17624 
17630 
17647 
17691 
17632 
17653 
17660 
17662 
22406 
22095 
20787 
23720 
17444 
17432 
17447 
17455 
171%2 
237284 
17400 
22087 
22016 
237000 
17607 
22403 
25056 
25034 
25056 
233355 
25102 
17402 
17445 
17421 
17423 
17040 
20333 


Q5-260-72 
SYMBOL 


GENX 
GOTO 
GTMP 
GUML 
GUM2 
GUM3 
GUM4 
GUM5 
GUM6 
GUM7 
GUM8 
GUMP 
GUMS 
GUMT 
GUMX 
GXR4 
GXR2 
GXR3 
GXR4 
GXR5 
GXR6 
GXR7 
GXRX 
HGEN 
HI px 
IDFY 
1 DNX 
IFAS 
IFB4 
INAY 
INB4 
INST 
ISNT 
UMP 4 
JUMP 
L Bix 
LDAQ 
LDAT 
LGEN 
LIB4 
L382 
Les 
LL EX 
LOAD 
MACO 
MACL 
MAC2 
MACX 
MAXS 
MAXX 


AWWA AGAAAWANAAUAMAWAWAAG GA WAGGA GWAGAWWWAWANWWWWAWWWWAWW GW Ww 
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ALGOL66 


REFFRENCES BY ALTER NO, 


7634 
7518 
655/ 
9041 
9061 
9065 
9064 
9089Y 
9098 
9105 
9110 
9118 
9119 
912) 
91147 
6245 
6247 
6232 
6234 
6235 
6236 
6241 
6245 
7603 
73495 
6779 
8347 
6102 
6108 
6109 
6444 
5852 
8348 
6144 
73635 
7354 
58935 
6200 
7600 
8944 
8925 
8907 
8090 
8946 
6962 
6073 
6077 
6079 
5825 
6556 


7007 
5781 
6957 
9u4t 
959 
9068 
9062 
967 
9U98B 
9uU99 
9O9L 
9038 
939 
9972 
9054 
62135 
4214 
6250 
a226 
6228 
4256 
4238 
6224 
5782 
7340 
@779 
8506 
6u88 
6090 
ag89 
OQ94 
53852 
5783 
ag%2 
5789 
7346 
5895 
8192 
5782 
8909 
8907 
8924 
8076 
8897 
6y62 
6y73 
6u74 
664 
53825 
6953 


7634 
7518 
6583 
9409 
9uS, 
9988 
9064 
9089 
9101 
9105 
9110 
9099 
9040 
9074 
9117 
6219 
6217 
6252 
62354 
6235 
6242 
6244 
6243 
7603 
7345 
7507 
8317 
6192 
6408 
6105 
61i4 
8222 
8318 
6104 
7353 
7354 
6053 
6200 
7609 
8914 
8925 
8927 
809g 
8946 
6076 
6149 
6077 
6079 
6554 
6556 


7309 


9095 


9112 
9092 
9107 
9077 


7549 


6327 
6407 


6057 


6408 
6122 


6093 
6572 


7489 


9104 


9118 
9114 
9079 


6110 


6959 


6106 
61425 


6574 


5683 


9119 
9097 


$145 


6409 


7945 


9098 


644 


6172 


8037 


9100 


116 


8059 


9102 


8077 


9420 


8987 


8894 
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01557 O1 
OcTal 


20377 


20147 
20192 
20106 
20127 
20141 
20135 
20166 
20175 
20202 
202903 
17534 
25150 
20415 
23526 
22197 
20232 
20221 
20281 
202355 
20254 
20237 
20265 
20300 
203247 
20387 
20330 
20347 
20336 
20704 
17236 
17303 
173286 
17343 
17354 
17345 
17395 
17344 
17441 
174414 
20032 
23664 
23673 
21035 
17246 
23632 
242494 
23656 


05"26=472 
SYMBOL 


3 MBLK. 


MNAL 
MNA2 
MNAS 
MNA4 
MNAD 
MNA6 
MNA7 
MNA8 
MNAQ 
MNAX 
MOVE 
MOVT 
MREF 
MSCW 
MTLX 
MVAL 
MVA2 
MVAS 
MVA4 
MVAD 
MVA6 
MVA7 
MVA8 
MVA9 
MVAP 
MVAR 
MVAT 
MV AX 
NLOC 
OPED 
OPEL 
OPE2 
OPES 
OPEM 
OPES 
OPET 
OPEX 
OPTE 
OTaAs8 
PALL 
POPY 
POPX 
PRIM 
PROC 
PUSH 
RBYS 
RET4 
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6576 


6409 
658/ 
6591 
6408 
6448 
6439 
6439 
6446 
6451 
6452 
6155 
8968 
6585 
8187 
7440 
6459 
6466 
6474 
6478 
6490 
6496 
6502 
6545 
6528 
6544 
6537 
6552 
6545 
6765 
5977 
5998 
6047 
6030 
6039 
6032 
604) 
6034 
6094 
6095 
63635 
8289 
8296 
6844 
5969 
8279 
8530 
8267 


6008 
7599 
8555 
6594 
4580 
6588 
6401 
6409 
6439 
64354 
6399 
6386 
6375 
6155 
8847 
5796 
5784 
7406 
6456 
6466 
6460 
6475 
A484 
4479 
4497 
6503 
4544 
4504 
6473 
6552 
6453 
6432 
5977 


5992. 


6014 
4016 
5989 
5965 
6020 
5977 
6068 
40790 
6563 
8259 
8288 
5793 
5795 
6759 
5790 
8262 


ALGOL68 
REFERENCES 3Y ALTER NU, 


6576 
7609 
8415 
6400 
6382 
6394 
6408 
6418 
6424 
6439 
6407 
639Q 
6450 
6359 
8857 
6585 
5974 
7440 
6459 
6489 
6474 
6478 
6490 
6496 
6502 
6513 
6528 
6512 
6527 


6543 
6517 
6846 
5998 
6017 
6030 
5968 
5994 
6023 
6034 
6094 
6074 
6915 
8293 
8296 
6844 
5969 
89074 
8539 
8267 


6567 
7647 
8459 


6387 


6430 


6447 
6453, 


6624 
8966 


7794 


6536 
6537 


6550 
6532 


5999 
6032 
6040 


6072 
7347 


8279 


6635 
7649 
8500 


6429 
6973 


8487 


6544 


6765 


6039 
7563 


6095 
7364 


6894 
7732 
8726 


6438 


6992 


8434 


7564 


7549 


6947 
78n4 
8730 


6446 


7148 


7642 


6923 
7834 
8732 


7220 


6967 
7836 


7453 


6986 
7839 


8948 


7o03 7044 
7966 7986 


8108 8265 


7047 
&Q09 


8408 


7342 
8074 


8765 
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23649 
23621 
21674 
21704 
21621 
21633 
21643 
21642 
24060 
21705 
757000 
17606 
17440 
17160 
20677 
24243 
25176 
25204 
25234 
25237 
25224 
252a3 
25286 
25282 
25239 
25232 
22097 
22100 
22047 
22392 
24125 
24153 
24140 
24134 
24233 
20730 
24294 
17144 
17247 
17430 
47485 
24123 
21185 
24087 
21040 
215245 
21546 
21530 
21552 
21533 


05"26-72 
SYMBOL 


RET2 
RETN 
RSL 
RSLX 
SELL 
SEL2 
SELT 
SELX 
SKIP 
SLCT 
STAQ 
STaT 
STOP 
STRE 
STYE 
SUBX 
SYM4 
SYM2 
SYm3 
SYm4 
SYM? 
SYmP 
SYMT 
SYmX 
TALL 
TAL2 
TFY4 
TFle2 
TRAD 
TRUE 
UNNG 
UNN2 
UNNS 
UNNT 
VLWB 
vOyD 
vUPB 
XAQL 
XFER 
3AADDR 
JAFLAG 
3ASG22 
3ASG23 
SASGNE 
SASGNX 
3AST10 
SASI41 
3ASI42 
3AS120 
3AS}24 


GAAAaAaaQ qaqa aaG Qa WAGAWWAGGGa GWG WWWAWWWWWWW Ww 
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REFERENCES 3Y¥ ALTFR NU, 


8269 
8254 
7272 
7280 
7229 
7239 
7247 
7246 
443 
7284 
5897 
6199 
6095 
5882 
6763 
8529 
9006 
9009 
9020 
9023 
90295 
9027 
9028 
9026 
9030 
9032 
7402 
74035 
7355 
7585 
8454 
8457 
8462 
BA7y 
8505 
6804 
8506 
587) 
5970 
6084 
6084 
6944 
6945 
6854 
686) 
7469 
7470 
71472 
71474 
7475 


B266 
5787 
7261 
7248 
7215 
7e12 
7216 
7203 
5783 
7207 
5879 
6174 
693 
5882 
6676 
8519 
9006 
9005 
9020 
9021 
9022 
8873 
8875 
8999 
9012 
9016 
7384 
7583 
6959 
5784 
8444 
8450 
8442 
8454 
5788 
5782 
5788 
5866 
5795 
5995 
5996 
4908 
6910 
5785 
6851 
7469 
7045 
7021 
7077 
7090 


3269. 


3254 
7272 
7274 
7229 
7239 
7217 
7228 
8413 
7297 
5897 
61499 


6268 
6730 
6529 
9008 
9909 
99024 
9023 
9025 
8888 
8889 
9026 
9014 
9923 
7402 
7403 
7355 
7583 
8454 
8457 
8469 
8455 
8505 
6804 
8506 
5867 
5970 
6984 
6984 
6914 
6913 
6854 
6869 
7173 
7170 
7172 
7100 
7114 


728y 


7247 
7238 
8429 
7261 
6052 


6606 
6768 


9002 
9028 


9020 
9032 


7365 


8424 
6836 
5870 


6446 


6102 


8307 


7418 
7475 


7246 


6056 


6665 


9018 


9039 


739Q 


6105 


7123 


6058 


9019 


7397 


7174 


9027 


7546 


7190 


9028 


7763 


9034 


7787 


7858 8484 
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21554 
21535 
21556 
21537 
21540 
21541 
21542 
21543 
21544 
21545 
21546 
21597 
21530 
21554 
21583 
214584 
21592 
214537 
21565 
214541 
21562 
17434 
22730 
23094 


231282 
231243 
25184 
23125 
23126 
231236 
23137 
23120 
23105 
23141 
25135 
23127 
23121 
17486 
25233 
22507 
225%0 
24544 
22402 
22401 
22434 
235077 
245e1 
24522 
24523 


0O5"26072 
SYMBOL 


3ASJ22 
3AS]23 
3AS124 
3AS125 
3ASJ26 
3AS]27 
3AS130 
SAS] 31 
3ASI32 
3ASI33 
3ASI34 
3AS135 
SAS]36 
348137 
SASIT4 
3AS{T2 
SASITS 
3ASLBL 
3ASMLB 
3ASRX4 
BASRX2 
3BADDR 
38D115 
SBDCLR 


38D310 
38DJ11 
38D112 
380113 
38D144 
38D} 20 
SBD121 
3BDJ22 
SB8DIT4 
3BDIT2 
38D1T3 
3BDIT4 
3BDITS 
SBFLAG 
3ELNKS 
SBNDI4 
3BNDJ2 
SBNLWB 
3800LT 
3BOQ0LX 
SBOUND 
3BPOS1 
38S 10 
38yS14 
3BuUS12 
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REFERENCES 3Y ALTER NO, 


7176 
71477 
71478 
7479 
7180 
7181 
7182 
71835 
7184 
7485 
7186 
7187 
7188 
71489 
7467 
7475 
7490 
7495 
7203 
7197 
7498 
6085 
7848 
7943 


7935 
7936 
7937 
7938 
7939 
7934 
7932 
7933 
7922 
7926 
7930 
7940 
7934 
6082 
9035 
7668 
7669 
8725 
7599 
7598 
7644, 
7946 
8704 
8705 
8706 


7973 
7097 
7069 
7088 
7086 
7078 
7100 
7079 
7094 
7074 
7080 
7098 
7070 
7084 
6942 
7022 
47106 
6954 
7965 
6965 
6984 
5986 
7813 
7624 
7877 
7834 
7892 
7889 
7895 
4697 
7737 
7796 
7820 
7765 
7789 
7806 
7901 
7824 
5987 
9017 
7656 
7653 
8558 
7587 
7588 
5789 
7680 
8603 
BO14 
8606 


71476 
7112 
7178 
7113 
71414 
7119 
7104 
7120 
7115 
7185 
7121 
7116 
7186 
7122 
7167 
7173 
7123 
7033 
7102 
6968 
6987 
6985 
7818 
7643 
7883 
7859 
7936 
7937 
7938 
7909 
7934 
7932 
7933 
7922 
7926 
7939 
7940 
7934 
6982 
99053 
7668 
7669 
8585 
7596 
7598 
7644 
7684 
8704 
8705 
8706 


71477 


7179 
7180 
7181 
710% 
7185 
7184 


7186 
7487 


7489 


7190 
7059 
7201 
6975 
6994 


6121 
7664 
7909 


7935 
7949 


7939 
7934 


6108 
7670 
8631 
7599 


7714 
8708 


7124 7162 
71433 71495 
7497 
7398 


7673 7675 7698 ¥704 7705 77132 7746 
7913 


6111 


8723 


7946 


7720 


7746 


78412 
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24524 
24526 
245247 
24550 
24551 
24505 
24506 
24507 
24530 
24512 
24513 
24534 
24515 
24516 
24517 
24504 
24511 
24529 
24545 
24532 
21797 
217724 
21773 
24082 
21775 
21776 
21777 
24025 
24027 
240814 
24084 
24004 
24006 
24000 
17242 
17720 
24747 
24700 
24704 
24702 
24705 
24740 
24695 
24707 
24693 
21730 
21041 
21014 
22324 
24103 


U5#260e72 
SYMBOL 


SsuS15 
3bUS44 
3BuUSL5> 
38US16 
33US17 
SBUSIY 
S8uST1 
38uS]2 
3BUSTS 
38US]4 
38US]5 
38US]6 
SBUS]7. 
3BUS]8 
3BUS}9 
38USTO 
3BUST4 
SBUST2 
3BUSTS 
3BUST4 
SCASEL 
3CASET 
3CASEX 
3CASGN 
SCASIL 
3CAS]J2 
3CASJ3 
3CONEO 
3CONEL 
3CONET 
3CONEX 
SCONFY 
SCONFT 
3CONFX 
3CPNYR 
3CREGX 
3DBST1 
3DBUS0 
SDBUS1 
3DBUS2 
3DBUS3 
3DBUS4 
3DBUSL 
30BUST 
3DBUSX 
SDELTA 
SDELVA 
3DELVX 
3DENOQT 
3DEPRX 
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8797 
8709 
8710 
8711 
8712 
8692 
86985 
8694 
8695 
8697 
8698 
8699 
8700 
8701 
8702 
8691 
8696 
87035 
8708 
8745 
7323 
7336 
7335 
8391 
7337 
7338 
7339 
8386 
8588 
8399 
8385 
8366 
8371 
8369 
5965 
6273 
8832 
8847 
8818 
88q9 
8822 
8825 
8796 
8824 
8840 
7300 
6837 
6840 
7558 
8435 


8617 


8609 
8619 
Boll 
8621 
B625 
8601 
8608 
8543 
8605 
Bo02 
8637 
8616 
86058 
8613 
8952 
8649 
8653 
8644 
8658 
7$15 
7316 
7$11 
5782 
7528 
7330 
7$32 
8$77 
8580 
8584 
8572 
$562 
85635 
8554 
5915 
6264 
8808 
8801 
8797 
8799 
8802 
8825 
8796 
8803 
8786 
7218 
68357 
6855 
5785 
8439 


8707— 


8709 
8719 
8714 
3712 
8692 
8693 
8694 
8695 
8630 
3626 
8699 
8700 
8704 
8702 
8694 
8696 
8703 
8708 
8713 
7323 
7318 
7335 
8394 
7337 
7338 
7339 
8386 
83588 
8399 
8385 
8356 
8374 
8355 
5937 
6273 
8852 
8817 
8818 
8819 
8822 
8832 
8807 
8824 
8810 
7229 
6359 
6849 
7553 
8433 


87135 


8696 


8697 
8698 


7336 


8390 


8371, 


5944 


8824 


7239 


8703 


5965 


7262 


7272 


7287 


7294 


7300 


PAGE 


296 


v1557 O41 
OCTAl 


22187 
22234 
22256 
22257 
24171 
24174 
24202 
24242 
24241 
23691 
24563 
24565 
24569 
24137 
17230 
23572 
25545 
23620 
236347 
23506 
23476 
23477 
23504 
23500 
23504 
235505 
23503 
23502 
23475 
23247 
23292 
25244 
23264 
23263 
23233 
23262 
23260 
24723 
24744 
24745 
24736 
24757 
22365 
217581 
23363 
23356 
23400 
17541 
17514 
17516 


0526-72 
SYMBOL 


SDEREF 
3DERIT1 
3DERI2 
3LVERIT 
3DISPO 
3O{SP1 
3DISP2 
SDISPC 
3D] SPX 
SDLENX 
3DSUg0 
3DSuBT 
3DSUBX 
3EDISP 
ZEMPTY 
3ENTER 
ZEPDEX 
SEPDNO 
3EPDNX 
3EPDYT 
3EPDVO 
SEPDV1 
SEPDYe2 
SEPDYS 
3EPDY4 
3EPDY5 
SEPDY6 
SEPDYT 
SEPDYX 
SERNGL 
3ERNG2 
ZERNGE 
SERNGF 
3ERNGI 
ZERNGM 
ZERNGT 
ZERNGX 
SETYP4 
3ETYD2 
SETYPS 
SETYP4 
SETYP5S 
SFALSE 
3F MODE 
3FORM1 
3FORMP 
SF ORMX 
3GADLO 
SGADL1 
ZGADLT 
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7426 
7495 
7497 
7498 
8487 
8490 
8496 
8504 
8503 
8278 
8738 
8740 
8737 
8477 
5971 
8231 
8186 
8255 
8252 
8179 
8171 
8172 
8174 
8175 
8177 
8178 
8176 
81795 
8170 
8020 
8023 
7995 
8030 
8032 
8008 
8034 
8029 
8836 
885) 
8854 
8863 
8464 
7586 
7301 
8096 
8094 
8109 
6139 
6142 
6144 


9793 
744) 
7441 
7442 
8485 
9490 
8496 
8488 
8477 
8274 
8738 
8735 
8724 
§759 
5795 
5789 
8180 
$250 
$248 
8179 
8116 
8124 
6118 
8444 
8177 
8122 
8120 
8145 
8110 
9014 
8g19 
5787 
7998 
8027 
7997 
8004 
7993 
88356 
8659 
8854 
8456 
8862 
5784 
7219 
8096 
5785 
BO9L 
6139 
6140 
6158 


7426 
7495 
7497 
7498 
8487 
8493 
8498 
8492 
8503 
8278 
8749 
8740 
8737 
8477 
5974 
7810 
8186 
8253 
8252 
8184 
8125 
8127 
8174 
8173 
8179 
8178 
8168 
8475 
8479 
8020 
8923 
7993 
8000 
8052 
8008 
8912 
8029 
8852 
8844 
8865 
8863 
8864 
7586 
7298 
8098 
Bo94 
8109 
6143 
6142 
6439 


7498 


8504 


8231 


81471 
8172 


8175 
8185 


8176 


8015 


8034 


8845 


7304 


6144 


8432 


8030 


8850 
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17513 
22322 
22323 
22272 
22277 
22341 
22321 
20364 
20376 
25295 
25307 
25313 
25335 
25337 
25364 
25363 
22256 
22241 
22260 
20780 
20737 
20723 
20746 
20747 
20740 
23742 
23705 
23704 
23674 
22034 
17042 
170944 
17044 
204h4 
17541 
17532 
17597 
17563 
17537 
17604 
17605 
47602 
17600 
251357 
25144 
25145 
25106 
25165 
20420 
23530 


O5m260e/2 
SYMBOL 


SGADLX 
3GOTI1 
3G0T]2 
3GOTO1L 
3G0TO2 
3GOTOS 
3G0TOX 
3GTMPL 
3GTMPX 
3GuMi4 
SGUM42 
3GUM45 
3GUM44 
3GUM48 
SGUMT4 
SGUMFL 
3IDENG6 
SIDENT 
3IDENX 
SIDFY4 
3IDFye2 
SIDFYB 
SIDFyc 
SIDF YF 
3IDF YX 
SIDNT4 
SIDNTE 
ZIDNTX 
SIDNTY 
3YUMPX 
3LL INK 
3LSTMK 
3MAXST 
SMBLKX 
3MOVB4 
SMOVE4 
3MOVE2 
3MOVES 


_ gMOvesB 


3MOVED 
3MOVEF 
3MOVET 
3MOVEX 
SMOVTL 
3MOVT2 
SMOVTS 
3MOVTT 
3MOVIX 
3MREFX 
3MSCWO 
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6141 
7551, 
7552 
7527 
7532 
7942 
7550 
6565 
6575 
9951 
9077 
9981 
9083 
9085 
9122 
9121 
7549 
7500 
7517 
6788 
6795 
6788 
6892 
6803 
6796 
8341 
8306 
83505 
8297 
7368 
5827 
5809 
5896 
6584 
6468 
61472 
6177. 
6181 
61495 
61497 
6198 
6496 
6194 
8975 
898y 
8981 
8998 
8997 
6588 
8243 


6157 
7524 
7549 
727 
7924 
7522 
7518 
6559 
6557 
9u49 
9077 
978 
9483 
9069 
9076 
9075 
7513 
5785 
7500 
6788 
6790 
6783 
6783 
6784 
6779 
8511 
5784 
8297 
5784 
7563 
§827 
5829 
$826 
6576 
6154 
6166 
6173 
6171 
£145 
6163 
6164 
6446 
6145 
8975 
8977 
B979 
8973 
8968 
4585 
8208 


6144 


7557 


7559 
A554 
7527 
75492 
7550 
6565 
6573 
9054 
9082 
9034 
9124 
9y85 
9984 
9121 
7515 
5973 
7517 
6794 
6795 
7762 
6794 
6797 
6796 
8313 
8306 
8305 
8297 
7368 
6786 
6677 
8978 
6584 
6163 
6172 
6177 
6484 


- 8449 


6185 
6176 
6454 
6149 
8987 
8989 
8984 
8974 
8997 
65886 
8213 


7532 


6575 


9122 


7500 
6801 
6802 


6805 
7761 


7942 
6744 
8425 


6189 
6197 
6490 


6152 
614595 


8961 


8230 


8298 


7519 
7524 


7958 
7959 
8137 


6198 
6156 
6158 


8988 


7542 


7975 


8023 
8276 


6457 
6164 


8998 


7520 


8007 
8204 


6468 
6194 


7526 


8934 
8289 


6179 
6494 


7530 


80541 
8286 


6178 


7767 


8954 
8292 


6189 


7773 


8967 
8295 


6184 


7777 


8979 


6483 


8989 


6486 


6487 
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2355394 
25532 
255395 
25561 
23565 
23566 
235567 
23579 
25571 
235547 
20344 
20355 
20707 
20740 


25100 
17352 
17353 
174014 
17444 
20065 
17045 


17247 
17206 
17193 
17190 
21024 
21025 
17730 
23662 
23643 
23644 
25642 
22433 
22452 
21644 
21567 
24071 
24097 
21715 
21725 
21727 
23175 
23210 
231350 
25213 
23212 
17243 
20531 


05¥26072 
SYMBOL 


SMSCWA 
3MSCWe 
3MSCW4 
3MSCWS 
3MSCW6 
3MSCw7 
3MSCw8 
3MSCW9 
3MSCwT 
3MSCWX 
3MVAPL 
SMVARL 
3NLOCL 
3NLOCX 


30ByCT 
3OPES4 
ZOPESX 
3OPETE 
3OTABE 
3PALLX 
3PARAM 


3PASZE 
3PAS3L 
3PAS3R 
3PASS3 
SPRIM4 
3PRIMX 
3PURGE 
3PUSHX 
SRETNO 
3RETNY 
3RETNX 
3RHGEN 
3RLGEN 
SRSLCT 
3SELCT 
3SKIPL 
35K] PX 
SSLCTI 
3SLCT2 
3SL CTX 
SSRNGIL 
3SRNG2 
3SRNGE 
3SRNGI 
3SRNGX 
3STRCT 
3STYPL 
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8214 
824 
8248 
8222 
8226 
8227 
8228 
8229 
B230 
B242 
6549 
6542 
6771 
6772 


8949 
6037 
6038 
6060 
6101 


6374 
5830 


5946 
5937 
5926 
5945 
6848 
6849 
6281 
8287 
8272 
82735 
8272 
7640 
7639 
7248 
7208 
B422 
8426 
7289 
7297 
7299 
7978 
7989 
7941 
7992 
7994 
5966 
6662 


8192 
8195 
8193 
8199 
B200 
9196 
8201 
9197 
8210 
8487 
6477 
6458 
6771 
6765 


8899 
6034 
6032 
6021 
6071 
6563 
5839 
4545 
8259 
5940 
5937 
5926 
5765 
6845 
4641 
6231 
8279 
8257 
8269 
8254 
7604 
76014 
5783 
5783 
8422 
8415 
7289 
7290 
7281 
5956 
7983 
5787 
7963 
5935 
5793 
6662 


8214 
8215 
$218 
8222 
8226 
8227 
8228 
8229 
8259 
8212 
6495 
6542 
6778 
6772 


8919 
6037 
6056 
6060 
6101 
6374 
5944 
1554 
8359 
5946 
5945 
5929 
5915 
6848 
6849 
6284 
8287 
8272 
8273 
8274 
7640 
7639 
7248 
7203 
8427 
8424 
7296 
7297 
7299 
7978 
7989 
7944 
79992 
7944 
5966 
6666 


6549 


8945 


6038 
7564 


5976 
7558 
8414 


6365 


8428 


7990 


7978 


6789 


7616 
8458 


6367 


7994 


6842 
7672 
8478 


6369 


6953 
7756 
8499 


6371 


7434 
7786 
8515 


6373 


7288 
7809 
8679 


6662 


7305 
7853 
8743 


7323 
7864 
8750 


7341 
7904 
8789 


7348 
7974 
8787 
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299 


7542 
8141 


01557 ut 
OcTaL 


20551 
20623 
20634 
20567 
20571 
20572 
20526 
20676 
20675 
20700 
20674 
25000 
25004 
25035 
25227 
24764 
17482 
25281 
17427 
22026 
22364 
24104 
24237 
24533 
242145 
20766 
20797 
21006 
21005 
24236 
17663 
17644 
6441 
i 


1675 
11305 
aye 

4744 

6240 


O5"26e72 


SYmMsOL 


3STYP2 
3STYPS 
3STYP4 
3STYPS 
3STYP6 
3STYP7 
3STYPE 
3STYPP 
3STYPR 
3STYPT 
3STYPX 
SSYMD4 
3SYMD2 
3SYMDS 
3SYMDT 
3SYMRY 
STADDR 
STAL2] 
3TFLAG 
3TRADX 
3TRUET 
SUNTON 
3VEPTY 
3VMARK 
SVNLWB 
SVOTD4 
3VO}D2 
3VOJDI 
3V0JDX 
3VSBCT 
3XREGI 
3XREGM 


A 
A 


>>? > Pr 


) 
DF 


s¢ 


18,100 


ALGOL68 


RFRERENCES 3Y ALTER NO, 


6676 
6719 
6726 
6692 
6694 
6695 
6659 
6762 
6761 
6764 
6760 
8884 
8882 
8894 
9029 
8869 
6086 
9031 
6088 
7362 
7585 
8434 
8509 
8744 
8507 
68418 
6827 
6834 
6835 
8508 
6244 
6245 
4747 

298 


222 
3098 
3094 
11138 
1662 


297 


6078 
6099 
6/13 
6639 
6691 
6681 
6659 
6672 
666) 
6749 
6659 
84669 
8882 
8885 
8B81 
8869 
6007 
915 
6u15 
7$55 
7583 
5795 
5788 
$520 
5788 
6815 
6822 
6815 
4604 
5788 
6225 
4221 
1661 

298 
4522 

222 
2059 
2662 
11135 
1654 
4995 
2190 
2451 
$609 
4y58 
41406 
4574 
4689 

297 
2646 


6731. 


6719 
6728 
6692 
6694 
6695 


6894 


6733 
6664 
0747 
6769 
8884 
8893 
BB94 
8882 
8889 
6086 
90354 
6083 
7362 
7585 
84354 
8509 
8525 
8507 
6818 
6827 
6816 
6833 
8508 
6244 
6245 
1662 
1130 
4744 
1019 
2858 
2829 
1257 
1662 
1999 
2212 
2455 
3616 
4963 
4108 
4377 
4694 
1118 
3162 


7640 
6755 
6663 
6764 


8892 


6124 


8526 


6834 


6396 
63598 
1664 
1133 
4750 
1050 
2845 
2834 


1667 
2002 
2247 
2889 
3652 
4067 
4411 
4400 
4705 
1126 
3189 


7967 
6/62 
6664 


9029 


8532 


6404 
6406 
4668 
1165 
4832 
1058 
2882 
3094 


1672 
2004 
2220 
3427 
3814 
4070 
4133 
4430 
4711 
1129 
3558 


8209 


6764 


8548 


6414 
6446 
1674 
1168 


1095 
2884 


1678 
2009 
2266 
3136 
3847 
4974 
4436 
4500 
4746 
41479 
3409 


8666 


6426 
6428 
1677 
1173 


1098 
3093 


4736 
2045 
2276 
31464 
3824 
4979 
4202 
45<¢6 
4721 
1180 
3443 


8670 


6442 
6437 
4747 
£176 


1099 


¢863 
2017 
9289 
3369 
3899 
4982 
4213 
4552 
4726 
4184 
3448 


8676 


6509 
6444 


1261 


1100 


1927 
2024 
2294 
3441 
3925 
4985 
4218 
4557 
4741 
1276 
3473 


8744 


6767 
6445 


1466 


1101 


1977 
2926 
2299 
3431 
3949 
4988 
4224 
4560 
4762 
1471 
3478 


6773 
6541 


2359 


1652 


1989 
28350 
2342 
34574 
3964 
4094 
4227 
4566 


1685 
4967 


6535 
2832 


2854 


1982 
2040 
2354 
3484 
3993 
4093 
4264 
4619 


1852 
9014 


6774 


2610 


1987 
2084 
2396 
3497 
4032 
4096 
4270 
4661 


4864 
9074 


2809 


1989 
2106 
2423 
3524 
4040 
4099 
4289 
4668 


2058 


PAGE 


3342 


199% 
2419 
2428 
3597 
4049 
4201 
4327 
4673 


2092 


300 


3461 


1992 
2173 
2433 
3578 
4053 
4103 
4336 
4678 


2554 


01557 O41 
OcTak 


6479 
10210 
10243 
10235 
10405 
10224 

6464 
10301 

6226 


1677 
6274 
6305 
6332 
63283 
63353 
6344 
6334 
6361 
62351 
6462 
10306 
1674 
1676 
10530 
4666 
4764 
5023 
5030 
5054 
5044 
5143 
5146 
5147 
5033 
5057 
5194 
5001 
4776 
4777 
10145 
10162 
10171 
10200 


10205 
10439 
11081 
11074 
10676 
10706 
11122 


05"26072 


SYMBOL 


BCU 
Cyd 
CL2 
CL3 
CL4 
CLS 
DEL 
EmMy 
END 


EQF 
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ALGOL68 


REFERENCES 3Y ALTER NO, 


1699 
2532 
2535 
2537 
2645 
2544 
1885 
2579 
1676 


224 
1705 
1708 
1711 
1714 
1747 
1720 


1699 
2532 
2535 
2537 
2537 
2541 
4865 
2554 
4676 


224 
$705 
1708 
1741 
1714 
1717 
4720 
1723 
1726 
1679 
41684 
2962 

221 

223 
2677 
1044 
4102 
4156 
4157 
1119 
$150 
4151 
4217 
1158 
$140 
$164 
1145 
4118 
1115 
1115 
2497 
2510 
2506 
2524 


2504 
2665 
2900 
2908 
2834 
2056 
2904 


2513 
2647 
2547 
2558 
2645 
2544 
1879 
2578 
1737 


1922 


4727 
2582 
1654 
1029 
2689 
1115 
1105 
1142 
11414 
1145 
1219 
1216 
1219 
1218 
1160 
1204 
1212 
1221 
1158 
1116 
2516 
2525 
2509 
2528 


2529 
2674 
2914 
2910 
2846 
2839 
2978 


255y 


1885 
2579 


10356 


4943 
2853 
2742 


1144 


1220 


1222 


1206 


2547 


2747 


2957 


1885 


1659 


2727 


2720 


2850 


2745 


2750 


PAGE 
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140 
6437 
11252 
11264 
10745 
10730 
10637 
6517 
6511 
6510 
144 
10250 
10226 
1526 
10674 
2 
6245 
6255 
6236 
6241 
62353 
10544 
6223 
6467 
1700 
10313 
10343 
10353 
10355 
10365 
10374 
10404 
10354 
69032 
6457 
10787 
10766 
10744 
6436 
10247 
10515 
4662 
4644 
1733 
4734 
4733 
4674 
4743 
4757 
4672 


U5"26=72 
SYMbOL 


Tes 
TLU 
UN4 
UN2 
UP1 
UP2 
XFR 

ascZ 

BCpT 

BCDX 

BLEN 

CLER 

CLOK 

CRLF 

DONE 

ELEN 

ERR1 

ERR2 

ERRC 

ERRF 

ERRS 

EX]T 

FAL 

GLLX 

1BYF 

TDNY 

1DN2 

IDNS 

JDN4 

1DN5 

1DN6 
1DN7 

TDNG 

INYT 

LAST 

LBL4 

LBL2 

LBL3 

MATT 

MTAB 

MULT 

NCH4 

NCHX 

NICH 

NICR 

NJLN 

NJLP 

NTQU 

N}S2 

NISK 


> > > 
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ALGIL 458 


REFERENCES 3¥ ALTER NU, 


6S 
1865 
3066 
3078 
2874 
2875 
2800 
1910 
1907 
1906 
245 
2548 
2546 
248 
2829 
11224 
1691 
1699 
1700 
1687 
1681 
2741 
1678 
1889 
225 
2587 
2641 
2649 
2624 
2629 
2636 
264) 
2601 
1646 
4881 
2856 
2865 
2866 
1864 
25635 
2748 
1049 
1025 
229 
1078 
1080 
1050 
1088 
1100 
1048 


46$ 
1665 
5yr6 
3071 
2870 
2078 
2649 
1904 
1895 
13890 
215 
2548 
2946 
218 
2742 
1120 
1694 
1692 
1699 
46087 
1670 
2066 
1075 
1884 
225 
2587 
2611 


156 
26114 
$079 
5073 
2875 
2889 
2652 
1910 
1907 
1906 

217 
2554 
2567 

221 
2792 
1169 
1698 
1699 
1697 
4622 
1684 
2744 
17358 
1889 

226 
2618 
26355 
2619 
2609 
2629 
26356 
2644 
2604 
1646 
1884 
2868 


2862 
1859 
2563 
2709 
10409 
1023 
1050 
1078 

257 
1062 

236 
1100 

244 


4/9 
edie 


2800 


220 
2566 
257u 

222 
2829 
1229 


1700 
4969 


2744 


2612 


2536 
2866 
1856 
2741 


1026 
1074 


1080 
1065 
288 


276 


5544 


223 
2569 
2640) 


1263 


2647 


2557 


1864 


2718 


1103 


1071 


1088 
1046 


5462 


1024 
25714 


1480 


2621 


2585 


3469 


1073 


4594 


4836 


2573 2574 


2602 


3474 


1083 


2626 


3479 


1987 


2575 


2633 


3182 


1089 


2634 


3366 


1093 


2638 


3369 


2643 


3445 


3420 


3433 


PAGE 


302 


U1557 UL 
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1764 
2022 
2052 
2044 
2052 
2064 
1762 
°1756 
2072 
5124 
5150 
5133 
516% 
10251 
5464 
11077 
10254 
10534 
10562 
11024 
110383 
11056 
11043 
11061 
11064 
11073 
11072 
11025 
3 
10773 
5 

144 
10510 
11141 
11204 
11247 
6516 
10305 
6449 
6445 
6454 
11304 
35234 


U5=26672 
SYMSOL 


NIT. 
NIT? 
NITS 
NIT4 
NITS 
NIY6 
NIT7 
N1T8 
NIT9 
NS10 
NS41 
NSO1e2 
NSJX 
OTAB 
PEEK 
PROC 
PTA’ 
PUSH 
RCHK 
REF1 
REF2 
REFS 
REF 4 
REFS 
REFO 
REFM 
REFT 
ROW) 
SETC 
SETM 
SETN 
SETW 
SNGL 
STR1 
STR2 
STRS 
SUpC 
TEMP 
TLUO 
TLUd 
TLU2 
UNTIL 
WORK 
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ALGIL458 


RFFERENCeES 3Y ALTER NO, 


236 
2585 
25/ 
262 
265 
270 
237 
23> 
275 
1201 
1205 
1208 
1232 
2565 
1235 
296 
2568 
2735 
2755 
2947 
2924 
2927 
2932 
2946 
2949 
2956 
2955 
2918 


2892 


2715 
29985 
3028 
3039 
1909 
2584 
1866 
1871 
1875 
3YG2 
11852 


238 
253 
257 
262 
265 
270 
237 
235 
273 

4166 

$164 

£194 

4222 

2560 

1233 

2902 

25614 

2714 

2755 

2917 

2924 

2925 

2930 

2934 

2945 

2915 

2914 

2918 


2683 


2704 
2993 
3028 
30359 
1902 
2497 
1866 
1671 
1872 
$048 
1625 
2082 
2189 
2549 
2669 
3505 
3645 
3865 


1048 
1064 
1064 
1066 
1072 
1076 
1078 
1089 
1082 
1204 
1205 
1197 
12352 
2565 
1694 
2969 
2568 
2716 
4318 
2923 
2924 
2927 
29352 
2946 
2949 
2959 
29202 
2959 


2892 


2703 
Sol4 
3038 
3044 
1909 
2508 
1874 
1880 
1875 
3092 
1629 
2102 
2201 
2354 
2663 
3507 
3648 
38890 


1070 


1206 


1854 


2729 
6556 


2956 
2926 


2995 


2705 


2581 


1635 
2115 
2210 
2598 
2665 
3310 
3656 
3887 


2031 


2734 
6626 


2958 
2929 


3968 


2713 


2724 


1994 
2117 
2223 
2402 
2669 
3529 
3662 
$888 


3097 


2733 
668y 


2933 


2726 


2005 
2129 
2246 
2424 
2736 
3531 
S684 
3962 


$154 


6821 


2936 


2040 
2136 
2247 
2431 
2751 
3547 
3762 
3969 


3483 


7436 


2940 


2015 
2145 
2251 
2443 
2753 
3564 
3774 
3999 


3335 


7494 


2955 


2018 
2150 
2263 
2472 
2979 
3597 
3775 
3994 


3367 


7848 


2957 


2022 
2160 
2273 
2586 
2997 
3602 
3779 
4004 


3434 


2924 
2164 
2283 
2601 
3037 
3624 
3784 
4006 


3452 


2028 
2166 
2292 
2649 
3039 
3623 
3786 
40140 


2041 
2472 
2298 
2621 
3040 
3629 
3789 
49029 


2078 
2174 
2300 
2629 
3489 
3634 
3792 
4033 
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2079 
21480 
2307 
2631 
3484 
3638 
3833 
4959 


303 


2081 
2182 
2337 
2657 
3493 
3640 
3864 
4061 


G1957 Li 
OcTakL 


10639 


10640 
10623 
10660 
10664 
10670 
10672 
10666 
1754 
65135 
10304 
10240 
10243 
1524 
2625 
2614 
10300 
7777397 
6257 
6267 
10596 
1794 
10279 
10240 
1559 
144 


3 
6469 


2162 
2137 
6417 
10516 
4635 


J5°26-72 


SYMbtOL 


A XFER 


XFRY 
XFR2 
XFRS 
XFR4 
XFRS5 
XFRO 
XF RX 
ABACK4 
ABCDTP 
ABLNKS 
ACLDEL 
ACLTAB 
ACPRAM 
ADDRy 
AUDR 

AEM4SC 
AERROR 
AERRS1 
AERRS2 
AFAIL 
AIDENT 
AIDREG 
AIDTaAs 
AINBYF 
AITABX 
AITACX 
ALEVEL 


ALNGCT 
ALONGT 
AMATCH 
AMULTI 
ANCHAR 
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RFFFRENCeS 3Y ALTER 


2795 


4y72 
4$O01 
4498 
4662 
4932 
5252 
5$9y 
5519 
5916 
KY97 
8042 
8497 
1257 
4158 
5259 
6459 
7644 
28601 
2612 
28615 
2016 
2606 
2803 
2609 

230 
4896 
2521 
2556 
25945 

217 

5351 

509 
239232 

214 
1654 
1687 
2746 

227 
29/7 
2972 

217 

299 

299 
1974 
$458 

507 

$05 
47359 
2719 
1019 


ALGIL 48 


4y77 
435083 
45$3 
4656 
4958 
5261 
2594 
9598 
5983 
7966 
8995 
8512 
2667 
4168 
5288 
6467 
7662 
2826 


2817 
2821 
2820 
2827 
2823 
1094 
1905 
2589 
2644 
2559 
1026 

535 

513 
2578 

295 
1701 
1703 
2754 
1046 
2553 
2639 

220 


1875 
4521 
1114 
1185 
1849 
2732 
1035 


NU, 


44.45 
4$u6 
4942 
4685 
4997 
5265 
5$9e 
5606 
6578 
7137 
8188 
8526 
267y 
4183 
5325 
6568 
7676 


2829 
282/ 


1097 
1908 


53u 
1033 
2754 
1092 
2636 


225 


1878 
4835 
1157 


1039 


4149 
4$24 
4345 
4/$5 
5099 
5267 
5$93 
5629 
6579 
7204 
8259 
8668 
2759 
4516 
5404 
6696 
7686 


1u6Q 


1063 
2644 


1024 
1882 


1163 


1040 


4197 
4$31 
4547 
4758 
5116 
5270 
5$94 
5639 
6589 
7249 
8283 
8677 
27983 
435y 
5418 
6864 
7723 


1069 


1925 


2534 


1203 


1043 


4246 
4335 
435u 
4778 
5121 
5272 
5402 
5645 
6673 
7303 
8290 
8755 
2877 
4575 
5452 
6934 
7844 


1975 


2540 


1052 


4259 
4544 
4569 
4809 
5128 
5363 
5424 
5653 
6754 
7312 
B308 


2893 
4582 
5473 
6939 
7842 


41104 


2543 


4254 
4347 
4571 
4865 
5437 
5372 
5429 
5674 
6805 
737U 
8323 


2918 
4605 
5494 
7139 
79140 


1106 


2582 


4256 
4401 
4614 
4665 
5139 
5375 
5463 
5681 
6823 
7427 
8353 
3502 
4645 
5524 


71459 
8395 


1108 


2604 


4259 
44035 
4629 
4879 
5158 
5374 
5486 
5697 
6827 
7641 
8573 


3549 
4765 
5546 
7252 
8438 


1109 


2607 


4262 
4426 
4631 
4890 
5165 
5375 
5501 
5703 
6837 
7792 
8392 


3806 
4842 
5645 
7282 
8479 


1124 


2624 


4271 
4431 
4634 
4904 
5231 
5376 
5503 
5708 
6838 
7886 
8399 


3844 
5018 
5989 
7292 
8799 


1136 


2637 


42814 
4433 
4636 
4941 
5233 
5377 
5506 
5746 
6855 
7959 
8435 


3823 
5033 
6000 
7407 
88714 


1148 


2642 


PAGF 


4292 
4488 
4644 
4946 
5247 
5379 
5510 
57419 
6895 
7968 
8489 


3998 
5181 
6018 
7430 
9044 


2811 


3n4 


4296 
4497 
4656 
4924 
5251 
5389 
5543 
5729 
6978 
7994 
R496 


4449 
5495 
6447 
7625 


3334 


01557 O41 
OCTaL 


4754 
4754 


1752 
4737 
4717 
4715 
4710 
4712 
47433 
47355 
4773 
4725 
4723 
4747 
4676 
49741 
4745 
2109 
2106 
2120 
2150 
2156 
1750 
47692 
6216 


5052 
10456 
2120 
10155 
3165 
51474 
2192 
3206 
11116 
40543 
2123 


10566 
10574 
10601 
10607 
106237 
10622 
19626 
1062a7 

104 

114 

120 


O5"26=72 
SYMBOL 


AiN]G2X 
ANI BEX 


ANICHR 
AN] COM 
ANTDCY 
AN] DEC 
AN] DEN 
AN]DGL 
ANIUIG 
AN]DOT 
ANIJEOF 
ANJEX4 
ANJEXP 
ANIFOR 
ANILPL 
ANTOPR 
ANTQY2 
ANITQ0 
ANITY4. 
ANIT42 
ANITL35 
ANITZ4 
ANITA 

ANI X] 

ANOMAT 


ANS8,4 
ANSWAP 
ANTMSK 
APASS2 
APEEKY 
APEEK2 
APEEKF 
APEEKX 
APROCT 
APUSHX 
AQEEKF 


ARCHK4L 
ARCHK2 
ARCHKS 
ARCHK4 
ARCHKS 
ARCHK6 
ARCHK7 
ARCHKX 
ASETCO 
ASETC1 
ASETC2 


18,130 


ALGOL68 


REFERENCES 3Y ALTFR NO, 


1094 
1097 


228 
1084 
10638 
1066 
1061 
1063 
1064 
1082 
t11e 
4074 
1072 
1092 
1052 
1086 
109) 

276 

279 

284 

288 

291 

226 
1108 
1668 


1159 
2687 

296 
2489 
1234 
1241 

SoU 
1251 
2974 
2740 

Sou 


2759 
2769 
2770 
2776 
2784 
2787 
2791 
2792 


263 
255 
294 
228 
245 
262 
258 
2358 
270 
259 
242 
252 
265 
259 
245 
14049 
2>1 
285 
276 
279 
284 
288 
294 
226 
246 
4668 
3544 
1156 
2683 
296 
2489 
42354 
1236 
$09 
1233 
2964 
2733 
$01 
3480 
2759 
2762 
2764 
2776 
2782 
2771, 
2788 
2755 


264 
256 
1097 
229 
277 
1068 
1066 
253 
1063 
257 
1082 
278 
266 
1072 


293 - 


1052 

279 
1099 
19084 
1086 
19088 
1099 
1092 
1045 

247 
1675 
3347 
1159 
2687 
1128 


1250 
1244 
1241 
1243 
2974 
2740 
1234 


2786 
2765 
2770 
2799 
2784 
2784 
2794 
2767 


271 
26u 


1047 
1084 


254 


26/7 


1105. 


248 
1855 
3568 


1176 


1242 
1248 


1235 


2766 


2787 


2792 


272 
261 


1095 


1064 
273 


1110 


1077 
284 


249 
1857 
3570 


1245 
1251 


1239 


19094 
268 


1064 


1112 


1079 
1086 


250 
2052 
3405 


1247 
1252 


1240 


269 


1084 


291 


2034 


3426 


1693 


1244 


274 


1085 


4103 


3098 


3428 


4858 


4246 


275 


1094 


3100 
3430 


2055 


1249 


282 


$455 
3435 


2854 


2852 


3157 
3438 


3458 


3337 


3184 
3453 


3355 


3436 


3187 
3456 


3406 


3446 


3203 
3463 


3445 


34590 


3336 
3466 


3475 


3454 


3339 


3476 


G155/7 


GCTaL 


10420 
2171 
142 
2134 
2195 
2196 
6375 
6367 
6377 
11225 
10634 
10634 
400000 
200090 
100000 


40000 
20000 
10000 
4000 
2000 
1000 
400 
17034 
17051 
17026 
16773 
16762 
16779 


vil 


J5-26e72 
SYMBOL 


ADETCS 
ASETC! 
ASETML 
ASETMS 
ASETwl 
ASTACK 


ASTART 
ASYMSC 
ATABLE 
ATEMP4 
ATEMP2 
ATEMPS 
ATRACY 
ATRACE 
ATRACT 


DOwWwowmoawvwwoaowaw 
~ 
c 


18,1600 


AuLGIL 68 


RFRFERENCES 3Y ALTER NU, 


28B2 
2881 


11855 


2657 
299 
11527 
$n2 
508 
$04 
1735 
1729 
1737 
3045 
2794 
2797 
5840 
5841 
5842 


58435 
5844 
5845 
5846 
5847 
5848 
5649 
5796 
5796 
5796 
57985 
5798 
5795 


28se2 
2872 


1255 
1651 
2255 
2777 
3096 
3614 
4276 
5457 
5506 
5448 
688Q9 
7062 
7882 
8082 
9y96 
26057 

299 
20535 

S02 

503 

$04 
4733 
166% 
1729 
2906 
2794 
2793 
561) 
5614 
5812 
69418 
8072 
5813 
5614 
5845 
5616 
5847 
5618 
5819 
5796 
5796 
5796 
2205 
5793 
2556 


2894 
2834 


1282 
1657 
2244 
2778 
5064 
3617 
4278 
3159 
5310 
53508 
79025 
7964 
7884 
8983 
9110 
2837 
1127 
5156 
1145 
1149 
1191 
1735 
1729 
1737 
3045 
2799 
2797 
6250 
6247 
6y15 
6924 
8099 
63584 
6418 
6303 
6y29 
6257 
6257 
6594 


5793 


3953 


1505 
1662 
2287 
2788S 
3065 
38355 
4558 
5461 
5315 
5572 
7928 
715/ 
7898 
8988 
9111 


1139 
3186 
414/ 
1152 
1200 


6377 
6259 
6308 
7912 
8115 
6439 
643y 
6349 
6258 
6262 
6262 
6609 


5793 


1314 
1673 
2299 
2/87 
3069 
3847 
4564 
5163 
5$24 
5605 
7031 
7696 
790% 
8284 


11359 


1150 
1186 


6502 
6299 
6319 
7234 
82414 
6433 
6494 
6379 
6262 
63513 
6513 
6632 


7749 


1355 
4676 
2654 
2789 
3089 
3878 
4588 
5171 
53341 
5608 
7034 
7699 
794% 
8294 


1141 


1184 
1193 


7018 
6296 
6319 
7244 
8314 
6489 
6528 
6429 
6298 
6321, 
6343 
6688 


1570 
4997 
26990 
2978 
$099 
3886 
4697 
5217 
5332 
5640 
7037 
7702 
7948 
8546 


1177 


1189 
1246 


7483 
7459 
6354 
7267 
R446 
6543 
6655 
6478 
6314 
6553 
6353 
68¢2 


41372 
2000 
2692 
2984 
3110 
3905 
4664 
5224 
5346 
5625 
7040 
7717 
7953 
8524 


1188 
£196 


7462 
6408 
7278 
8468 
6655 
7226 
6655 
6393 
6387 
6400 


1375 
2003 
2741 
2986 
3119 
3945 
4945 
5226 
5354 
5628 
7044 
7719 
7955 
8523 


1199 


1211 


7469 
6496 
7343 
8501 
7226 
7244 
7226 
6455 
6449 
6474 


1376 
2007 
2743 
2988 
3131 
3996 
4947 
5228 
3557 
5632 
7947 
7724 
8003 
8559 


1208 


1214 


6594 
7483 
8727 
7244 
7278 
7244 
6544 
6459 
6548 


1403 
2043 
2745 
2999 
$1434 
3999 
5094 
5256 
5386 
5635 
7050 
7862 
8004 
8672 


1224 


6610 
765g 


7278 
7454 
7278 
7479 
7459 
7479 


4405 
2068 
9747 
2999 
3439 
4065 
5124 
5257 
5387 
56490 
7052 
7865 
8006 
8673 


1229 


6646 
7733 


7459 
7473 
7454 
7574 
7476 


1408 
2149 
275? 
3016 
3488 
40968 
5132 
5276 
5399 
6864 
7054 
7868 
8035 
B675 


1231 


6654 
7802 


7474 
7475 
7475 
7599 
7478 


1409 
2164 
2765 
3042 
3498 
4252 
5144 
5283 
5445 
6879 
7056 
787¢ 
8040 
9935 


6698 
7829 


7483 
7541 
7514 
7649 


PAGF 


1419 
2184 
2774 
3043 
3542 
4264 
5443 
5295 
5437 
6872 
7958 
7874 
8045 
9044 


6753 
7987 


8300 
8303 


8335 


306 


4615 
2225 
9776 
3044 
3582 
4267 
5149 
5301 
5442 
6879 
7060 
7880 
8047 
9942 


6831 
89410 


8302 


8355 


01557 04 
OCTAL 


169 
17023 
17004 
17020 
16754 
17004 
16776 
17012 
16765 
17015 

409 
17037 
16757 

3135 
34397 
3164 
3170 
3253 
3262 
3234 


U5-26—-72 
SYMBOL 


B TC 
B CONE 
8 DEPR 
B MREF 
B PRIM 
B PROC 
B ROWE 
B XFER 
BUEREF 
BEMPTY 
BLEN 
BOTBLE 
BSTRCT 
BUF. 
BUF2 
BUF3 
BUF 4 
BUFS 
BUF 
BUFS 
BUNTON 
CAT 
CLOSE 
CREG 
LN 
oP 
PJ 
Cos 
EXP 
INT 
RND 
SIN 
TAN 
Acgs 
ASIN 
ATAN 
BITS 
BOOL 
CHAR 
LIB] 
LRND 
MODE 
REAL 
SQRT 
TRUE 


oOvvVvT0 V9 VOU VUVVOV UU UVUOUUD 


18,180 


ALGOL68 


REFERENCES 3Y ALTER NO, 


64 
5796 
5795 
5796 
57985 
5795 
5794 
5795 
5795 
5795 

612 
5797 
5795 

576 

577 

582 

586 

609 

645 

606 
5795 

660 

623 

12> 


1844 


4845 


64 
5796 
5/95 
5796 
5795 
5/95 
5794 
5795 
5793 
5795 

608 
5797 
2U66 

64 

577 
582 
583 
00S 
608 
94/ 
5795 
660 
623 
125 


1844 


1269 


66598 
71814 
7925 
8178 
8695 


477 


609 


3854 
576 
605 
585 
586 
605 
609 
553 

8929 


8939 
126 


2280 


1843 


6834 
7183 
7925 
8213 
8697 


611 


579% 
579 


641 
576 


10107 
127 


3166 


2260 


7459 
7184 
7927 
8214 
B698 


612 


7708 


613 
606 


664 


4509 


2545 


7164 
7185 
7929 
8215 
8700 


614 


662 
4839 


2644 


7163 
71486 
79341 
8248 
8702 


663 


28415 


7164 
7187 
7932 
8222 
B7nd 


666 


3171 


7170 
7188 
7935 
8224 
8707 


7172 
73489 
7936 
8244 
8710 


7174 
7554 
7937 
8245 
R712 


7175 
7552 
7938 
8388 
8717 


7176 
7635 
7999 
R474 
R844 


7477 
7668 
8Q32 
8685 
8845 


7478 
7669 
8171 
8687 
8824 


PAGE 


7479 
7949 
8474 
8690 
8823 


307 


7189 
7924 
81476 
8692 
8825 


01557 UL 


OCTAL 


var ee-72 


SY“4cOL 


N3LANA 
D3YTES 
DUENOT 
DFALSE 
DIDENT 
DPRIOk 
DSTRNG 
ERROR 


GEBORT 
GECALL 
GECHEK 
GEENDC 
GEF ADD 
GEFCON 
GEFILS 
GEF INI 
GEFRCE 
GEFSYE 
GEIDSE 
GEINFO 
GEINQS 
GELAPS 
GELBAR 
GELOOP 
GEMORE 
GEMREL 
GENEWS 
GEPRJO 
GERELC 
GERELS 
GERETS 
GEROAD 
GEROLL 


18,140 


ALG7L638 


REFEREVCeS 3Y ALTER NU, 


11598 


184/ 


1846 
1845 


81 


304 
503 
504 
525 
486 
407 
451 
145 
673 


8326 
3104 


1647 


4346 
1845 


By 
1888 
36354 
4999 
6$56 
7566 
8937 

16105 
495 
491 
200 
220 
454 
107 
451 
145 
620 


8626 


5234 


2326 
2270 


479 
2097 
56043 
5046 
6378 
7709 
89944 

10109 

5014 

503 

504 

523 

486 

635 


503 
626 


8683y 


4750 


2546 
452/ 


52/ 
2098 
3695 
5ydo 
6451 
7730 
9282 

10503 


638 


636 


9136 


2616 


547 
2100 
3708 
5114 
6494 
775y 
9285 

10553 


645 


646 


9437 


2858 


953 
2105 
3744 
5595 
6529 
8964 
9487 

10353 


648 


653 


3176 


574 
2123 
3809 
5607 
6799 
8301 
9545 

10374 


657 


3348 


600 
2425 
4163 
5966 
6847 
8376 
9527 

16412 


664 


3465 


604 
21414 
4215 
5967 
6902 
8536 
9583 

10418 


670 


1345 
2629 
4221 
5968 
6912 
8584 
9636 
105418 


673 


1367 
2943 
4648 
5969 
7209 
8831 
9747 


4400 1499 
3216 3221 
4753 4757 
597g 5974 
7255 7285 
A9N5 R940 
9943 10075 


15014 
35230 
4848 
6023 
7354 
8914 
10087 


PAGE 


1543 
3237 
4888 
6270 
7433 
8993 
10092 


308 


1585 
3387 
4981 
6344 
7439 
8931 
10096 


01557 O01 


OcTalL 


J5"-26<-72 
SYMBOL 


GEROYT 
GERSTR 
GESAVe 
GESETS 
GESNAP 
GESNYyM 
GESPEC 
GESYOT 
GETIME 
GEUSER 
GEWAKE 
IDLE 
IN 

J OF 

}TcB 
ie i: 


009 
i] 8 

NIC 
, REG 


7010, 
,O11, 
1912, 
1915, 
1914, 
1915, 
2016, 
017, 
1018, 
(919, 
,020, 
921, 
,022, 
,025, 
1024, 
925, 
1926, 
,027, 
1926, 
1029, 
2030, 
»USi, 
1932, 
(USsy 
934, 
sUS24 
06, 


18,180 


AULGIL68 


REFERFNCES 3Y ALTER NU, 


481 
557 
610 
6> 
70 


456 
74 


69 


456 
47 
470 
470 
470 
470 
479 
476 
476 
477 
477 
476 
478 
479 
479 
486 
486 
486 
486 
22/ 
527 
52/7 
22/7 
24/ 
54/7 
54/7 
547 


65 
542 
545 

65 

70 
555 
638 
456 

74 

69 
576 
666 
456 
470 
470 
479 
470 
470 
470 
476 
476 
477 
477 
478 
478 
479 
479 
486 
486 
486 
486 
527 
527 
527 
527 
547 
547 
547 
54/7 


481 
543 
554 
478 
402 
558 
647 


522 
404 
604 
667 


485 
557 
596 
406 


564 
645 


565 
442 
616 
672 


610 


423 
566 
655 


62 

470 

623 
1544 


440 
572 
658 


628 
486 
628 


446 
573 
659 


638 
322 
629 


457 
574 
665 


648 
547 
638 


464 
576 
666 


655 
553 
639 


479 
604 
674 


659 
555 
648 


486 
6214 
672 


666 
558 
649 


521 
622 
680 


672 
565 
655 


522 
627 
937 


566 
656 


PAGE 


547 
628 
1543 


573 
659 


309 


553 
637 


574 
660 


01557 Ut 
OcTaLl 


2664 
26/4 
2725 
2742 
2719 
2715 
2732 
2787 
2764 
2765 
2754 
2744 
5010 
Sola 
300y 
3005 
3032 
3053 
3042 
3047 
$117 
3134 
3102 
3107 
3144 
3154 
3136 
3137 
3146 
3153 
32536 
3233 
$221 
3226 
3243 
3230 
2270 


223 


777777 


J5-26072 
SYMoOL 


,U37, 
,038, 
,039, 
,040, 
1041, 
042, 
£043, 
2044, 
,045, 
,046, 
1047, 
048, 


198,100 


54/ 
54/ 
558 
553 
554 
555 
555 
555 
555 
555 
555 
555 
558 
558 
558 
558 
566 
566 
566 
566 
574 
574 
574 
574 
574 
574 
576 
576 
576 
576 
604 
604 
604 
604 
604 
604 
434 


72 
75 
71 
73 


402 
76 


68 


54/ 
94/ 
eR) 
254 
95% 
994 
955 
953 
995 
995 
555 
555 
958 
554 
558 
958 
566 
566 


71 
1084 
73 
255 
24 

76 


68 


ALGI 48 


430 
573 
417 
565 


522 
438 
10104 
414 
574 
59 
427 


435 


RFFERENCES 3¥ ALTER NU, 


434 
574 
431 
566 


565 
488 
10108 
420 
604 
6y 


457 
576 
433 
573 
573 
498 
422 
930 

61 


464 
604 
436 
574 


622 
502 


433 
62 


470 
622 
470 
576 


628 
598 


434 


63 


489 
628 
486 
604 


638 
684 


444 


64 


486 
638 
487 
622 


648 
1034 


456 


65 


322 
648 
496 
628 


655 
8902 


470 


76 


929 
655 
504 
638 


659 
8912 


476 


402 


547 
659 
522 
648 


666 
8924 


477 


553 
666 
523 
655 


672 
B930 


478 


555 
672 
547 
659 


8936 
479 


PAGF 


558 
689 
553 
666 


8940 


327 


310 


565 
1547 
555 
672 


10072 


547 


61557 O41 
GcTaL 


226 
2203 
2210 
2222 
2247 
2295 
2242 
2261 
2266 


J5e 260-72 
SYMBOL 


SFFLAG 
21001, 
2002, 
71003, 
+1004, 
21005, 
71006, 
»r O07, 
+1008, 
»NZS5F 
»NOSS5F 
wN655F 
 NIOCF 
»NIOMF 


cere 

Le i ee a i a ae ee ee eee ee ee ee a 
x 
o 
ui 


18,100 


ALGAL68 


REFERENCES 3Y ALTER NO, 


7/ 
414 
414 
420 
420 
422 
422 
435 
435 


498 
422 
425 
446 


10461 
10060 
10445 
10439 
10449 
10452 
10475 
104785 
10467 
10062 
10065 
19081 
10090 
10098 
104835 
10447 
10442 
10542 
10507 
10496 
10289 
10125 
10199 
40474 


10472 
10544 
10274 
10282 
10441 


17 
414 
414 
429 
420 
422 
422 
435 
435 


408 
414 
415 
413 


10414 
10446 
19060 
10441 
19426 
10443 
10445 
10111 
10094 
10458 
10062 
100465 
10064 
19077 
10089 
10488 
10441 
10061 

8957 
10505 
10099 
10275 
101253 
10124 

8949 
10414 
10081 

8964 
10274 
10279 
10060 


405 


425 
422 
421 
416 


19415 
140464 
19286 
19443 
104354 
10449 
10449 
19129 
19102 
10464 
10080 
19069 
19084 
19090 
10093 
10496 
10447 
19062 
10152 
19507 
10114 
19289 
10198 
10199 
10109 
10474 
19284 
10110 
10281 
10282 
10444 


419 


428 


425 


10416 


104356 


10452 
10154 
10106 
10467 
10094 


10537 


10099 
10137 
10526 
10158 


10145 


10472 
10412 


429 


10439 


10154 
10473 


10538 


10442 
10273 


10194 


1023 


10334 


PAGF $11 


10175 10177 10184 10192 10194 10475 


10286 10349 10542 
10237 10252 10294 10315 10347 10496 


10255 
10269 10289 10291 10301 10312 19327 10343 10345 10405 10413 


10354 10367 10544 


U1557 U4 
OCTAL 


30154 
301414 
$0241 
30041 
30255 
30234 
30207 
30216 
30220 
30225 
276284 
27632 
27662 
27641 
27741 
277287 
27751 
30155 
27720 
30157 
30257 

441 
30140 
27353 
27403 
274214 
27433 
27444 
27437 
27465 
27506 
27540 
27522 
27566 

440 
30196 

300 
273284 
30062 


U5"20-72 
STABLE 


SYMP 
TEMP 
TEND 
TERM 
TYPE 
USER 
LALOCI 
LALOCe 
LALOCS 
LALOCS 
LSINDO 
LBINDL 
LBIND2 
L3INDS 
L&8iNp4 
Li tNp5 
LBINDS 
LOINDI 
LBINDR 
LBLNKS 
L CHAIN 
LEN 

LENTRY 
LESYML 
LESYM2 
LESYMS 
LESYM4 
LESYMS 


[a Oe oe oor 
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REFERENCES 3Y ALTER NO, 


10476 
1N481 
10545 
10438 
19541 
10540 
10519 
1915276 
19528 
10538 
10298 
103504 
10327 
10534 
103550 
10564 
10581 
10477 
10349 
10479 
10545 
145 
1048) 
10138 
10156 
10170 
10180 
10189 
10200 
10206 
10222 
10224 
10234 
10268 
142 
10478 
92 
10110 
10455 


11110 

19 
11104 
11109 


10¢/2 
10309 
BY966 
10452 
8954 
8947 
10514 
10520 
10928 
10503 
10298 
16504 
10299 
10534 
10550 
10560 
10565 
10295 
10349 
10358 
8969 
404 
10563 
10133 
10134 
10167 
10173 
10155 
16200 
10206 
10218 
10224 
10204 
10201 
101 
10528 
92 
8967 
10444 


6899 

15 
3256 
2556 


19287 
10307 
10596 


19205 
8959 
10519 
10526 
19534 
10533 
190326 
10309 
10327 
103414 
10383 
10362 
40384 
410477 
10477 
10479 
10151 
110 
10406 
10169 
10156 
10170 
10189 
10179 
10233 
40221 
10222 
19226 
40207 
10268 
102 
19478 
522 
19110 
19455 


7608 

656 
42109 
2864 


10476 


10508 
1995u 


102356 
8951 
19525 


10532 


10364 


101714 
145 
10411 


10182 
10189 
19267 


102354 


107 


7808 


4445 
5013 
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117 M M29 
124 M M26 
130 M M27 
1354 M M286 
140 M M29 
144 M 30 
131 M Mi 
136 M M32 
163 M M33 
170 M M34 
174 M M35 
200 M M36 
204 M M37 
210 M M38 
214 M M39 
2a1 M M4U 
246 M M41 
253 M M42 
240 M M43 
245 M M44 
232 M M45 
237 M M46 
263 M M47 
267 M M48 
273 M M49 
277 M M50 
304 M M54 
311 M M52 
316 M M53 
323 M M54 
330 M M55 
334 M M56 
340 M M57 
344 mM M58 
$34 M M59 
336 M M60 
363 M M61 
370 M M62 
374 M M63 
400 M M64 
405 M M65 
412 M M66 
416 M M67 
422 M M68 
427 M M69 
434 mM M70 
4414 M M71 
445 M M72 
451 M M73 
436 M M74 
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463 
470 
474 
500 
504 
5141 
516 
523 
550 
534 
540 
544 
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M75 
M76 
M77 
M78 
M79 
MB0 
M81 
MB2 
MB3 
Mg4 
MB5 
MB6 
M67 
M88 
MB9 
M90 
MOL 
M92 
M93 
M94 
M95 
M96 
M97 
Max 
MMJ 
MSL 
PR 
REF 
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BITS 
BOOL 
CHAR 
CONE 
DEPR 
LINT 
MREF 
MREQ 
MSCW 
OPEN 
PRIM 
PROC 
QUAD 
READ 
REAL 
ROWE 
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11114 
11115 


11405 
11099 


111400 


11102 


15 
11112 
7 


11114 
9 
1110¢ 


11 
12 


2592 


6586 
2111 
5299 
2415 
5585 


3659 
6042 


3611 


1583 
8070 
622 
5185 
2213 
69792 
565 
6046 
2406 
6888 
655 
B91 


2599 


6946 
2140 
5528 
2702 
6886 


4475 


9944 
8202 


5584 
2215 
6985 

638 
6844 
2704 
6934 


2805 


6922 
2513 
7254 
2764 
7699 


4687 


10389 


9048 
2719 
6994 


2763 
7692 


7040 
2594 
7432 
2907 
7727 


6040 


10516 


9958 
2901 


2909 
7729 


7046 
2700 


2929 


7589 


9066 
3875 


2994 
7847 


7648 
2899 
3985 


8332 


4647 


3989 
7845 


7800 
3898 


4150 


4847 


4162 


7838 
3834 


4170 


5923 


4172 


8725 
4151 


5445 


5938 


5447 


4579 


5450 


5463 


5152 


5927 
5487 


5530 


5489 


5040 
5325 


5559 


5327 
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mM vOYD 
M XFER 
MBYTES 
MCLOSE 
MCOMPL 
MDEREF 
MEMPTY 
MJTIME 
MLBITS 
MLBYTS 
MLCOMP 
MLREAL 
MODE4, 
MOPENS 
MOTBLE 
MPAUSE 
MPROCV 
MRBOOL 
MSTRCT 
MSTRNG 
MTASK 
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11098 


11104 
8 


17 
111067 
11108 


11106 
1274 
14 


0 
11115 


11116 
450 
60 

46 


10 
59 


5783 
5786 


5780 
5782 
5789 
57835 
5789 
5784 
5780 
5786 
5789 


5785 
5780 


5789 
5789 
5785 
5782 


2044 
2695 
6050 
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2188 
2796 


628 


5613 
2817 
795 


1274 
659 


482 


2064 


459 
416 
672 
2216 
522 
74 
5705 
5783 
4794 
5678 
5789 
4357 
4194 
5783 
5789 
5589 
3544 
4815 
5789 
4416 


5294 
5789 


5789 
5789 
4719 
5782 
4418 


2310 
2821 


2931 


2708 


457 
418 


2706 
573 
75 


5786 


4484 
5789 


5784 
3574 
5786 


5586 


5765 


2516 
8838 


8849 


2779 


420 


2905 
648 


5782 


3589 


5783 


3815 


2903 


3875 


3594 


3934 


3867 


54914 


3947 


4044 


4577 


5497 


4330 


4054 


4584 


5216 


4414 


5479 


5459 


9220 


4816 


6829 


6866 


5248 


5676 


7284 


5406 


5780 


7646 


5444 


7664 


5583 
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16542 
16794 
16647 
17004 
16512 
16674 
16746 
16674 
16669 
16666 
16727 
16523 
16537 
16600 
16507 
16554 
17020 
166}4 
16476 
16754 
17001 
16743 
16663 
16776 
16567 
16603 
16792 
165314 
16705 
17042 
16636 
16740 
16553 
16630 
16765 . 
16535 
17035 
16520 
166395 
46606 
466a2 
16625 
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CONF 
DBUS 
DELV 
DEPR 
DISP 
DLEN 
DSub 
EPDE 
EPDN 
EPDV 
FLEX 
elo) a 
HGEN 
ISNT 
JUMP 
LGEN 
MREF 
MSCW 
OTBL 
PRIM 
PROC 
RBYS 
RETN 
ROWE 
SKIP 
TRUE 
VLWe 
vOrD 
VUPB 
XFER 
OASGNE 
OBOUND 
OCASGN 
ODENOT 
ONEREF 
OEDISP 
OEMPTY 
OENTER 
OERNGE 
OF ALSE 
OF ORMP 
OJDENT 
OIDNTE 
OLDNTY 
OOTBLE 
OPEN 
OPENS 
OREG 
ORSLCT 
OSELCT 
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5782 
5791 
5786 


5780 
5788 
57914 
578/ 
5787 
5767 
5789 
5784 
5782 
5783 
5780 
5782 


5784 
5779 


579) 
5787 


5783 
5784 
5788 
5782 
5788 


5789 
5789 
5782 
5785 


578y 


5780 
5787 
5784 
5785 
5785 
5784 
5784 


646 
656 
115 

5785 

5785 


$252 
$928 
4U50 


5/23 
359435 
S925 
4818 
$915 
4647 
4128 
5601 
4994 
3611 
3336 
4097 
$358 
4658 
4498 


4153 
3930 


4670 
$66 
4114 
5275 
4116 


3519 
4322 
3564 
4746 


5726 


40553 
4926 
3594 
4724 
4732 
4744 
4697 
1500 

616 

656 

113 
4586 
4586 


4393 
2794 
5664 


5789 
5788 
5794 
5787 
4775 
5787 
5789 
5784 
4404 
5783 
3579 
4109 
3558 
5784 
5779 


5799 
4814 


5282 
4684 
5788 
5586 
5788 


3525 
5789 
4360 
5785 


5789 


4937 
5699 
4679 
5785 
5785 
5784 
5784 


8904 
8914 

617 
5783 
4594 


57be 


5786 


5787 


5782 
3585 


5782 
4359 


5787 
5587 
5784 
8575 
5782 
8579 
5785 


5782 


5780 
5787 
5784 


10071 
648 


5783 


3909 


4368 


5783 


10083 
619 


4366 


4398 


622 


4396 


625 


4410 


628 


4422 


4464 


4468 


4774 5662 


5789 
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359 
16622 
16797 
17097 

3257 
3226 
16713 
16730 
16677 
5532 
5256 
5502 
5507 
5336 
5533 
5235 
5266 
5625 
5305 
5342 
5335 
5433 
5434 
5434 
5437 
5649 
5635 
5536 
5537 
5550 
5532 
5534 
5563 
5542 
5551 
5286 
5231 
5687 
5574 
5622 
5574 
5466 
5471 
5272 
5473 
5337 
5341 
5317 
53354 
5325 
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OSREG 
OSRNGE 
oSTRCT 
OUNION 
ours 
OUT 
OVEPTY 
OVNLWB 
OVSECT 
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119 
5787 


609 

608 
5788 
5786 
5786 
1462 
1292 
1438 
1448 
154) 
1463 
1291 
1500 
1921 
15416 
132) 
1540 
1400 
1401 
1447 
1420 
1532 
1529 
1466 
1467 
1476 
1478 
148 
1487 
1486 
4477 
1301 
1255 
1523 
1496 
1518 
1495 
1426 
1429 
1505 
1434 
1342 
1520 
1326 
1339 
1$32 


119 
4022 


577 

549 
4120 
4118 
4112 
4438 
4286 
4458 
44943 
43528 
4463 
4259 
4287 
4515 
1292 
4296 
4356 
4558 
1401 
4389 
1396 
4517 
4516 
4466 
1467 
4472 
4470 
4468 
4484 
1464 
4463 
1299 
4255 
4523 
4494 
1518 
1493 
4426 
14427 
1295 
1425 
1293 
4517 
1297 
1329 
1521 


659 
5687 


586 

578 
4205 
5788 
5758 
1444 
1287 
1464 
1447 
1344 
1534 
1272 
1309 
1521 
1316 
1324 
1349 
1409 
1416 
1412 
1420 
1532 
1529 
1482 
1479 
1474 
1478 
1489 
1487 
1469 
1477 
1304 
1374 
1527 
1496 
1528 
1520 
1439 
1429 
1305 
1426 
1342 
1320 
1326 
13352 
1326 


5787 


588 

582 
5788 
8585 
8574 
1450 
1292 


1285 


1447 


1476 


1486 
1485 
1407 


1531 


1431 
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1332 


593 
584 
8565 


1454 


1294 


4435 


1544 


1539 


594 
587 


1462 


1454 


609 
595 


1330 


608 


1540 
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5463 
5633 
5372 
5415 
5424 
5645 
5652 
5464 
5274 
5243 
5247 
5220 
52285 
5256 
5243 
5245 
5564 
5434 
5501 
5304 
5404 


5352 
5342 
5333 
5462 
5660 
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RPAR 
STOP 
STR1 
STR2 
STRT 
PCDEFA 
PCQDEP 
PCOMMA 
PMERRT 
PMODEY 
PMODE2 
PMODES 
PMODE4 
PMOQDES 
PMODE6 
PMODE7 
PPCTBL 
PPMODE 
PPMTBL 
PPRIMT 
PPRINT 
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PPROCY 
PPROCT 
PROW]X 
PSPACE 
PSTOPM 
PSTRCT 
PUNTON 
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1425 
1543 
13568 
1587 
1394 
1537 
1542 
1421 
1504 
1257 
1261 
1262 
1267 
1276 
1281 
1288S 
1488 
1432 
1437 
1519 
1424 


1353 
1364 
1338 
1422 
1548 
1362 
1395 
9742 
9743 


9539 


9884 
9900 
9944 
9995 
9934 
9950 
9959 
9964 
10025 
10022 
9751 
9755 
9764 
9771, 
9777 
9822 


1418 
1453 
1563 
1583 
4563 
1953 
4492 
1323 
1502 
1257 
1264 
1262 
1262 
4273 
1277 
1266 
4488 
14352 
4457 
1541 
4289 
1414 
4546 
1548 
15354 
1550 
1546 
4294 
1298 
9539 
9559 
9439 
9483 
9456 
9757 
9898 
9906 
9925 
9926 
9948 
9959 
9956 
9944 
9887 
9751 
9755 
9754 
9750 
9770 
9822 


1423 
1495 
1593 
1385 
1394 
1557 
1493 
1392 
1304 
1319 
1265 
1275 
1267 
1276 
1279 
1283 
3766 


1313 
1304 
1417 
1353 
1354 
1358 
1379 
1548 
1362 
1395 
9619 
9564 
10055 
9509 
9478 
9884 
9909 
9909 
9933 
9934 
9959 
9963 
9964 
9945 
9894 
9804 
9765 
9764 
9774 
9777 
9829 


15468 
1387 
1542 
1415 


1525 


1281 


1315 
1312 
1424 


1561 
1422 


9644 
9566 


9535 
9479 


9914 


10023 
9904 


9861 
9766 


9778 


1699 10438 
1424 
1531 13552 
$516 1322 
1475 1483 
1536 
9637 9638 
9568 9579 
9484 9485 
9937 9949 
9869 
9779 


1360 


1327 
1535 


9649 
9572 


9486 


9944 


£3355 


9645 
9573 


9504 


995141 


1347 


9648 
9689 


9514 


9954 


1349 


9654 
9685 


10034 


109022 
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9664 
9686 


1562 


96692 
9743 


1378 


9663 


1386 
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26739 
26733 
267357 
26745 
26746 
26747 
26753 
26730 


26734 
26752 
25610 
25606 
272432 
26549 
26537 
272144 
27203 


26251 
26243 
263354 
26374 
26400 
26404 
26402 
26536 
26487 
27120 
27125 
27154 
27140 
27150 
27135 
27163 
27170 
27205 
27206 
25744 
26734 
26762 
26736 
26760 
26559 
26757 
267614 
25567 
25422 
26404 
26406 
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9857 
9860 
9864 
987) 
9874 
9872 
9876 
9873 


9874 
9875 
9270 
9269 

10034 
9737 
9736 

10036 

40027 


9538 
9548 
9605 
9637 
9644 
9642 
9643 
9735 
9672 
9976 
9984 
9988 
9992 
40000 
100095 
10011 
40016 
40029 
10030 
9354 
9878 
9883 
9879 
9884 
9745 
9880 
9882 
9254 
9158 
9645 
9647 


9653 
9356 
9864 
9796 
9819 
9788 
9746 
9553 
9976 
9845 
9857 
9257 
9170 
9706 
9425 
9482 
9535 
9554 
10006 
9558 
9548 
9605 
9579 
96441 
9596 
9643 
9536 
9672 
9976 
9984 
9988 
9992 
9993 
9984 
10041 
10012 
9978 
9989 
6639 
9753 
$644 
9767 
9752 
9708 
9768 
9754 
9172 
9153 
9645 
9647 


9857 
9869 
9868 
9818 
9815 
9795 
9793 
9747 
10095 
9852 
9859 
9264 
9210 
19054 
91428 
9508 
10056 
9569 
10009 
10024 
9641 


9622 
9604 


9548 
9689 


10004 
190003 
9999 
10009 
40005 
10015 
10016 
9984 
10002 
9354 
9783 
9844 
9814 
9789 
9745 
9806 
9784 
9224 


9849 
9816 
9805 
9805 
9820 


9858 
9875 
9270 
9215 


9438 
9736 


9802 
10027 


9634 
9607 


9681 


10019 
9985 
10030 
9384 
9878 
9846 
9879 
9789 


9889 
9784 
9244 


9843 
9834 
9828 
9876 
9854 


9874 


9217 


9737 
9738 


9834 
10034 


9637 
9642 


9699 


9987 


9883 


9884 


9682 
9245 


9847 
9839 
9835 


9854 


9243 


10035 


9838 


9679 
9660 


9705 


9999 


9254 


9848 
9874 
9842 


9873 


9254 


10427 


9995 


9667 


9735 


9996 


9870 
9872 


9897 


9256 


9936 


9674 


10020 


9997 


9885 


9899 


9263 


9939 


9694 


10029 


9924 


9947 


9266 


9942 


9698 


9938 


9949 


9269 


9953 


9952 


9965 


9964 


9968 


9973 


9979 
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26424 
26450 
26500 
26503 
26524 
265354 
26133 
26466 
26470 
25624 


25562 
25593 
27231 


25490 
26080 
26243 
25687 
25646 
25661 
23745 
25735 
25733 
25737 
25732 
25760 
26032 
26030 
26034 
26007 
27201 
27200 
29443 
26649 
26644 
26706 
25414 
25406 
25375 
25399 
26192 
261357 
25436 
254414 
25445 
25495 
25464 
25463 
262357 
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Lie 
Lis 
LAL 
LA2 
LAS 
LAS 
Loc 
LXx4 
LxX2 
OyT 


RE4 
REZ 
REQ 
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RET 
RGN 
ZER 
ACH1 
ACH2 
ACWS 
ACH4 
ACHD 
ACHP 
ACT 
ACHX 
AFS4 
AF SD 
AFSP 
AF ST 
AF SX 
BITL 
BlYT 
BOOL 
C5,2 
C5,5 
C6,4 
CHAR 
CRLF 
ENTS 
ENT2 
HEAP 
HGEN 
INTS 
INT2 
INTS 
INT4 
INT5 
INTX 
L4,5 
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9661 


9665 
9705 
970% 
972> 
9735 
9476 
9695 
9697 
9274 


9249 
9251) 
100355 


9135 
9401 
9524 
9280 
9295 
93506 
9334 
9350 
9348 
9352 
9347 
9369 
9395 
9393 
9397 
9392 
10029 
10024 
9146 
9861 
9895 
9839 
9147 
9141 
9132 
9134 
9499 
9496 
9465 
9168 
9172 
9180 
9184 
9186 
9544 


9OOL 
9665 
9646 
9708 
9725 
9713 
9584 
9694 
9697 
9155 
92/71 
9194 
9495 
9345 
10033 
8273 
9399 
9489 
9280 
9276 
9506 
9334 
9297 
9295 
9502 
9274 
9569 
9357 
9355 
9366 
9554 
9919 
9549 
9146 
9799 
9794 
9832 
9147 
9141 
9424 
9151 
9$17 
7603 
9459 
9164 
9172 
9180 
9181 
9153 
9544 


9664 


9705 
97354 
9729 
9727 
9429 
9695 
9704 
9464 


9201 
9204 
9382 
10408 
9435 
9404 
9488 
9289 
9295 
9313 
9346 
9299 
9316 
9314 
9994 


9395 
9383 
9367 
93990 
9924 
9586 


9804 
9805 
9836 


9152 
9134 
9420 
9496 
9465 
9468 
9474 
9483 
9184 
9186 
9547 


97S2 
9738 
9466 


9466 


9252 
9251 
94190 


9505 


9327 
9322 
9320 
9347 


9386 
9368 


9476 


9176 


9249 
9250 
9464 


9516 


9333 
9348 
9329 


9393 
9397 


9179 91489 
9474 9478 
9524 10440 
9359 

9330 93314 


10025 10599 10404 


9729 


9839 


9499 


9748 


9785 9897 


91482 9192 9244 


9484 9485 9497 


9359 


9922 10024 10402 


9220 


9501 


9222 


95n6 


9228 


9544 


9230 


9525 


PAGF 


9238 


9892 


320 


9260 


9895 


01557 U4 
OCTAL 


26254 
26264 
26274 
26295 
263352 
263a1 
26332 
26360 
26372 
26150 
26132 
26191 
26153 
27207 
25633 
25642 
25467 
260353 
26045 
26046 
260397 
26070 
26111 
26105 
26104 
26110 
26103 
26107 
26102 
25564 


27204 


25464 
262281 
26285 
25681 
25734 
25645 
29749 
25756 
26011 
26013 
25441 
25440 
25442 
25441 
372a1 
3295 
0 
25365 


05=26-72 


SYMBOL 


P°) DBDBDADADADADAADADAADADAADAADADADADADBADDADDA AAD 


R 
R 


Lead 
L2ye2 
Le,3 
L2,4 
L223 
Le,? 
L5,s 
L372 
L5,8 
LGEN 
LOcD 
LOCP 
LOocT 
MTOP 
OUTB 
ourTy 
REAL 
RGN1 
RGN2 
RGNS 
RGN4 
RGN5S 
RGNA 
RGND 
RGNF 
RGNP 
RGNS 
RGNT 
RGNX 
RTEN 


SMAX 
TLVN 


ZER} 
ZERX 


RACHEK 
RACHEL 
RACHKX 
RACHT4 
RACHTP 
RAFSEL 
RAFSTP 
RCHART 
RCHARX 
RCRLFC 
RCRLFX 
READ 

RELS 

RELZEK 
RENTER 


18,180 


ALG L68 


REFERENCES BY ALTER NO, 


9557 
9562 
9573 
9574 
9605 
9594 
9649 
9625 
9635 
9473 
9491 
9499 
9492 
40034 
9275 
9272 
9490 
9442 
9422 
9423 
9432 
9441 
9458 
9454 
9455 
9457 
9452 
9456 
9451 
9252 


40028 


9188 
9530 
9534 
9274 
93549 
9294 
9355 
9354 
9394 
93596 
9152 
9151 


9557 
9559 
9567 
9549 
9592 
9594 
9609 
9625 
9620 
7609 
9494 
9499 
9492 
9546 
9185 
9154 
9190 
9412 
9419 
9421 
9427 
9441 
9403 
9404 
9598 
9402 
9416 
9456 
9401 
9203 


9479 
10028 
9169 
9530 
9476 
6855 
9296 
9294 
9304 
9298 
9556 
9358 
9148 
9147 
9143 
9141 
629 
955 
19 
8246 


95641 
95692 
9574 
9574 
9603 
9599 
9619 
9633 
9635 
9473 


9492 


9756 
9247 
9475 


9415 
9422 
9423 
9432 
9459 
9424 
9437 
9409 
9457 
9426 


9454 
92592 


9486 
19404 
9188 
9533 
9499 
6907 
9352 


9309 
9319 
9394 
9385 
9159 
9151 
9145 
9444 
1927 

602 

613 
91424 


99735 
9618 


9602 


9995 
9272 
9191 


9428 
9454 
9418 
9459 
9452 


9454 


950U 
10416 


9534 
7168 
9349 


9310 
9351 


9396 
9152 


10104 
604 


10437 


9644 


9906 
927% 
9272 


9432 


9453 


9502 


10409 


9274 


9353 


607 


9949 


9458 


9504 


9944 


9507 


9920 10034 10393 10394 19400 


9510 


9512 


9544 


9798 


9800 


9830 


9934 


PAGE 321 


9935 10008 


01557 uL 
OCTaAL 


26544 
26206 
26205 
26207 
26204 
26407 
26150 
27240 
26116 
26122 
25477 
25504 
25513 
255284 
25526 
25534 
25545 
25547 
25564 
320 
261132 
26106 
26037 
26035 
27202 
26547 
60 
109 
116 
196 
284 
252 
234 


U5-26-72 
SYMbOL 


RGMARK 
RHEAPL 
RHEAPP 
RHEAPT 
RHGENP 
R411,5 
RLGENP 
RMBASE 
RPLGEN 
RPLGNP 
RREALY 
RREAL2 
RREALS 
RREAL4 
RREAL5 
RREAL 6 
RREAL7 
RREAL8 
RREALX 
RREG 

RRGNTG 
RRGNTP 


ANNNWNANANAANAAARAUWANNMNNMNWaAWWM 
T 
“ 


18,180 


ALGYIL4S8 


REFERENCES 3Y ALTER NO, 


973% 


9549 
9544 
9520 
9547 
9648 
9489 
10032 
9465 
9467 
9198 
9208 
9210 
9249 
9221 
9224 
9236 
9238 
9248 
100 
9459 
9455 
9400 
9398 
10026 
9744 


11516 


11519 


9956 
9519 
95168 
9520 
9496 
95/5 
9475 
9542 
8216 
9463 
9196 
9199 
9497 
9212 
9218 
9224 
9233 
9235 
9190 

100 
9417 
9405 
76490 
7639 
9801 
9642 


3558 


3414 


9738. 
9529 


9498 
9577 
9475 
9716 
9463 
9465 
9202 
9203 
9210 
9219 
9224 
9226 
92356 
92358 
9248 

565 
9459 
9423 
9409 
9398 
9833 
9704 


3437 


951/ 
9581 
9489 
9792 
946/ 


9206 


9455 


9837 
9744 


9648 


9844 98686 9992 9915 10052 10329 10395 19425 10433 


9209 


9966 10007 10026 


PAGE 


$22 


01557 UL 


OcTaL 


05"26072 
SYMBOL 


FOR 
INT 
LOC 
NIL 
NOT 
PER 
REF 
RND 
SIN 
STR 
SUB 
TAN 
ACOS 
ASGN 
ASIN 
ATAN 
BARF 
BTS 
BOOL 
CHAR 
CTAb 
EITH 
ERMI 
ERM2 
ERMS 
ERM4 
ERMS 
FLEX 
FROM 
HEAP 
INTP 
ISNT 
LONG 
LPaR 
LRND 
MODE 
MSGN 
OVER 
PROC 
PSGN 
REAL 
RP ARK 
SEM] 
SKIP 
SORT 
TRYE 
WHLE 


YNYNMNNNMMNW 
anauNnnannw 
ww 
ANUNnNUNAUNnNAAAAIVHAMWNAUMANnGMNMMWAMwW 
NANAnMANMNMNW 
nw 


SASTER 
S3LANK 


18,100 


ALGOL68 


REFERENCES 3Y ALTER NO, 


11326 


11299 
11291 
11292 
11295 
11294 


11298 
11509 


3449 


3168 
8175 
3178 
3181 
$432 


£155 
3099 


9135 


3365 


9439 


9477 


9484 


PAGE 


3235 


01557 O11 


OcTaL 


I5"2o0e0e7¢ 


SYMBOL 


SeOCLP 
SSYTES 
SCHARP 
SCOLON 
SCOMMA 
SETP 
SETSET 
SFALSE 
sIB 
SIF 
SLIBRY 
SPEC1 
SPEC 
SPRIOR 
SREALP 
SREG 
SSLASH 
SSTRNG 
START 
STCB 
STRT4 
STTYF 
SUNION 
SWAPC 


INA OUST EF TKHOMonre 


De ee ee ee te ee be ee ee ee ee 


18,180 


ALGIL68 


REFEKENCES 3¥ ALTER NO, 


1129/ 


649 


10054 


$455 


9348 


1649 
87 
461 
465 
4690 


654 


474 
414 
474 
468 


6114 


9393 


2849 

89 

6738 

464 467 
652 655 
470 680 
9457 10054 


469 


471 


PAGE 


324 


01557 01 
OcTal 


35244 
37433 
35297 
40065 
352249 


35253 
35286 


35285 
35250 
27237 

5765 
27245 


6030 
27221 
40066 

3 
35242 
35240 
35231 

5647 

5663 


35284 
35223 
35216 


6029 
272a3 
35284 


27240 
35252 
27222 

5742 


V5"260e/72 
SYMBOL 


SK 
TE 
wk 
ZE 
DEF 


| 


END 
GEN 


LBL 
NUM 
oct 
OyF 
PTR 


REG 
ROw 
SpE 
SET 
SKE 
WKE 
Z2Z 

AINC 

ALOC 


~~. ee ee 


T CODE 
TY ITAB 
T MODE 


OVFR 
PROC 
PROG 


4-4 


PTRT 
SDEF 
SKIP 
SOVF 


ee 


18,180 


ALGOL68 


REFERENCES 3Y ALTER NQ, 


11539 


1185) 
11845 


11544 


10040 
1628 
10038 


1644 
10042 


11848 
4574 
1562 


11843 
11842 
11837 


1642 
10044 
11849 


10057 
11849 
10045 

1609 


1267 
2628 
4664 
4573 
5957 
8946 
5929 


2974 
1647 
2938 
10051 
1562 
2935 


6063 
1572 
4122 
2345 
$921 
1488 
5938 
£154 
5134 
425 
2200 
2739 
2898 
3812 
6869 
1613 
10044 
1676 
3424 
8788 
8587 
4706 
2942 
1256 
2982 
4559 
5547 
7y38 


1476 
2855 
4949 
1597 
6159 
9037 
5946 


2975 
1627 
2947 
10052 
1605 
9619 


1574 
4174 
2385 
6134 
1496 


1158 
3264 
1284 
2228 
2748 
2916 
3824 
6874 
1623 
19420 
2456 
38992 


9489 
8883 
3984 
1356 
2987 
4665 
53592 
70414 


1538 
3279 
4959 


7024 
9052 
5947 


9469 
16268 
2976 
10054 
1606 
9666 


1595 
1227 
2440 
6669 
3606 


1446 
7033 
136 

2249 
2772 
2954 
4600 
6884 
1638 


2459 
3912 


9547 


6692 
1371 
2989 
5995 
5358 
7045 


1869 
3517 
5978 


7099 
9089 
5959 


9606 


2977 
10055 
1641 
10042 


1562 
2437 
6685 
3665 


1187 
9973 
13577 
2409 
2779 
2979 
4603 
7628 
4642 


2457 
3948 


10057 


6725 
1573 
3957 
3133 
5400 
7048 


2258 
3327 
6784 


7352 
9093 
6952 


10040 


6699 
10057 


1633 
2932 
6707 
3667 


1198 


1402 
2447 
2794 
2992 
4606 
7694 


2495 
3934 


8149 
1404 
3062 
5164 
5416 
7697 


2268 
3330 
7504 


7359 
9106 
6955 


8132 


2048 
2962 
67293 
3669 


1210 


4440 
2588 
2830 
3009 
5042 
8835 


2500 
3940 


8976 
1406 
31141 
5472 
5438 
7700 


2278 
3352 
7543 


7377 


9113 
7349 


9468 


2054 
3015 
6957 
3679 


1213 


$455 
2597 
2833 
3018 
5045 
8846 


2501 
3973 


9594 
1609 
3116 
5218 
5443 
7703 


2286 
4955 
7555 


7378 
7357 


9479 


214 
304 
7856 
3783 


1223 


1469 
2648 
2835 
3054 
5965 
8849 


2507 
4143 


100438 
1666 
3449 
5227 
5449 
7863 


2294 
4503 
7559 


7389 
7852 


9474 


2195 
3289 
8134 
3799 


1226 


2047 
2688 
2839 
3953 
5213 
8874 


2940 
4382 


2319 
4513 
7979 


7393 
7854 


9635 


2204 
3668 
9953 
4935 


1230 


2649 
2689 
2842 
3965 
5225 
9954 


2545 
4436 


2344 
4694 


8993 
7416 


10038 


2229 
3800 


4199 
1278 


2058 
2694 
9844 
$077 
5444 
9054 


2527 
4443 


10044 10045 10439 


1998 
3489 
5277 
6862 
7866 


2008 
3543 
5284 
6874 
7869 


2288 
3645 
5296 
6873 
7872 


2363 
4700 
8878 


7864 


10046 


2259 
3849 


4298 
1384 


2109 
2698 
2869 
$500 
5434 


3124 
4449 


2694 
3906 
5302 
7026 
7875 


2376 
4703 
9000 


7896 


10047 


2269 


3959 
4309 
1473 


2116 
2734 
2878 
3503 
5526 


34124 
4784 


2693 
4966 
5307 
7029 
7944 


PAGE 


2379 
4738 
9006 


8927 


10049 


2279 
4340 


5600 
1943 


2138 
2735 
2885 
3742 
5548 


3323 
7754 


2758 
4265 
5316 
7032 
7949 


325 


2538 
4754 
9925 


8932 


10050 


2320 
4708 


5624 
2093 


2494 
2738 
28990 
3729 
6049 


3376 
7976 


2775 
4268 
5322 
7035 
7954 


b1557 Ut 
OcTaL 


35222 


6031 
35227 


27220 
35214 


5754 


27216 
5743 
5742 
5724 
5731 

35237 

27280 
6030 

370 
4044 
35245 


35243 
352536 
2687 
2695 
2743 
26283 
2674 
280 
254 
234 
2767 
272 
3073 
30514 
4000 
20000 
100090 
40000 
10000 
60090 


L5"26<72 


SYMBOL 


T STAb 


TEMP 
TYPE 


«4-4 


T ULEN 
T WORK 


1 wOvF 


T WPTR 
TALOCL 
TALOC2 
TALOCS 
TALOC4 
TBOUND 
TMSCHT 
TOvFIC 
TRREG 
TRUNC 
TSTACK 


TSTART 
TTABLE 
TTBA 
TTB2 
TTBS 
TTB 
TTBX 


18,180 


ALGOL68 


REFERENCES 3Y ALTER NO, 


11841. 


1644 
11846 


10044 
11835 


1649 


10039 
1586 
4593 
4595 
1600 

41838 

10049 
1643 

432 
667 
11836 


11834 
11855 
543 
549 
555 
539 
548 
82 

86 

83 
558 
90 
574 
566 
5807 
5805 
5801 
5802 
5804 
5805 


8956 
1117 
1684 
3442 
4563 
2927 
6683 
8861 
3$U92 
1626 
23522 
4821 
4706 
8205 
4619 
2664 
42690 
$252 
9469 
4581 
4587 
4595 
1570 
2053 
82149 
1641 
132 
667 
1646 
4535 
748 
709 
543 
544 
552 
539 
941 
82 
86 
83 
558 
90 
563 
566 
4535 
3618 
4674 
4250 
5010 
4701 


30410 


1121 
1694 
35447 
1565 
2949 
6704 
8980 
9608 
1628 
2756 
4885 
6709 
8284 
2016 
2737 
4293 
5502 
9464 
1586 
1593 
1598 
1600 
2056 
10049 
1624 
668 
8935 
1659 
7957 
765 


550 
549 
555 
1545 
546 
507 
97 
486 
683 
466 
571 
597 
4887 
4233 
3010 
5002 
5111 
5805 


8g 46 
1132 
1851 
3460 
1605 
296y 
6704 
8984 
9650 
16034 
2768 
5QO%4 
6722 
8294 
2029 
2998 
429/ 
5504 
9495 
1592 


1599 
2205 


1639 
669 


1636 
8060 


554 


1960 
548 
541 
504 
527 


574 

742 
5807 
4239 
5109 
5405 
5590 
5806 


4547 
1159 
2037 
3477 


3902 
6708 
8994 


2011 
2989 
5545 
6729 
8533 
2083 
37892 
4304 
5511 
9524 


2383 


5229 
8965 


9149 
547 
566 


908 


5004 
5806 
5805 


8522 
4161 
2090 
4593 


3044 
6720 
8994 


2042 
3026 
6428 
6742 
8560 
21035 
3787 
4307 
5544 
9522 


2394 


5237 
8594 


9184 
549 
574 


5103 


8554 
4167 
2360 
4743 


3019 
6732 
8996 


2069 
3683 
6132 
6979 
8598 
2448 
3779 
4534 
$520 
9578 


2403 


5253 
8562 


9246 
533 


5803 


2654 


5311 
8596 


5805 


9943 
1175 
2609 
4831 


3929 
6738 


2454 
3846 
6287 
7983 


2252 
3963 
4546 
6579 
9740 


3839 


5330 
B674 


1190 
2808 
4966 


3945 
7414 


2179 
3877 
6598 


7993 


2338 
4073 
4548 


109039 


3864 


5385 


122 
3164 
9010 


3050 
8130 


2224 
3885 
6600 
7537 


2344 
40978 
4554 


3959 


5509 


1205 
3488 
9070 


3084 
8142 


2236 
4263 
6674 
7954 


2422 
4247 
4667 


3964 


6787 


1269 
3344 


39086 
8843 


2245 
4279 
6678 
7969 


2432 
4254 
54119 


397g 


6788 


PAGF 


1381 
3357 


6667 
8853 


2297 
4539 
6684 


8924 


2444 
4255 
5122 


7796 


7523 


326 


4465 
3408 


66741 
8859 


2306 
4663 
6686 
8043 


2664 
4257 
51429 


7747 


7533 


OcTAL SYMBOL REFERENCES 3Y ALTER NO, 


200000 W SKIP 5800 4669 50190 5107 5809 58n6 
340 wLOCc 97 92 97 
341 WN 96 95 98 
760000 WOBUCT 5806 $686 5806 
320 WREG 101 104 573 
3744 = WRYTeE 639 639 8929 
400000 WVALUE 5799 3755 4294 4682 4733 4747 5143 5621 5799 5806 
17441 Zz A 
17442 Z B 
17443 Zz T 
4564 Z FG 974 940 946 968 974 
1135 Zz JN 171 171 689 862 944 958 967 972. 
4306 z 6&C¢D 808 797 802 806 
1466 Z BNF 188 187 188 883 
4354 Z BRE 843 204 843 
4345 Z CON 839 203 838 839 
4064 z oDpt 678 678 686 940 934 
4142 Z ODyM 708 209 708 
4432 72 ERR 892 209 249 244 +701 755 632 834 840 864 892 954 963 
4435 Z FIN 895 62 705 724 #739 #774 +21»1786 805 842 858 #4889 $89 894 895 
1157 Z N68 173 171 172 173 196 692 
1136 Zz INP 172 172 688 
457 Z OyT 1468 168 691 734 744 +778 7a9 794 +799 814 827 900 902 904 981 999 
4132 Z Pat 700 199 700 
140 Zz CB 62 62 476 
4335 Z TRA 831 202 634 
4400 Z UNB 866 205 866 
4567 Z ADDR 977 728 775 851 885 977 
4322 Z BCD1 820 840 814 812 615 816 847 818 820 
4334 Z BCDC 830 809 839 
4333 2 BCDT 829 821 824 829 
4514 Z BKST 935 178 933 
1433 Z BPIT 182 «6181 4182 8 849 
1500 Z BPMS 194 193 194 
4353 Z BREA 845 B45 859 865 
4363 Z BRE2 853 847 853 
4367 Z BRES 857 652 857 
43%2 Z BRE4 860 344 860 
46437 Z BREM 1004 687 1004 
4606 Z BSET 992 695 999 
1303 Z BTaB 176 176 853 856 875 876 878 888 916 994 997 4002 1004 1009 1011 
4626 Z BIL 1008 494 B46 869 914 1008 
1447 Z BXED 178 178 922 
1454 z CRLF 180 179 189 726 773 794 897 
1507 Z CTAB 199 199 694 
455 Z DTCcB 166 166 746 836 863 942 924 930 
4169 Z DUM1 722 722 745 753 
4179 Z DUM2 730 730 738 
4202 Z DUM3 740 735 740 
1475 Z ERRM 191 190 191 893 


01557 U1 
OcTal 


443Q 
4442 
4446 
4509 
4582 


4579 
461 
440 

4136 

4210 
432 


4267 
4220 
4492 
4445 
4420 
4485 
4565 
45281 
1504 
1492 
4680 
4640 
4627 
1523 
4542 
4552 
4562 
4533 
4544 
4536 
4107 
4130 
4077 
4104 
4503 
tabs 
4305 

436 
1506 

433 
4304 
4237 
4234 
42641 
4601 
4577 

434 


05=26=72 
SYMBOL 


EXIT 
FING 
FIN2 
FINS 
GARG 


~ONEN NMS 


LOOP 
OUTE 
QuTP 
PATI 
RDYM 
TEMP 


TIME 
TYPE 
UNBI 
UNB2 
UNBS 
UNB4 
WORD 
ZBINST 
Z8MESS 
ZBREAK 
ZBREM4 
ZBSET4L 
z87LuUd 
ZCTABE 
ZGARGL 
ZGARG2 
ZGARGS 
ZGARG4 
ZGARG5 
ZGARG6 
21073, 
2,074, 
Z,075, 
21076, 
2,077, 
Z1078, 
ZLTIME 
ZRETRN 
ZRPRAM 
ZTEMP4 
ZTIMET 
ZTYPEL 
ZTYPE2 
ZTYPES 
ZWRITL 
ZWRITE 
ZWTEMP 
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18,140 


REFEKENCES 3Y 


89 


900 
904 
930 
949 


976 
170 
169 
704 
746 
165 


798 
754 
868 
879 
882 
887 
975 
938 
197 
185 
1002 
994 
1009 
214 
956 
964 
972 
949 
959 
968 
68) 
680 
6890 
680 
930 
930 
807 
167 
1938 
164 
806 
769 
779 
787 
987 
985 
165 


207 
900 
901 
915 
700 
952 
976 
168 
169 
704 
201 
163 
783 
208 
206 
868 
879 
879 
867 
733 
947 
197 
184 
1002 
994 
873 
éii 
956 
960 
943 
945 
948 
966 
689 
680 
680 
680 
950 
950 
601 
1467 
198 
164 
796 
769 
779 
782 
987 
725 
165 
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899 


903 
904 
939 
704 


978 
169 
690 
707 
746 
703 
921 
793 
754 
B81 
886 
882 
687 
975 
919 
499 
185 
1007 
1000 
1009 
693 
962 
964 
972 
949 
955 
968 


804 
528 
682 
720 
809 
792 
785 
787 
994 
772 
986 


708 
983 


170 
745 


706 
928 


938 


1014 


807 
834 


727 
805 


793 
987 


712 


740 
790 


744 


839 


752 
806 


848 


716 


787 


745 


841 
767 


882 


754 


905 


721 


860 
774 


892 


758 


907 


722 


909 
927 


896 


763 


732 


914 
935 


985 


833 


736 


843 


754 


857 


757 


866 


762 


879 


768 


PAGE 


940 


769 


328 


950 


779 
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#s $5220 WORDS OF MEMORY WERE JSED BY GMAP FOR THIS ASSEMBLY, 
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XXXXXXAKKKXXKKAKX KK KK AK KAXAKK AKA KKK KKK MK KX KKK KK KKK KKK KKK KKK KKK KKK KKK KKK XK KK KKK KKK KK KKM KKK KKK KX KKK KK KK KKK KX KKH KKK KK KK KKK KKK KKK KKH X 
XX XXXXXKKKAXKXXKAXK KKK K XX KA KK AKA KK KKK AK MWK KX KAKA KKK AX KK HK KX KK AX KK KKK KKH K KKK KX KKK KKK KK MKMH KX KKK KKK KKK KKK KK KKK XK KKK KKK KKK KK XXX XK KKK K XK KX XX 


e 6 eee @ee ee2 aasa 202 eee eee @eaee e@ Ree ec0@ee@ @ r aee 
e ¢e©e e@6¢ 2e© @ @ 2 @ @ ae @ @ @ @ eo a @ @ @ @ @ @ 
e @ @ a @ a@ 8 86@Pa 20 ©=— e@@@ @@ @eeee @ @ e@ e@ @ @ eae 
eeeee a e@ @ @@ a 20 e@ 8 e@ e @ @ ¢ eee @ @ @ eeee @ e 
e @¢ @ @ @ @ @@ 2 ef e@ ea e @ @ e @® @ @ @ e@ ee 
@ © eee @2@@ C0090 2092 29790 aece eee @ @ e@aeee @00 e800 eeeee eee @e@ 


0000.9 0.000 0.90000 00.0.0 000022 OC LOL OO C808. 00.0.0.0.0.0.0.0.00.0.0.0.0.0.0.00 000000000 00 000.0.0.0 000.000 0.0.0.0.00000.0.0000005.0090.0009006 2090000006 000.0.0.8; 
009 0.00.900 0.00000 0.000 2000 C0 200000000900 0.0,0.0.0.00.0.0.9 00 000000.0.0.00.0000.000.0.00.0.0.0.0.0.0.0.0.0.00.00.00000000.000000000000.0000008 2000000000000008, 
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AULULUUUNTING REPORT 
SPSSSTSSSSPsr=Stsessssszsseresstsszs2zr2zes 
b% 01557 ENTERED SULS,4 AT 00:15%52 FROM TTY 
1 IDENT C2$252,ALGIL68 
2 $ GMaP ON5,COMDK,UIMP,NGMAC 
3 §$ TAPE Ge,ALD,,MINIC. MINI TAPE 
4 4% TAPE #1,A2R 
5 TAPE Ka,ASDeeMINIDs MINI TAPE 
6 $ LIMITS 300764000.,0750000 
7 $ YPDATE LIT 
a ENDJOB 
TOTAL CARD COUNT} 22 
# @ @ 
* 2 @ * © © * & & 
* & » a * * 


*® BEGIN ACTIVITY © te GMAP 05/26/72 Swe 4147700000000 


# NORMAL TERMINATION al 002424 INDICATORS 4020 
START 00;19102 LINES 16K PROC 0,1600 1/0 246 TU MEM 62K 
STOP 00439331 LIMJT 48K LIMIT 3,0000 LIM]? Cy Mef 1,26398 5 
LAPSE 0,3413 FC D TYPE BUSY IP/AT FP/RT aS/#C MS/#E ADDRESS L#saT 
Ae 0 PISK 
Ge D YAPE 
#1 R TAPE 
Be s DISK 
Ce S SYOUT 
Ke D TAPE 
Pe S SyouT 
Re 5 DISK 
LIST 16K LINES 
* * e 
* ene © * & * * @ 


O09 0,90.05060 09 C000 00 CC COC 0000000.0.9.000.000000.6.9.0000000.000000000000.0,9.0.0.0,9.0.0.0,0.0.0.0.000000000900200000000000000 000009 00.0.0.09.0.00.0.0.0 0.0. 
0 0.9.9:9 0060 0.0.0.9 0.9 .0,.0.0,.0.0.6.9 00.00.0020 2.0,0,0,9,0.0 0,0,0,0,0.00.0.0.00000.00.00009 00000 0.00.900.0,0.00.0.0000900 00.00.0000 0.0.00000000000.0,0006.0.0 £0 0.0.0.0.0 6.0.0.0.0.0.0. 0.8.1 


© @ eceee@ @ @@02@@ 2 a ease @ @e@ aeeace @ @ @@@ 
@ @ @ e © @ @ aa ) @ @ @ ea @ e @ @ @ @ 
@@ @ @ © @ Rene a oa @aeee @ @ @ e@ @ @ eee 
¢ @ @ @ @Cae®ee @ asa @ e@ 6@ @ eee @ e@. 6 ee8e @ @ 
e e@ @ a @ @ @ 2080 @ @ @ @ @ @ e @ @ @ ®@ ] 
e @ eaearea @ @ e080 a @ @ ¢9e%@ eee C2RQ@ @eeRe eee aae 


XXXKXXKXXKK XX KX KX KK AXK KK AKA KAKA XK KK KK KK KK XK KA KK KKK KK KKK KKK KKK KK KK KKK KHMK KKK K KK KK KKK KK KKK KK KM MK HA K KK KK HA K AK KA KKK KKH KK KKK KM KKK KKK XK KX 
9 0.00.9 0,9.000.9 0.009 002,000 C00 00.00, 0. 0.0.0,00,0.0.0.9.0.0.9.00.0.0.9.0.00.0.0.0.0.00000000 260.01 00.0,9,0.0.0,9.00 0.006. 0.0.0.0,0.0.0,00.0,9.0.00.0.0.0,0.0.0,0.0.0.0 0.0.0.0.0.06.0.0.9.0.0.0,0.0.0.9. 0.0.0) 
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